更多"单击命令按钮时，下列程序的执行结果为 Private Sub"的相关试题:
[单项选择]单击命令按钮时，下列程序的执行结果为
Private Sub Command1_Click( )
Dim x As Integer, y As Integer
x=12:y=32
Call PCS(x, y)
Print x; y
End Sub
Public Sub PCS( ByVal n As Integer, ByVal m As Integer)
n = n Mod 10
m=m Mod 10
End Sub
A. 12 32
B. 2 32
C. 2 3
D. 12 3
[单项选择]单击命令按钮时，下列程序的执行结果是 Private Sub Book(x As Integer) x=x * 2 + l If x＜6 Then Call Book(x) End If X=X * 2 + 1 Print x； End Sub Private Sub Command2_Click（ ） Book2 End Sub A) 23 47
B) 10 36
C) 22 44
D) 24 50
[单项选择]单击命令按钮时，下列程序的执行结果是
Private Sub Command1_Click（ ）
BT 4
End Sub
Private Sub BT(x As Integer)
x=x*2+1
If x＜6 Then
Call BT(x)
End If
x=x*2
Print x；
End Sub
Ａ) 15 Ｂ) 16
Ｃ) 17 Ｄ) 18
[单项选择]单击命令按钮时，下列程序的执行结果是( )。
Private Sub Command1_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+2
End Function
Function SecProc (x As Integer，y As hteger，z As Integer)
SecProc=FirProc(z，x，y)+x+7
End Function
A. 13
B. 16
C. 36
D. 33
[单项选择]单击命令按钮时，下列程序的执行结果为
Private Sub Command1_Click（ ）
Dim x As Integer，y As Integer
x=12：y=32
Call Proc(x，y)
Print x；y
End Sub
Public Sub Proc(n As Integer，ByVal m As Integer)
n=n Mod 10
m=m Mod 10
End Sub
A. 12 32
B. 2 32
C. 2 3
D. 12 3
[单项选择]单击命令按钮时，下列程序的执行结果为（ ）。
Private Sub Command1_Click（ ）
Dim a As Integer，b As Integer，c As Integer
a=2：b=3：C=4 Print P2(c，b，A)
End Sub
Private Function P1(x As Integer，y As Integer，z As Integer)
P1=2 * X + y + 3 * z
End Function
Private Function P2(x As Integer，y As Integer，z As Integer)
P2=P1(z，x，y) + X
End Function
A. True
B. boolean
C. int
D. public
[单项选择]单击命令按钮时，下列程序的执行结果是( )。
Private Sub Command1_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 Command1_Click( )
Print MyFunc(24，18)
End Sub
Public Function MyFunc(m As Integer，n As Integer)As Integer
Do While m ◇ n
Do While m>n：m=m—n：Loop
DO While m＜n：n=n-m：Loop
Loop
My Func=m
End Function
A. 2
B. 4
C. 6
D. 8
[单项选择]单击命令按钮时，下列程序段的执行结果为( )。
Private Sub Command1_Click（ ）
Dim a As Integer, b As Integer, c As Integer
a-2:b=4:c=6
Call S1(a, b)
Print "a="; a; "b="; b; "c="; c
Call S2(a, b)
Print "a ="; a; "b="; b; "c="; c;
End Sub
Private Sub S1(x As Integer, y As Integer)
Dim c As Integer
x=2*x:y=y+2:c=x+y
End Sub
Sub S2(x As Integer, ByVal y As Integer)
Dim e As Integer
x=2*x:y=y+2:e=x+y
End Sub
A. a=4 b=6 c=6
B. a=8 b=6 c=6
C. a=4 b=6 c=6
D. a=8 b=6 c=6
