更多"窗体上命令按钮的事件过程如下： Private Sub Comman"的相关试题:
[单项选择]单击窗体上Commandl命令按钮时，执行如下事件过程：
Private Sub Commandl＿Click（ ）
a$="Software and hardware"
b$=Right(a$，8)
c$=Mid(a$，l，8)
Msgbox a$，，b$，c$，l
EndSub
则在弹出的信息框的标题栏中显示的信息是( )。
A. software andhardware
B. software
C. hardware
D. l
[填空题]窗体上命令按钮Commandl的事件过程如下：
Private Sub Command1_Click（ ）
Dim total As Integer
total=s(1)+s(2)
Print total
End Sub
Private Function s(m As Integer)As Integer
Static x As Integer
For i=1 To m
x=x+1
Next i
s=x
End Function
运行程序，第3次单击命令按钮Command1时，输出结果为 【7】 。
[填空题]
窗体上命令按钮Commandl的事件过程如下：
Private Sub Command1_Click（ ）
Dim total As Integer
total=s(1)+s(2)
Print total
End Sub
Private Function s(m As Integer)As Integer
Static x As Integer
For i=1 To m
x=x+1
Next i
s=x
End Function
运行程序，第3次单击命令按钮Command1时，输出结果为（）。
[单项选择]窗体上有一个命令按钮，命令按钮的单击事件过程如下。
Private Sub Command1_Click（ ）
Dim a
a:Array(1,2,3,4,5)
For k=1 To 4
s=s+a(k)
Next
Print s
End Sub
运行程序后，单击命令按钮，输出结果是( )。
A. 10
B. 14
C. 15
D. 120
[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl Click（ ）
Dim a（ ）
a＝Array(1，3，5，7)
s=O
For i＝1 TO 3
S=S*10十a(i)
Next i
PrInt S
End Sub
程序运行后，输出结果为( )。
A. 135
B. 357
C. 531
D. 753
[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1 Click（ ）
x=0
Do Until x=-1
a=InputBox("请输入A的值")
a=Val(a)
b=lnputBox("请输人B的值")
b=Val(b)
x=InputBox("请输入x的值")
x=Val(x)
a=a+b+x
Loop
Print a
End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为( )
A. 2
B. 3
C. 14
D. 15
[填空题]在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1 Click（ ）
Do While b＞＝0
a＝Val(InputBox("请输入a的值"))
b＝Val(InputBox("请输入b的值"))
c＝a+b
Loop
MsgBox c
End Sub
程序运行后，依次输入3,2,1,0,-1,-2，则输出结果是______。
[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl—Click（ ）
x=InputBox(“请输入一个整数”)
Print x+345
End Sub
程序运行后，单击命令按钮，在输入对话框中输入123，则在窗体上输出的内容为( )
A. 123345
B. 468
C. 123
D. 345
[单项选择]在窗体上有一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（ ）
Dim a(5)As String
FOR i=1 To 5
a(i):Chr(Asc(“A“)+(i-1))
Next
For Each b In a
Printb：
Next
End Sub
程序运行后，单击命令按钮，输出结果是( )。
A. ABCDE
B. 12345
C. abcde
D. 出错信息
[单项选择]
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（ ）
Dim a（ ）
a=Array(1,3,5,7)
s=0
Fori=1 To 3
s=s*10+a(i)
Nexti
MsgBox s
End Sub
程序运行后，输出结果为（）。
A. 135
B. 357
C. 531
D. 753
