（ 31 ）在窗体中添加一个名称为 Command l 的命令按钮，然后编写如下事件代码：Private Sub Command I 一 lick （）a= 75If a>60 Thenk ＝ 1EIseIf a>70 Thenk ＝ 2EIseIf a>80 Thenk ＝ 3E1seIf a>90 Thenk ＝ 4EndIfMsgBox kEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是A ） 1B ） 2C ） 3D ） 4
题目
（ 31 ）在窗体中添加一个名称为 Command l 的命令按钮，然后编写如下事件代码：
Private Sub Command I 一 lick （）
a= 75
If a>60 Then
k ＝ 1
EIseIf a>70 Then
k ＝ 2
EIseIf a>80 Then
k ＝ 3
E1seIf a>90 Then
k ＝ 4
EndIf
MsgBox k
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是
A ） 1
B ） 2
C ） 3
D ） 4
相似考题
更多“( 31 )在窗体中添加一个名称为 Command l 的命令按钮,然后编写如下事件代码:Private Sub Command ”相关问题
-
第1题：
在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，然后编写如下事件过程：
打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。
正确答案：12
12 解析： 本题考查的是VBA编程基础、参数传递。由于VBA中，默认情况下，参数是按地址传递(ByRef)，结果会返回。本题中z的值等于x+y，所以文本框中显示的内容为12。 -
第2题：
在窗体中添加名称为Command1和名称为Command2的命令按钮测验文本框Text1，然后编写如下代码：
PrivateSubCommand1_Click()
Text1.Text="AB"
EndSub
PrivateSubCommand2_Click()
Text1.Text="CD"
EndSub
首先单击Command2按钮，然后再单击Command1按钮，在文本框中显示( )
A、AB
B.CD
C.ABCD
D.CDAB
正确答案：A
-
第3题：
（ 30 ）在窗体中添加一个命令按钮（名称为 Command1 ），然后编写如下代码：
Private Sub Command1_Click( )
a=0 : b=5 : c=6
MsgBox a=b+c
End Sub
窗体打开运行后，如果单击命令按钮，则消息框的输出结果为
A ） l1
B ） a=11
C ） 0
D ） False
正确答案：D
-
第4题：
在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程：
Private Sub Command1_Cliek
Dim b, k
For k = 1 to 6
b=23+k
Next k
MsgBox b + k
End Sub
打开窗体后，单击命令按钮，消息框的输出结果是【 】。
正确答案：51
51 解析：本题循环内部完成b=231+2+3+4+5+6的操作，当k=7时，结束循环，故消息框中显示的是51。 -
第5题：
在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1，然后编写如下代码： Private Sub Command1_Click( ) Text1.Text="AB" End Sub Private Sub Command2_Cliek( ) Text1.Text="CD" End Sub 首先单击Command1按钮，然后再单击Command2按钮，在文本框中显示
A．AB
B．CD
C．ABED
D．CDAB
正确答案：B
解析：当单击Command1时，Text1的Text变为AB；当单击Command2时，Text1的Text属性变为CD。 -
第6题：
（ 11 ）在窗体中添加一个命令按钮（名称为 Command1 ），然后编写如下代码：
Private Sub Command1_Click( )
Static b As Integer
b=b+1
End Sub
窗体打开运行后，三次单击命令按钮后，变量 b 的值是 【 11 】 。
正确答案：