有下列程序，程序运行后单击命令按钮，则输出的结果为( )。Private Sub Command1_Click()Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2# For i=1 To 4 a(i)=i Next i For i=3 To 6 b(i)=i Next i s1=Factorial(A) s2=Factorial(B)Print "s1="；s1；"s2="；s2End SubFunction Factorial(a()As Integer)Dim t#，i% t=1 For i=LBound(A)To UBound(A) t=t*a(i) Next i Factorial=tEnd Function

A．s1=360 s2=24

B．s1=24 s2=360

C．s1=24 s2=24

D．s1=360 s2=360

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

[单选题]（14）有下列程序，程序运行后单击命令按钮，则输出的结果是 Private Sub Command1_Click() Dim a%(1 To 4),b%(3 To 6),i%,s1#,s2# For i=1 To 4 a(i)=i Next i For i=3 To 6 b(i)=i Next i s1=Factorial(a) S2=Factorial(b) Print"s1="；s1；"s2"；s2； End Sub Function Factorial(a()As Integer)

[试题]下面运行程序后,单击命令按钮,输出的结果是 [ ] 。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 Command1_Click() Dim a%(1 To 4), b%(3 To 6), i%, s1#, s2# For i= 1 To 4 a(i) = i Next i For i=3 To 6 b(i) = i Next i s1 = Factorial (A) s2 = Factorial (B) Print "s1="; s1; "s2="; s2 End Sub Function Fa

[单选题]单击命令按钮时,下列程序的运行结果为Private Sub Command1_Click()Print Fun(23, 18)E．nd SubPublic Function Fun(m As Integer, n As Integer) As IntegerD．o While m <> nD．o While m > n: m=m - n: LoopD．o While m < n: n=n - m: LoopLoopF．un=mE．nd FunctionA．0B．1C．3D

[单选题]单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click() Print MyFund(20，18) End Sub Public Function MyFund(m As Integer，n As Integer)As Integer Do While m＜＞n Do While m＞n：m=m-n：Loop Do While m＜n：n=n-m：Loop Loop MyFund=m End FunctionA．0B．2C．4D．6

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