Private Sub Commandl_Click()
D.im a As Integer,b As Integer,c As Integer
a=3:b=4:c=5
Print SecProc(c,b,A)End Sub
F.unction FirProc(x As Integer,y As Integer,z As Integer)
F.irProc=2*x+y+3*z
E.nd Function
F.unction SecProc(x As Integer,y As Integer,z As Integer)
SecProc=FirProc(z,x,y) +x
E.nd Function
A.20
B.22
C.28
D.30
[单选题]以下程序运行后,单击按钮输出结果是 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
[单选题]单击命令按钮时,下列程序的执行结果是Private Sub Command1_Click()B.T 4E.nd SubPrivate Sub BT(x As Integer)x=x*2+1If x<6 ThenC.all BT(x)E.nd Ifx=x*2Print x;E.nd SubA.15B.16C.17D.18
[单选题]单击命令按钮时,下列程序的执行结果是Private Sub Command1_Click()D.ima As Integer,b As Integer,c As Integera=3:b=4:c=5Print SecProc(c,b,A)End SubF.unction FirProc(x As Integer,y As Integer,z As Integer)F.irProc=2*x+y+3*z+2E.nd FunctionF.unction SecProc(x As Integer,y A
[单选题]单击命令按钮时,下列程序的执行结果是 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,
[单选题]单击命令按钮时,下列程序的执行结果是 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 SubA.15B.16C.17D.18
[单选题]单击命令按钮时,下列程序的执行结果是 Private Sub Command1_Click() BT4 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 SubA.15B.16C.17D.18
[单选题]单击命令按钮时,下列程序的执行结果是 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 SubA.23 47B.10 36C.22 44D.24 50
[单选题]单击命令按钮,下列程序的执行结果是 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 SubA.23 47B.10 36C.22 44D.24 50
[单选题]单击命令按钮执行下列程序,其输出结果是( )。Private Sub Command1_Click()D.im a As Integer,b As Integer,c As Integera=3b=4c=5Prim SecProc(c,b,A)E.nd SubF.unction FirProc(x As Integer,y As Integer,z As Integer)F.irProc=2*x+y+3*zE.nd FunctionF.unction SecProc(x As Integer,y
[单选题]单击命令按钮执行下列程序,其输出结果是( )。 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