7. 若有如下Sub过程: Sub sfun(x As Single,y As Single) t=x x==t/y y=t Mod y End Sub 在窗体中添加一个命令按钮Command1,对应的事件过程如下: Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 sfun(a,b) MsgBox a & chr(10)+chr(13) & b End Sub 打开窗体运行后,单击命令按钮,消息框中有两行输出,内容分别为______。
A.1和1
B.1.25和1
C.1.25和4
D.5和4
A B C D
B
[解析] 此题中设定了一个sfun()函数,进行除法运算和求模运算。命令按钮的单击事件中,定义两个变量a=5,b=4,调用sfun函数传递a、b的值给x、y进行运算,t=x=5,y=4;x=t/y=5/4=1.25(除法运算);y=t Mod y=5 Mod 4=1(求模运算)。sfun函数参数没有指明参数传递方式,则默认以传址方式传递,因此a的值为1.25,b的值为1。
33. 下列代码实现的功能是:若在文本榧tNum中输入课程编号,则将在文本框tName显示“课表”中对应的“课程名称”。 Private Sub tNum_AfterUpdate() Me! tName=______ ("课程名称","课表","课程编号='"&Me! tNum&"'") End Sub 则程序中______处应该填写的是______。
38. 有如下事件程序,运行该程序后输出结果是______。 Private Sub Command33_Click() Dim x As Integer,y As Integer x=1:y=0 Do Until y<=25 y=y+x*x x=x+1 Loop MsgBox"x="&x&",y="&y End Sub
39. 在窗体上有一个命令按钮Command1,编写事件代码如下: Private Sub Command1_Click() Dim y As Integer y=0 Do y=InputBox("y=") If(y Mod 10)+Int(y/10)=10 Then Debug.Print y; LoopUntil y=0 End Sub 打开窗体运行后,单击命令按钮,依次输入10、37、50、55、64、20、28、19、-19、0,立即窗口上输出的结果是______。
A.37 55 64 28 19 19
B.10 50 20
C.10 50 20 0
D.37 55 64 28 19
A B C D
D
[解析] 此sub的作用是输出个位上的数、十位上的数相加和为10的数,其中y Mod 10是求出个位上的数,y/10是求出十位上的数。
40. 产品表中有日期类型字段“生产日期”,要查找在第一季度生产的产品,错误的是______。
A.Like"*/[1-3]/*"
B.Month([生产日期])>=1 And Month([生产日期])<=3
C.DatePart("q",[生产日期])=1
D.1>=Month([生产日期])<=3
A B C D
D
[解析] Access查找数据的条件表达式不支持连等式,因此选项D错误,应改写为“Month([生产日期])>=1 And Month([生产日期])<=3”;通配符“[]”通配方括号内列出的任一单个字符,"Like"*/[1-3]/*"”表示查找月份为1、2、3的记录;DATEPART(datepart,date)函数用于返回日期/时间的单独部分,比如年、月、日、小时、分钟等,date参数是合法的日期表达式,datepart参数为y时返回年,为q时返回季度。因此选择选项D。