更多"在窗体上添加一个命令按钮(名为Commandl) ,然后编写如下事件过"的相关试题:
[填空题]在窗体上添加一个命令按钮(名为Commandl),然后编写如下事件过程:
Private Sub Commandl_Click( )
Dim b,k
For k=1 to 6
b=23+k
Next k
MsgBox b+k
End Sub
打开窗体运行后,单击命令按钮,消息框的输出结果是【 】。
[单项选择]在窗体上添加一个命令按钮(名为Commandl) ,然后编写如下事件过程:
Private Sub Commandl_click( )
For i=1 To 4
x=4
For j=1 To 3
x=3
For k=1 To 2
x=x+6
Next k
Next j
Next i
MsgBox x
End Sub
打开窗体后,单击命令按钮,消息框的输出结果是( )。
A. 7
B. 15
C. 157
D. 528
[填空题]在窗体上添加一个命令按钮(名为Commandl),然后编写如下事件过程:
Private Sub Command 1_Click( )
Dim b,k
For k=1 to 6
b=23+k
Next k
MsgBox b+k
End Sub
打开窗体后,单击命令按钮,消息框的输出结果是______。
[单项选择]在窗体上添加一个命令按钮(名为Conunand1)和一个文本框(名为Text1),并在命令按钮中编写如下事件代码:
Private Sub Command1_Click( )
m=2170
n=Len (Str$ (m) +Space (5))
Me! Text1=n
End Sub
打开窗体运行后,单击命令按钮,在文本框中显示( )。
A. 5
B. 8
C. 9
D. 10
[单项选择]在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1),并在命令按钮中编写如下事件代码:
Private Sub Command1_Click( )
m=2.17
n=Len(Str$(m)+Space(5))
Mc! Text1=n
End Sub
打开窗体运行后,单击命令按钮,在文本框中显示( )。
A. 5
B. 8
C. 9
D. 10
[单项选择]在窗体上添加一个命令按钮,名为Command1,然后为该命令按钮编写如下事件过程,该过程执行结果为______。
Option Base 1
Private Sub Cemmand1_Click( )
Dim a As Variant
a = Array(1, 2, 3, 4)
j = 1
for i = 4 To 1 Step - 1
s = s+ a(i)* j
j= j* 10
Next i
Print s
End Sub
A. 4321
B. 1234
C. 34
D. 12
[填空题]在窗体上画一个命令按钮,然后编写如下代码:
Private Sub Commandl_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 Commandl Click( )
Do Until b<0
a=InputBox("输入a的值")
a=Val(a)
b=InputBox("输入b的值")
b=Val(b)
a=a +b
Loop
Print a
End Sub
程序运行后,依次输入5,4,3,2,1,0,-1,-2,则输出结果是 【14】 。
[填空题]在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Commandl Click( )
Do Until b<0
a=InputBox("输入a的值")
a=Val(a)
b=InputBox("输入b的值")
b=Val(b)
a=a +b
Loop
Print a
End Sub
程序运行后,依次输入5,4,3,2,1,0,-1,-2,则输出结果是 【14】 。
[填空题]在窗体上添加一个命令按钮(名为Command1),然后编写如下事件过程:
Private Sub Command1_Cliek
Dim b, k
For k = 1 to 6
b=23+k
Next k
MsgBox b + k
End Sub
打开窗体后,单击命令按钮,消息框的输出结果是 【15】 。
[填空题]在窗体上添加一个命令按钮(名为Command1),然后编写如下事件过程:
Private Sub Command1 Click( )
Dim b,k
For k=1 to 6
b=23+k
Next k
MsgBox b+k
End Sub
打开窗体后,单击命令按钮,消息框的输出结果是 [15] 。