更多"在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码"的相关试题:
[单项选择]
窗体上有一个名为Command1的命令按钮，并有如下程序：
Private Sub Command1_Click（ ）
Dim a(10), x%
For k=1 To 10
a(k)=Int(Rnd*90+10)
x=x+a(k)Mod 2
Next k
Print x
End Sub
程序运行后，单击命令按钮，输出结果是（）。
A. 10个数中奇数的个数
B. 10个数中偶数的个数
C. 10个数中奇数的累加和
D. 10个数中偶数的累加和
[单项选择]在窗体上画一个命令按钮，名称为Command1。 Private Sub Command1 Click（ ） Dim x As Integer，y As Integer x=10:y:0 Do x=x+2:y=y+x Print "x=", x; "y=",y If y＞20 Then Exit Do Loop Until x=18 End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是 ______。
A. x=12y=12 x = 14 y = 16 x=16 y=18
B. x=12 y=12 x= 16 y =28 x= 18 y=24
C. x=12 y=12 x= 14 y=44
D. x= 12 y=12 x= 14 y=26
[单项选择]在窗体上画一个名为Command1的命令按钮，然后编写以下程序：
Private Sub Command1_Click（ ）
Dim M(10)As Integer
For k=1 To 10
M(k)=12-k
Next k
x=8
Print M(2+M(x))
End Sub
运行程序，单击命令按钮，在窗体上显示的是
A. 6
B. 5
C. 7
D. 8
[单项选择]在窗体中添加一个命令按钮，并编写如下程序： Private Sub Command1_CliCk（ ） X=1∶Y=2∶Z=3 X=Y∶Y=Z∶Z=X Print Z End Sub 程序执行后，输出的结果是______。
A. 3
B. 0
C. 2
D. 1
[单项选择]在窗体中添加一个命令按钮，并编写如下程序：Private Sub Command1_ Click（ ） x=1: y=2: z=3 x=y: y=z: z=xEnd Sub程序执行后，输出的结果是______。
A. 3
B. 0
C. 2
D. 1
[单项选择]
在窗体上画一个名为Command1的命令按钮，然后编写以下程序：
Private Sub Command1_Click（ ）
Dim M(10)As Integer
For k=1 To 10
M(k)=12-k
Next k
x=8
Print M(2+M(x))
End Sub
运行程序，单击命令按钮，在窗体上显示的是（）
A. 6
B. 5
C. 7
D. 8
[单项选择]在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click（ ） Dim a As Integer, b As String, c As Integer a=1234: b=Str(a) c=Len(b) Print c End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。
A. 0
B. 5
C. 6
D. 7
[单项选择]在窗体中添加一个命令按钮(名称为Command1) ，然后编写如下代码： Private Sub Command1_Click( ) A=95 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
[单项选择]在窗体中添加一个命令按钮(名为Command1)，然后编写如下代码：
Private Sub Command1 Click( )
a＝0：b＝5：C＝6
MSgBOx a＝b+c
End Sub
窗体打开运行后，如果单击命令按钮，则消息框的输出结果是______。
A. 11
B. a＝11
C. 0
D. False
[单项选择]在窗体中添加一个命令按钮(名称为Command1)，然后编写如下代码：
Private Sub Command1_Click（ ）
a=0：b=0：C=6
MsgBox a=b+e
End Sub
窗体打开运行后，如果单击命令按钮，则消息框的输出结果为
A. 11
B. a=11
C. 0
D. False
[单项选择]在窗体上添加一命令按钮，其名为Command1，然后编写代码如下。 private Sub Command1_Click（ ） Dim arr(5)As Integer，arr1(5)As Integer n=3 For i=1 To 5 an(i)=i arrl(n)=2*n+i Next Print arr1(n)；arr(n) End Sub 程序的运行结果为
A. 3 11
B. 11 3
C. 13 3
D. 3 13
[单项选择]在窗体上添加一命令按钮，其名为Command1，然后编写代码如下：
private Sub Command1_Click（ ）
Dim an(5) As Integer，arrl(5) As Integer
n=3
For i=1 To 5
arr(i)=i
arrl(n)=2*n+i
Next
Print arrl(n);arr(n)
End Sub
程序的运行结果为
A. 3 11
B. 11 3
C. 13 3
D. 3 13
