[单选题]

以下程序运行后，单击按钮输出结果是 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

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 Commandl_C

[单选题]单击命令按钮时，下列程序的执行结果是Private Sub Commandl_Click()D．im a 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*zE．nd FunctionF．unction SecProc(x As Integer，y As

  • 查看答案

    • 下面运行程序后,单击命令按钮,输出的结果是 () 。 Private Sub C

    [试题]下面运行程序后,单击命令按钮,输出的结果是 [ ] 。Private Sub Command1_Click()D．im a%(1 To 5),i%, s#F．or i=1 To 5a(i)=iNexts=Fun(a)Print "s="; s;E．nd SubF．unction Fun(a() As Integer)D．im t#, i%t=1F．or i=LBound(a) To UBound(a)t=t  a(i)NextF．un=tE．nd Function

  • 查看答案

    • 下面程序运行后,单击命令按钮,输出的结果是 Private Sub Comman

    [单选题]下面程序运行后,单击命令按钮,输出的结果是Private Sub Command1_Click()D．im a%(1 To 4) , b%(2 To 6) , i%, str1#, str2#F．or i=1 To 4a(i)=iNextF．or i=2 To 6b(i)=iNextstr1=YAG(a)str2=YAG(b)Print "str1="; str1; "str2="; str2E．nd SubF．unction YAG(a() As Integer)D．im t#, i%

  • 查看答案

    • 下面运行程序后,单击命令按钮,输出的结果是______。Private Sub

    [主观题]下面运行程序后，单击命令按钮，输出的结果是______。Private Sub Commandl_clck()D．im a%(1 To 4)，b%(3 To 6)，i%，s1，s2F．ori=1 To 4a(i)=iNextiF．or i=3 To 6b(i)=iNextis1=YAS(a)S2=YAS(b)Printt"s1="；S1"S2="；s2E．nd Sub

  • 查看答案

    • 下面程序运行后,单击命令按钮,输出的结果是 Private Sub Comman

    [单选题]下面程序运行后，单击命令按钮，输出的结果是 Private Sub Command1_Click( ) Dim a%(1 To 4) , b%(2 To 6) , i%, str1#, str2# For i = 1 To 4 a(i) =i Next For i = 2 To 6 b(i) =i Next str 1 = YAG (A)str 2 = YAG (B)Print "str1 ="; str1; "str2 ="; str2 End Sub Function YAG(a()

  • 查看答案

    • 有下列程序,程序运行后单击命令按钮,则输出的结果是()。Private Sub

    [单选题]有下列程序，程序运行后单击命令按钮，则输出的结果是( )。Private Sub Command1_Click()D．im a%(1 To 4),b%(3 To 6),i%,s1#,s2#F．or i=1 To 4a(i)=iNext iF．or i=3 To 6b(i)=iNext is1=Factorial(A)s2=Factorial(B)Print"s1=";s1;"s2=";s2E．nd SubF．unction Factorial(a() As Integer)D．im t#

  • 查看答案

    • 单击按钮时,以下列程序运行后的输出结果是Private Sub proc1(x

    [单选题]单击按钮时，以下列程序运行后的输出结果是 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

  • 查看答案

    • 运行下列程序,单击窗体后输出的结果是( )。Private Sub Form_C

    [单选题]运行下列程序，单击窗体后输出的结果是( )。Private Sub Form_Click()D．im aD．im s As Integer, i As Integera = Array(1, 2, 3, 4, 5, 6)s = 1F．or i = 5 To 1 Step -2s = s * a(i)Next iPrint sE．nd SubA． 15B． 48C． 120D． 720

  • 查看答案

    • 下面程序的输出结果是。 Private Sub Commandl_Click c

    [单选题]下面程序的输出结果是。 Private Sub Commandl_Click ch$=“ABCDEF” proc ch：Print ch End Sub Private Sub proc(ch As Stnng) s=“” For k=Len(ch) TO 1 Step -1 s=s&Mid(ch，k，1) Next k ch=s End Sub A．ABCDEF B．FEDCBA C．A D．F

  • 查看答案

    • 单击命令按钮执行下列程序,其输出结果是()。Private Sub Comman

    [单选题]单击命令按钮执行下列程序，其输出结果是( )。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

  • 查看答案