更多"以下程序运行后,单击按钮输出结果是 Private Sub Comm"的相关试题:
[单项选择]以下程序运行后,单击按钮输出结果是( )。
Private Sub Commandl_Click( )
Dim x As Integer,y As Integer,z As Integer
X=4:y=2: Z=3
Call Gopd(x,x,z)
Print x;X;Z
Call Gopd(x,y,y)
Print x;y;y
End Sub
Private Sub Gopd(x As Integer,y As Integer,z As Integer)
X=3 * Z + 1
y=2 * z
z=x + y
End Sub
[单项选择]单击按钮时,以下程序运行后的输出结果是 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
[单项选择]单击按钮时,以下列程序运行后的输出结果是
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