在窗体中有一个命令按钮(名为Command1),其事件代码如下: Private Sub Command1_Click() Dim a(5, 5) For m = 2 To 3 For n = 1 To 2 a(m, n) = m * n Next n Next m MsgBox a(2, 1) + a(3, 2) End Sub 运行该窗体后,单击命令按钮,则消息框的输出结果为( )。
A: 8
B: 6
C: 2
D: 16
A: 8
B: 6
C: 2
D: 16
举一反三
- 在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim a(5,5) For i=1 To 3 Forj=1 To 4 a(i,j))=i*j Next Next For n=1 To 2 For m=1 To 3 Print a(m,n); Next Next End Sub 程序运行后，单击命令按钮，输出结果是( )。 A: A) 246123 B: B) 123246 C: C) 123456 D: D) 654321
- 在窗体中有一个命令按钮(名为Command1),其事件代码如下: Private Sub Command1_Click() a = 1: b = 2: c = 6 MsgBox a = b + c End Sub, 运行该窗体后,单击命令按钮,则消息框的输出结果为( )。
- 在窗体上有一命令按钮Command1,其Click事件代码如下: Private Sub Command1_Click() Dim a%, b%, i%, n% For i = 1 To 10 n = InputBox("请输入一个整数", "输入数据框", 2) If n Mod 2 = 0 Then a = a + 1 Else b = b + 1 End If Next i MsgBox ("运行结果a=" & str(a) & ", b=" & str(b)) End Sub
- 中国大学MOOC: 在窗体上添加一个命令按钮Command1，然后编写如下事件过程：Private Sub Command1_Click() For n = 1 To 20 If n Mod 3 <> 0 Then m = m + n \ 3 Next n Print nEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是（ ）。
- 编写如下程序: Private Sub Command1_Click； Dim m As Integer, n As Integer m = 2 : n = 1 Select Case m Case 1 Select Case n Case 1 Print "AAA" Case 2 Print "BBB" End Select Case 2 Print "CCC" End Select End Sub 程序运行后,单击命令按钮Command1,输出结果为 A: BBB B: CCC C: AAA D: 1