更多"单击窗体上Commandl命令按钮时，执行如下事件过程： Priva"的相关试题:
[单项选择]单击窗体上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时，输出结果为（）。
[单项选择]在窗体上画一个名称为Command1的命令按钮。单击命令按钮时执行如下事件过程：
Private Sub Command1_Click（ ）
a$="software and hardware"
b$=Right(a$,8)
c$=Mid(a$,1,8)
MsgBox a$,,b$,c$,1
End Sub
则在弹出的信息框标题栏中显示的标题是( )
A. software and hardware
B. hardware
C. software
D. 1
[单项选择]在窗体上画两个命令按钮，然后编写以下代码：
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. 窗体上的数字仍按原有的规律在窗体上显示，然后同时会弹出一个对话框，待用户单击“确定”按钮后对话框关闭
[单项选择]在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：
Private Sub Command1_Click( )
a$="software and hardware"
b$=Right(a$，8)
c$=Mid(a$，1，8)
MsgBox aS，b$，c$，1
End Sub
则在弹出的信息框的标题栏中显示的信息是
A. software and hardware
B. software
C. hardware
D. 1
[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程：
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
[单项选择]窗体上有名称为Commandl的命令按钮和名称为Text1的文本框 Private Sub Command1_Cliek（ ） Text1.Text="程序设计" Text1.SetFocus End Sub Private Sub Text1_GotFocus（ ） Text1.Text="等级考试" End Sub 运行以上程序，单击命令按钮后（）
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】。
[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl—Click（ ）
x=InputBox(“请输入一个整数”)
Print x+345
End Sub
程序运行后，单击命令按钮，在输入对话框中输入123，则在窗体上输出的内容为( )
A. 123345
B. 468
C. 123
D. 345
[单项选择]单击一次命令结束后，下列程序的执行结果是
Private Sub Commandl_Click( )
s=Sat(1)+Sat(2)+Sat(3)+Sat(4)
Print s
End Sub
Public Function Sat(N As Integer)
Static Sum
For i=1 To N
Sum=Sum+i
Next i
Sat=Sum
End Function
A) 15
B) 25
C) 35
D) 45
[填空题]在窗体上画一个命令按钮，其名称为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
程序运行后，单击命令按钮，消息框的输出结果为______。
[单项选择]在窗体上画一个命令按钮，名称为Comraandl。单击该命令按钮时，执行如下事件过程：
Private Sub Command1_Click（ ）
a$="software and hardware"
b$=Right(a$, 8)
c$=Mid(a$, 1, 8)+b$
MsgSox a$, 1, b$
End Sub
则在弹出的消息框的标题栏中显示的信息是______。
A. software and hardware
B. software
C. hardware
D. 1
[单项选择]
在窗体上画一个命令按钮，其名称为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
