更多"单击按钮时,以下程序运行后的输出结果是( )。
Private"的相关试题:
[单项选择]单击按钮时,以下程序运行后的输出结果是 Private Sub Commandl_Click( ) Dim X As Integer,y As Integer,z As Integer x=1:y=2: Z=3 Call God(x,x,z) Print x;x;z Call God(x,y,y) Print X;y;y End Sub Private Sub God(x As Integer,y As Integer,z As Integer) x=3 * Z + 1 y=2 * Z z=x + y End Sub
A. 6 6 12 7 11 11
B. 8 5 10 5 11 11
C. 9 6 12 9 10 15
D. 8 10 10 5 9 10
[单项选择]单击按钮时,以下程序运行后的输出结果是 Private Sub proc1(x As Integer,y As Integer,z As Integer) x=3*z y=2*z z=x+y End Sub Private Sub Command1_Click( ) Dim x As Integer,y As Integer,Z As Integer x=1:y=2:z=3 Call proc1(x,x,z) Print x;x;z Call proc1(x,y,y) Print x;y;y End Sub
A. 6 6 12 `
B. 9 5 10 6101051010
C. 9 6 12
D. 9 10 10 910155410
[单项选择]单击按钮时,以下程序运行后的输出结果是
Private Sub Command1_Click( )
Dim x As Integer,y As Integer,z As Integer
x=1:y=2:z=3
Call God(x,x,z)
Print x;x;z
Call God(x,y,y)
Print x;y;y
End Sub
Private Sub God(x As Integer,y As Integer,z As Integer)
X=3*z+1
Y=2*Z
z=x+y
End Sub
A. 6 6 12
B. 8 5 10
C. 9 6 12
D. 8 10 10
[单项选择]单击按钮时,以下程序运行后的输出结果是( )。
Private Sub Commandl_Click( )
Dim X As Integer,y As Integer,z As Integer
x=1:y=2: Z=3
Call God(x,x,z)
Print x;x;z
Call God(x,y,y)
Print X;y;y
End Sub
Private Sub God(x As Integer,y As Integer,z As Integer)
x=3 * Z + 1
y=2 * Z
z=x + y
End Sub
A. Minimize
B. Requery
C. Maximize
D. Restore
[单项选择]单击按钮时,以下列程序运行后的输出结果是
Private Sub proc1(x As Integer,y As Integer,z As Integer)
x=3*z
y=2*z
z=X+y
End Sub
Private Sub Command1_Click( )
Dim x As Integer,y As Integer,z As Integer
x=1:y=2:z=3
Call proc1(x,x,2)
Print x;x;z
Call proc1(x,y,y)
Print x;y;y
End Sub
A. 6 6 12
B. 9 5 10
C. 9 6 12
D. 9 5 10
[单项选择]单击按钮时,以下程序运行后的输出结果是( )。
Private Sub proc1(x As Integer,y As Integer,z As Integer)
x=3*z
y=2*z
z=x+y
End Sub
Private Sub Command1_Click( )
Dim x As Integer,y As Integer,Z As Integer
x=1:y=2:z=3
Call proc1(x,x,z)
Print x;x;z
Call proc1(x,y,y)
Print x;y;y
End Sub
A. Dim NewArray(10)As Integer
B. Dim NewArray(1 T0 10)As Integer
C. Dim NewArray(10)Integer
D. Dim NewArray(1 To 10)Integer
[单项选择]单击按钮时,以下程序运行后的输出结果是( )。
Private Sub procl(X As Integer, y As Integer, z As Integer)
X=3*z
y=2*Z
z=x+y
End Sub
Private Sub Command1_Click( )
Dim x As Integer, y As Integer, z As Integer
x=1:y=2:z=3
Call procl(x, x, z)
Print x; x; z
Call procl(x, y, y)
Print x; y; y
End Sub
A. 6 6 12
B. 9 5 10
C. 9 6 12
D. 9 10 10
[单项选择]单击命令按钮时,下列程序的执行结果是 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 Fir Proc(x As Integer,y As Integer,z As Integer) Fir Proc=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 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 Book( x As Integer)
x=x*2+1
If x<6 Then
Call Book(x)
End If
x=x * 2 + 1
Print x;
End Sub
Private Sub Command2_Click( )
Book 2
End Sub
A. 23 47
B. 10 36
C. 22 44
D. 24 50