[单选题]

有如下事件过程,单击命令按钮扣,输出结果是 Private Sub Command1 Click( ) Dim b% (1 To4) ,j%, t# For j=1 To 4 b(j) =j Next j t=Tax(b( ) ) Print "t="; t, End Sub Function Tax (a( ) As Integer) Dim t#, i% t=1 For i=2 To UBound (A)t=t * a(i) Next i Tax=t End Function

A.t=18

B.t=24

C.t=30

D.t=32

参考答案与解析:

相关试题

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

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

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

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

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

  • 查看答案
  • 下面程序运行后,单击命令按钮,输出的结果是 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 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()

  • 查看答案
  • 有如下事件过程,单击命令按钮扣,输出结果为 PrivateSubCommand1

    [单选题]有如下事件过程,单击命令按钮扣,输出结果为Private Sub Command1_Click()D.im b%(1 To 4) , j%, t#F.or j=1 To 4b(j) =jNext jt=Tax(b() )Print "t="; t,E.nd SubF.unction Tax (a() As Integer)D.im t#, i%t=1F.or i=2 To UBound(A.t=t * a(i)Next iTax=tE.nd Function( )。A.t=18B.t=24C

  • 查看答案
  • (13)单击命令按钮时,下列程度的执行结果是Private Sub Comman

    [单选题](13)单击命令按钮时,下列程度的执行结果是 Private Sub Command1_Click() Dim a As Integer,b As Integer,c As Integer a=2:b=4:c=6 Call S2(a,b) Print"a=";a;"b=";b;"c=";c; End Sub Private Sub S1(x As Integer,y As Integer) Dim c As Integer x=2*x:y=y+2:e=x+y End Sub Sub

  • 查看答案
  • 单击命令按钮执行下列程序,其输出结果是。 Private Sub Commana

    [单选题]单击命令按钮执行下列程序,其输出结果是。 Private Sub Commana1_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 Sec

  • 查看答案
  • 在窗体上画1个命令按钮,并编写如下事件过程:Private Sub Comman

    [单选题]在窗体上画1个命令按钮,并编写如下事件过程:Private Sub Command1-Click()F.or i=5 To 1 Step-0.8Print Int(i);Next iE.nd Sub运行程序,单击命令按钮,窗体上显示的内容为A.5 4 3 2 1 1B.5 4 3 2 1C.4 3 2 1 1D.4 4 3 2 1 l

  • 查看答案
  • 下面运行程序后,单击命令按钮,输出的结果是______。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