下面程序运行后，输出结果是( )。 Private Sub mysub(b()As Integer,OptionalByValnAsInteger=2) ForI=1 to 4 b(I)=n*I NextI End Sub Private Sub Commandl_Click() Dima(1 to 4)As Integer，I As Integer Callmysub(a()，5) Mysuba() ForI=1 to 4 Prin

A．5101520

B．2468

C．出错

D．0000

[单选题]运行下面程序后，正确的输出结果是 ______。Private Sub Command1_ Click() x = 6 if x ＞6 then Print "x＞6": Else if x ＜8 then Print "x＜8"; Else if x = 6 then Print "x=6": End if End if End ifEnd SubA．x＜8 x=6B．x＜8C．x=6D．x＜8或x=6

[单选题]下面程序运行后的输出结果是______。Private Sub Command1_ Click ( ) for j = 1 To 10 if j Mod 3 ＜＞ 0 then a =a+j/3 Next j Print aEnd SubA．20B．10C．3D．9

[单选题]下面程序运行后,单击命令按钮,输出的结果是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 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( ) 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 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 Form. _Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print a End SubA．10B．15C．80D．100

[单选题]以下程序运行后的输出结果是______。 Private Sub Form_ Click() y=1 ：x=2 Print Iif(x＞=y，x，y) End SubA．0B．1C．2D．3

[单选题]（33）有如下事件程序，运行该程序后输出结果是Private Sub Command33_Click()D．im x As Integer,y As Integerx=1:y=0D．o Until y<=25y=y+x*xx=x+1LoopMsgBox "x="&x&",y="&yE．nd SubA．）x=1,y=0B．） x=4,y=25C．）x=5,y=30D．）输出其他结果

[单选题]（ 30 ）下面程序运行时，若输入 395 ，则输出结果是Private Sub Comand1_Click （）D．im x%x=InputBox (" 请输入一个 3 位整数 ")Print x Mod 10,x/100, ( x Mod 100 ) /10E．nd SubA． ） 3 9 5B． ） 5 3 9C． ） 5 9 3D． ） 3 5 9