下面程序的输出结果为( )PrivateSubCommand1_Click()Dima%(1To5),b%(2To10),i%,t1#,t2#Fori=1To5a(i)=iNextit1=tim(a())Printt1=;t1EndSubFunctiontim(a()AsInteger)Dimt#,i%t=1Fori=LBound( )ToUBound( )t=t*a(i)Nextitim=tEndFunctionA.t1=10B.t1=12C.t1=120D.120
下面程序的输出结果为( )
PrivateSubCommand1_Click()
Dima%(1To5),b%(2To10),i%,t1#,t2#
Fori=1To5
a(i)=i
Nexti
t1=tim(a())
Print"t1=";t1
EndSub
Functiontim(a()AsInteger)
Dimt#,i%
t=1
Fori=LBound( )ToUBound( )
t=t*a(i)
Nexti
tim=t
EndFunction
A.t1=10
B.t1=12
C.t1=120
D.120
相关考题：
下面运行程序后,单击命令按钮,输出的结果是 【 】 。Private Sub Command1_Click()Dim a%(1 To 5),i%, s#For i=1 To 5a(i)=iNexts=Fun(a)Print "s="; s;End SubFunction Fun(a() As Integer)Dim t#, i%t=1For i=LBound(a) To UBound(a)t=t a(i)NextFun=tEnd Function
下列程序的输出结果是【 】Private Sub Command1_Click()Dim a(1 To 20)Dim iFor i=l To 20a(i)=iNext iFor Each i In a()a (i) =20Next i
运行下面的程序后，输出的结果为 Cls Dim t(5, 5) as Integer For i=1 To 5: t(i,i) =1: Next For i = 1 To 5 For j = 1 To 5 Print t(i, j), Next Print NextA．1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1B．1 1 1 1 1C．1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1D．1 1 1 1 1
运行下面的程序后，输出的结果为 Cls Dim t(5,5)as Integer For i=1 To 5:t(i,i)=1:Next For i=1 To 5 For j=1 To 5 Print t(i,j)， Next Print NextA． 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1B．1 1 1 1 1C．1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1D．1 1 1 1 1
下列程序的输出结果是【 】。Private Sub Command1_Click()Dim a(1 To 20)Dim iFor i=1 To 20a(i)=iNext iFor Each i In a()a(i)=20Next iPrint a(2)End Sub
下面运行程序后，单击命令按钮，输出出的结果是【 】。Private Sub Command1_Click( )Dim a% (1 To 5) ,i%, sFor i = 1 To 5a(i) =iNexts = Fun(a)Print"s="; s;End SubFunction Fun(a() As Integer)Dim t, i%t=1For i = LBound(A0To UBound(a)t=t * a(i)NextFun =tEnd Function
执行下面的程序，消息框的输出结果是( )。Dim a(1 To 10),b(1 To 5)As Integersum=0For i=1 To 10Next iFor i=1 To 5Next iFor i=1 To 5Next iMsgBox sum
下列程序打印结果为 ______。Private Sub Command1_ Click() Dim a(5)As String Dim b As Integer Dim i As Integer for i = 0 To 5 a(i)= i +1 Print a(i); Next iEnd SubA．12345B．6C．1 2 3 4 5 6D．0
下面程序运行后，单击命令按钮，输出的结果是______。Private Sub Command1_Click()Dim a%(1 To 5)，i%，sFor i=1 To 5a(i) =iNexts=Fun(A)Print "s="；s；End SubFunction Fun(a() As Integer)Dim t，i%t=1For i=LBound(A)To UBound(A)t=t*a(i)NextFun=tEnd Function