更多"在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： "的相关试题:
[单项选择]在窗体上画一个命令按钮，名称为Commandl。然后编写如下程序：
Private Sub Command1_Ctick（ ）
For I=1 TO 2
For J=1 TO I
Print String(I，"Hello")；
Next J
Print
Next I
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A. H
B. H
C. HHHHH
D. H
[单项选择]在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：
Private Sub Command1_Click（ ）
Dim i As Integer，j As Integer
Dim a(10， 10)As Integer
For i=1 To 3
For i=1 To 3
a(i，j)=(i-1) *3+j
Print a(i，j)；
Next i
Print
Next i
End Sub
程序运行后，单击命令按钮，窗体上显示的是
A. 1 2 3
B. 2 3 4
C. 1 4 7
D. 1 2 3
[填空题]在窗体上画一个命令按钮，然后编写如下事件过程：
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（ ）
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【14】。
[单项选择]在窗体上画一个命令按钮，然后编写如下程序：
Private Sub Commandl_Click( )
Dim a AS Integer，b As Integer
a=15
b=2
t 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. 15
D. 8
[单项选择]在窗体上画两个命令按钮，然后编写以下代码： Private Sub Commandl_ Click（ ） Dim i As Long Dim i As Integer Dim x For i=1 To 10000000 x=DoEvents For j=1 To 1000000 Next j Cls Print i Next i End Sub Private Sub Command2_Click（ ） Dim x As Integer Dim i As Integer x=0 For i=1 To 10 x=x+i Next i MsgBox x End Sub 当程序执行后，单击命令按钮Command1，在窗体上将显示以一定的时间间隔(从1、2、…一直到 10000000这10000000个数字)，如果再单击命令按钮Command2，将会出现的情况是______。
A. 没有任何变化，数字仍按原有的规律显示
B. 将会中断在窗体上数字从小到大的显示，弹出一个对话框，待用户单击“确定”按钮关闭对话框后，数字再按原来的规律继续在窗体上显示
C. 将会弹出一个对话框，待用户单击“确定”按钮关闭对话框后，窗体上的数字将保持中断时候的值，也就是说不再按规律变化显示
D. 窗体上的数字仍按原有的规律在窗体上显示，然后同时会弹出一个对话框，待用户单击“确定”按钮后对话框关闭
[填空题]在窗体上画一个命令按钮，然后编写如下事件过程：
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，则输出结果是【15】。
[单项选择]在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click（ ） Dim x As Integer，y As Integer x = 41： y = 54 Call sub1(x，y) x = x + 1 Print x； y End Sub Private Sub sub1(n As Integer， ByVal m As Integer) n=n Mod 10 m=m/10 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
A. 41 54
B. 2 54
C. 1 3
D. 42 3
