（33）有如下事件程序，运行该程序后输出结果是

Private Sub Command33_Click()

D．im x As Integer,y As Integer

x=1:y=0

D．o Until y<=25

y=y+x*x

x=x+1

Loop

MsgBox "x="&x&",y="&y

E．nd Sub

A．）x=1,y=0

B．） x=4,y=25

C．）x=5,y=30

D．）输出其他结果

[单选题]有如下事件程序，运行该程序后输出结果是Private Sub Command33_Click()D．im X As Integer，y As Integerx=1：Y=0D．o Until y<=25y=y+X*XX=X+1 ‘Loop ’ 。MsgBox“x一”＆X＆,“y=”＆yE．nd SubA．x=1，y=0B．x=4，y=25C．x=5，y=30D．输出其他结果

[单选题]执行下面的程序，输出的结果是 ______ 。 Private Sub Command1_Click() ch $ = "Welcome to China!" n = Len(ch $ ) For i =1 To n-1 s$ =Mid(ch$ ,i,1) If s$ ="o" Then m=m + 1 Next i Print m End SubA．1B．2C．8D．0

[主观题]有如下程序，该程序的执行结果是[ ]。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

[单选题]有如下程序，运行后输出的是( )。 Option Base 1 Private Sub Commandl_click() Dim aj(1 To 10) Forj=6 To 10 aj(j)=j*2 Nextj Printaj(1)+aj(j) End SubA．5B．20C．22D．显示出错信息

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

[单选题]3有如下程序，输出结果为( )。 Private Sub Form_Activate() Dima a=Array(1,2,3,4,5) Fori=LBound(a)To UBound(A) a(i)=i*a(i) Nexti Printi，LBound(a)，UBound(a)，a(i) End SubA．4 0 4 25B．5 0 4 25C．不确定D．程序出错