更多"单击命令按钮时，下列程序的执行结果为 Prirate Sub C"的相关试题:
[单项选择]单击命令按钮时，下列程序的执行结果为
Prirate Sub Command1_CUck( )
Dim x As Integer，y As Integcr
x=12：y=32
Call PCS(x，y)
Print x；y
End Sub
Public Sub PCS(ByVal n As Integer，ByVnl m As Integer)
n=n Mod 10
m=m Mod 10
End Sub
A. 1232
B. 232
C. 23
D. 123
[单项选择]单击命令按钮执行下列程序，其输出结果是( )。
Private Sub Command1_Click（ ）
Dim a As Integer,b As Integer,c As Integer
a=3
b=4
c=5
Prim 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（ ） 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 Blck (x As Integer) x = x * 2 + l If x ＜6 Then Call Blck(x) End If x = x * 2 + 1 Print x； End Sub Private Sub Commandl_Click（ ） Blck 2 End Sub
A. 23 47
B. 10 36
C. 22 44
D. 24 50
[单项选择]单击命令按钮，下列程序的执行结果为( )。
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 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 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
