更多"设有命令按钮Commandl的单击事件过程，代码如下： Privat"的相关试题:
[单项选择]单击窗体上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 SubCommandl_Click（ ）
Dim a(3,3) As Integer
For i＝1 To 3
For i＝1 To 3
a(i,j) ＝i*j+i+j
Next j
Next i
Sum＝0
Fori＝1 To 3
Sum＝Sum+a(i,4-i)
Next i
MsgBox Sum
End Sub
运行程序，单击命令按钮，消息框输出结果是______。
[填空题]窗体上命令按钮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时，输出结果为【 】。
[填空题]窗体上命令按钮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 Commandl_Click（ ）
Dim a As Integer，b As Integer，c As Integer
a=3:b=4:c=5
Print SecProc(c，b，a)
End Sub
Function FirProc(x As Integer，y As Integer，z As Integer)
FirProc=2*x+y+3*z
End Function
Function SecProc(x As Integer，y As Integer，z As Integer)
SecProc=FirProc(z，x，y) +x
End Function
A. 20
B. 22
C. 28
D. 30
[单项选择]单击命令按钮，下列程序的执行结果为( )。
Private Sub Commandl_Click（ ）
Dim x As Integer，y As Integer
x=32：y=42
Call PCS(x，y)
Print x；y
End Sub
Public Sub PCS(Byval n As Integer，ByVal m As Integer)
n=n Mod 10+1
m=m Mood 10+1
End Sub
A. 32 42
B. 2 32
C. 2 3
D. 12 3
[单项选择]单击命令按钮时，下列程序的执行结果为( )。
Private Sub Commandl_Click（ ）
Dimx As Integer，y As Integer
x=12： y=32
CallPCS(x，y)
PrintX；y
End Sub
PubUc Sub PCS(ByValn As Integer，ByValm As Integer)
n=nMod 10
m=mMod 10
End Sub
A. 1232
B. 232
C. 23
D. 123
[填空题]在窗体上画一个命令按钮，然后编写如下事件过程：
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】 。
[单项选择]在窗体上绘制一个名称为Commandl的命令按钮，然后编写如下事件过程：
Private Sub Commandl Click（ ）
c="ABCD"
For n=1 To 4
Print ______
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
D
CD
BCD
ABCD
则在横线处应填入的内容为
A. Left(c,n)
B. Right(c，n)
C. Mid(c，n，1)
D. Mid(c,n,n)
[单项选择]在窗体上画一个名称为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
