下面程序运行后的输出结果是______。Private Sub Command1_ Click ( ) for j = 1 To 10 if j Mod 3 ＜＞ 0 then a =a+j/3 Next j Print aEnd Sub

A．20

B．10

C．3

D．9

[单选题]下列程序段，运行后窗体上输出结果是( )。Private Sub Command1_Click()a=5:b=4:c=3:d=2x=3＞2*b Or a=c And b＜＞c Or c＞dPrintxE．nd SubA．1B．TrueC．FalseD．2

[单选题]下面程序运行后，窗体中显示______。Private Sub Command1_ Click() a＄ = "*": b＄ = "＄ for k = 1 To 3 x＄ = String＄(Len(a＄) +k, b＄) Print x＄; Next k PrintEnd SubA．*** ** ***B．*＄*＄*＄C．1*＄2*＄3*＄D．＄＄＄＄＄＄＄＄＄

[单选题]下面程序段,运行后的结果是Private Sub Command1_ClickD．im b%(1 To 4), i%, t#F．or i=1 To 4b(i) =iNextt=Tof(b() )Print "t="; t,E．nd SubF．unction Tof(a() As Integer)D．im t#, i%t=1F．or i=2 To UBound(a)t=t  a(i)NextTof=tE．nd FunctionA．t=18B．t=24C．t=30D．t=32

[单选题]下面程序段，运行后的结果是 Private Sub Command1_Click() Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i) =i Next t=Tof(b() ) Print"t="；t， End Sub Function Tof(a() As Integer) Dim t#,i% t=1 For i=2 To UBound(a) t=t*a(i) Next Tof=t End FunctionA．t=18B．t=24C．t=30D．t=32

[单选题]（ 30 ）下面程序的输出结果是Private Sub Command1_Click()ch$= ” ABCDEF ”proc chPrint chE．nd SubPrivate Sub proc(ch As String)S= ””F．or k=Len(ch) To 1 Step-1s=s&Mid(ch,k,1)Next kch=sE．nd SubA． ） ABCDEFB． ） FEDCBAC． ） AD． ） F

[单选题]下列程序段运行后窗体上输出结果为( )。 Private Sub Command1 Click() a=5：b=4：c=3：d=2 X=3＞2*b Or a=c And b＜＞C Or c＞d Print X End SubA．1B．TrueC．FalseD．2

[单选题]下面程序的运行结果是 Private Sub Command1_Click() x＝1:y＝1 For i=1 To 3 x＝x+y:y＝y+x Next i:print x,y End SubA．6 6B．5 8C．13 21D．34 35

[主观题]有如下程序，该程序的执行结果是[ ]。Private Sub Command1_lick()F．or i= 1 To 4x= 4F．or j =1 To 3x =3F．or k=1 To 2X= K+5Next kNext jNext iPrint xE．nd Sub

[单选题]下面程序运行后，输出结果是( )。 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 PrinA．5101520B．2468C．出错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