更多"在窗体上画一个命令按钮，然后编写如下事件过程： Private "的相关试题:
[填空题]在窗体上画一个命令按钮，然后编写如下事件过程：
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】。
[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl—Click（ ）
x=InputBox(“请输入一个整数”)
Print x+345
End Sub
程序运行后，单击命令按钮，在输入对话框中输入123，则在窗体上输出的内容为( )
A. 123345
B. 468
C. 123
D. 345
[填空题]在窗体上画一个命令按钮，其名称为Commandl，然后编写如下程序：
Private Sub Commandl_click（ ）
Dim a(10) As Integer
Dim x As Integer
For i＝1 To 10
a(i) ＝i
Next i
x＝1
MsgDox a(f(x) +x)
End Sub
Function f(y As Integer)
y＝y+2
End Function
程序运行后，单击命令按钮，消息框的输出结果为______。
[单项选择]
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：
Private Sub Command1_Click（）
Dim a$, b$，c$, k%
a="ABCD”
b=”123456”
c=""
k=1
Do While k＜= Len（a）Or k＜=Len（b）
If k＜=Len（a）Then
c=c＆Mid（a, k, 1）
End If
If k＜=Len（b）Then
c=c＆Mid（b, k, 1）
End If
k=k＋1
Loop
Print c
End Sub
运行程序，单击命令按钮，输出结果是（）
A. 123456ABCD
B. ABCD123456
C. D6C5B4A321
D. AlB2C3D456
[单项选择]
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：
Private Sub Commandl_click（ ）
Dim i As Integer,X As Integer
For i=1 To 6
If i=1 Then x=i
If i＜=4 Then
x=x+1
Else
x=x+2
End If
Next i
Print x End Sub
程序运行后，单击命令按钮，其输出结果为（）。
A. 9
B. 6
C. 12
D. 15
[填空题]在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：
Private Sub Commandl_click（ ）
Dim i As Integer,x As Integer
For i＝1 To 6
If i＝1 Then x＝i
If i<＝4 Then
x＝x+1
Else
x＝x+2
End If
Next i
MsgBox x
End Sub
程序运行后，单击命令按钮，其输出结果为______。
[填空题]在窗体上画一个命令按钮(其Name属性为Commandl)，然后编写如下代码：
Private Sub Commandl_Click（ ）
DimM(10)As Integer
Fork=1 To 10
M(k)=12-k
Nextk
x=6
PrintM(2+M(x))
End Sub
程序运行后，单击命令按钮，输出结果是______。
[填空题]在窗体上画一个命令按钮(其Name属性为Commandl)，然后编写如下代码：
Private Sub Commandl_Click（ ）
Dima(5)
Fori=0 To 4
A(i)=i+1
t=i+1
If t=3 Then
Print a(i)
A(t-1)=a(i-2)
Else
A(t)=a(i)
End If
Ifi=3 Thena(i+1)=a(t-4)
A(4)=1
Printa(i)
NextI
End Sub
程序运行后，单击命令按钮，输出结果是上______。
[单项选择]在窗体上画一个名称为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（ ）
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. 窗体上的数字仍按原有的规律在窗体上显示，然后同时会弹出一个对话框，待用户单击“确定”按钮后对话框关闭
[单项选择]在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click（ ） x=Input Box("Input") Select Case x Case 1,3 Print"分支1" Case Is＞4 Print"分支2" Case Else Print"Else分支" End Select End Sub 程序运行后，如果在输入对话框中输入2，则窗体上显示的是( )。
A. 分支1
B. 分支2
C. Else分支
D. 程序出错
[单项选择]在窗体中有一个命令按钮Commandl，对应的事件代码如下：
Private Sub Commandl_nter（ ）
Dim num As Integer
Dim a As Integer
Dim b As Integer
Dim i As Integer
For i＝1 To 10
num＝InputBox(“请输入数据：”，“输入”，1)
If Int(num/2) ＝num/2 Then
a＝a+1
Else
b＝b+1
End If
Next i
MsgBox(“运行结果：a＝"& Str(
A. &:",b＝"& Str(
B. )
