2. 在窗体上有一个命令按钮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; Loop Until 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
[解析] 分析if语句,当计算表达式(y mod 10)+int(y/10)等于10时,立即窗口显示输入的数字。当输入第一个数字10时,(y mod 10)+int(y/10)=0+1=1不等于10,不显示;当输入第二个数字37时,(y mod 10)+int(y/10)=7+3=10,显示数字37,依次类推,结果为选项D。
3. 如下图所示的是Access中的一个______
A.表
B.视图
C.报表
D.数据访问页
A B C D
A
4. 下列逻辑表达式中,能正确表示条件“x和y都是奇数”的是______
A.x Mod 2=1 Or y Mod 2=1
B.x Mod 2=0 Or y Mod 2=0
C.x Mod 2=1 And y Mod 2=1
D.x Mod 2=0 And y Mod 2=0
A B C D
C
[解析] 本题考查逻辑表达式的知识。判断奇偶数是程序设计中常见的判断,x Mod 2=1代表x是奇数。如果要表达x、y都是奇数,则应该用And连接两个表达式来表示“与”,故此C选项正确。
13. 在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Click() Dim a(10,10) Form=2 To 4 For n=4 To 5 a(m,n)=m*n Next n Next m MsgBox a(2,5)+a(3,4)+a(4,5) End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果是______。
22. 窗体中有命令按钮run34,对应的事件代码如下: Private Sub run34_Enter() Dim num As Integer,a As Integer,b As Integer,i As Integer For i=1 T0 10 num=InputBox("请输入数据:","输入") If Int(num/2)=num/2 Then a=a+1 Else b=b+1 End If Next i MsgBox("运行结果:a="&Str(a)&",b="&Str(b)) End Sub 运行以上事件过程,所完成的功能是______。
27. 下列程序的功能是求算式:1-1/2+1/3-1/4+…前30项之和。 Private Sub Command1_Click() Dim i as integer, s as single, f as integer s=0: f=1 For i=1 To 30 s=s+f/i f=______ Next i Debug.Print"1-1/2+1/3-1/4+…="; s End Sub 横线处应填写的内容是______。