更多"在窗体中有一个名为Command1的命令按钮，Click事件代码如下。"的相关试题:
[填空题]
在窗体中有一个名为Command1的命令按钮，Click事件的代码如下：
Private Sub Command1_Click（ ）
f=0
For n = 1 To 10 Step 2
f = f+n
Next n
Me!Lb1.Caption = f
End Sub
单击命令按钮后，标签显示的结果是（）。
[填空题]窗体中有一个命令按钮，然后编写下列事件过程：Private Sub Command1_Click（ ） x=0 Do Untilx=-1 a=InputBox("请输入第一个数字a的值") a=Val(a) b=InputBox("请输入第二个数字b的值") b=Val(b) x=InputBox("请输入第三个数字x的值") x=Val(x) a=a+b+x Loop Print a End Sub 在程序运行后，单击命令按钮，在对话框中分别输入5,4,8,5,8,-1，输出的结果是（）。
[单项选择]
窗体上有一个名为Command1的命令按钮，并有如下程序：
Private Sub Command1_Click（ ）
Dim a As Integer, b As Integer
a=8
b=12
Print fun(a, b); a; b
End Sub
Private Function Fun(ByVal a As Integer, b As Integer)As Integer
a=a Mod 5
b=b/5
Fun=a
End Function
程序运行时，单击命令按钮，则输出结果是（）。
A. 3 3 2
B. 3 8 2
C. 8 8 12
D. 3 8 12
[单项选择]窗体上有一个名为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 arr(5) As Integer
For k = 1 To 5
arr(k) = k
Next k
prog arr（ ）
For k = 1 To 5
Print arr(k);
Next k
End Sub
Sub prog(a（ ） As Integer)
n = UBound(a)
For i = n To 2 step-1
For j = 1 To n-1
if a(j) ＜ a(j+1) Then
t=a(j):a(j)=a(j+1):a(j+1)=t
End If
Next j
Next i
End Sub
程序运行时，单击命令按钮后显示的是（）。
A. 1 2 3 4 5
B. 5 4 3 2 1
C. 0 1 2 3 4
D. 4 3 2 1 0
[单项选择]在窗体中有一个命令按钮Command1，编写事件代码如下。
Private Sub Command1_Click（ ）
Dim s As Integer
s=P(1)+P(2)+P(3)+P(4)
debugPrint s
End Sub
Public Function P(N As Integer)
Dim Sum As Integer
Sum=0
For i=1 To N
Sum=Sum+i
Next i
P=Sum
End Function
打开窗体运行后，单击命令按钮，输出结果是( )。
A. 15
B. 20
C. 25
D. 35
[单项选择]在窗体中有一个命令按钮command1，编写事件代码如下：
Private Sub Command1_Click（ ）
Dim s As Integer
s=P(1)+P(2)+P(3)+P(4)
Debug.Print s
End Sub
Public Function P(N As Integer)
Dim Sum As Integer
Sum=0
For i=1 To N
Sum=Sum+1
Next i
P=Sum
End Function
打开窗体运行后，单击命令按钮，输出的结果是
A. 15
B. 20
C. 25
D. 35
[单项选择]若在某窗体模块中有如下事件过程：
Private Sub Command1_Click(Index As Integer)
……
End Sub
则以下叙述中正确的是( )
A. 此事件过程与不带参数的事件过程没有区别
B. 有一个名称为Command1的窗体，单击此窗体则执行此事件过程
C. 有一个名称为Command1的控件数组，数组中有多个不同类型控件
D. 有一个名称为Command1的控件数组，数组中有多个相同类型控件
[单项选择]设窗体文件中有下面的事件过程：
Private sub Command1_Click（ ）
Dim S
a%=100
Print a
End Sub
其中变量a和s的数据类型分别是( )
A. 整型，整型
B. 变体型，变体型
C. 整型，变体型
D. 变体型，整型
[单项选择]设窗体文件中有下面的事件过程：
Private Sub Command1_Click（ ）
Dim a
b $="Visual Basic"
Print b
End Sub
其中变量a和b的数据类型分别是______。
A. 字符串型，字符串型
B. 变体型，变体型
C. 字符串型，变体型
D. 变体型，字符串型
[单项选择]在窗体上画一个命令按钮，然后编写如下程序
Private Sub Command1_Click( )
Dim a As Integer，b As hiteger
a=1
b=2
Print N(a，b)
End Sub
Function N(x As Integer，y As Integer)As Integer
N=IIf(x>y，x，y)
End Function
程序运行后，单击命令按钮，输出结果为
A. 1
B. 2
C. 5
D. 8
[填空题]在窗体上画一个名为Command1的命令按钮，编写如下程序：
Private Sub Command1_Click（ ）
Dim M(10)As Integer
For k=1 To 10
M(k)=12-k
Next k
x=6
Print M(2+M(x))
End Sub
程序运行后，单击命令按钮，输出的结果是______。
[单项选择]窗体上有一个列表框，编写下列程序： Private Sub Command1_Click（ ） List1. RemoveItem3 End Sub Private Sub Form_Load（ ） List1. AddItem "拉瓦锡" List1. AddItem "道尔顿" List1. AddItem "汤姆森" List1. AddItem "门捷列夫" End Sub 程序执行时，单击Commandd1，则在列表框中将不再出现 ______。
A. 拉瓦锡
B. 道尔顿
C. 汤姆森
D. 门捷列夫
[填空题]在窗体上画一个命令按钮，然后编写如下代码：
Private Sub Command1_Click（ ）
Dim M(10)As Integer
For k=1 To 10
M(k)=12-k
Next k
X=6
Msgbox M(2+M(x))
End Sub
程序运行后，单击命令按钮，消息框显示的是______。
[填空题]在窗体上画一个命令按钮，然后编写如下代码：
Private Sub Command1_click（ ）
Dim M(10)As Integer
For k=1 To 10
M(k)=12-k
Next k
x=6
MsgboxM(2+M(x))
End Sub
程序运行后，单击命令按钮，消息框显示的是 【13】 。
