在窗体上有一命令按钮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
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
举一反三
- 窗体上有一个名为Command1的命令按钮，编写如下事件过程： Private Sub Command1_Click() i = 0 Do While i < 8 For j = 1 To i n = n + 1 Next i = i + 1 Loop Print n End Sub 运行程序，单击命令按钮，则输出结果是______。
- 在窗体中有一个命令按钮(名为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
- 在窗体上添加一个文本框Text1和一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer, n As Integer For i = 0 To 50 i = i + 3 n = n + 1 If i > 10 Then Exit For Next Text1.Text = Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（ ）。
- 在窗体上画一个命令按钮(其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＝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 窗体打开运行后，单击命令按钮，则消息框的输出结果是______。 A: 1 B: 2 C: 3 D: 4