31. 在窗体中添加一个命令按钮(名为Command1),然后编写如下代码: Private Sub Command1_Click() Dim a(10, 10) For m=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 窗体打开运行后,单击命令按钮,则消息框的输出结果是______。
A.22
B.32
C.42
D.52
A B C D
C
[解析] 根据程序,a(2, 5)+a(3, 4)+a(4, 5)=2×5+3×4+4×5=42。
32. 在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为Text1),并在命令按钮中编写如下事例代码: Private Sub Command1_Click() m=2.17 n=Len(Str$(m)+Space(5)) Me Text1=n End Sub 窗体打开运行后,单击命令按钮,在文本框中显不______。
33. 在窗体中添加一个命令按钮(名为Command1),然后编写如下代码: Private Sub Command1_Click() A=75 If A>60 Then I=1 If A>70 Then I=2 If A>80 Then I=3 If A>90 Then I=4 MsgBox I End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果是______。
34. 在窗体中添加一个命令按钮(名为Command1),然后编写如下代码: Private SUb Command1 Click() S="ABBACDDCBA" For I=6 To 2 Step -2 x=Mid(S, I, I) y=Left(s, I) z=Right(s, I) z=x & y & z Next I MsgBox z End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果是______。
35. 在窗体中添加一个命令按钮(名为Command1),然后编写如下代码: Public x as integer Private Sub Command1 Click() a=10 Call s1 Call s2 MsgBox x End Sub Private Sub s1() x=x+20 End Sub Private Sub s2() Dim x as integer x=x+20 End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果是______。
12. 在窗休上有一个文本框控件,名称为Text1。同时,窗体加载时没置其计时器间隔为1s,计时器触发事件过程则实现在Text1文本框中动态显示当前日期和时间。请补充完整。 Private Sub Form_Load() Me.TimerInterval=1000 End Sub Private Sub ______ Me.Text1=Now() End Sub
14. 下面VBA程序段运行时,内层循环总次数是______。 For m=0 To 7 Step 3 For n=m-1 To m+1 Next n Next m
9
[解析] 外层循环“For m=0 To 7 step 3”从0到7,每运行一次加3,外层循环运行一次,内层循环3次,所以3×3=9,内层循环的循环总次数是9次。
15. 在窗体中添加一个命令按钮(名为Command1),然后编写如下代码: Private Sub Command1 Click() Dim b, k For k=1 to 6 B=23+k Next k MsgBox b+k End Sub 窗体打开运行后,三次单击命令按钮,消息框的输出结果是______。