运行下列程序，在立即窗口显示的结果是

Private Sub Command0_Click()

D．im I As Integer,J As Integer

F．or I=2 To 10

F．or J=2 To I／2

If I mod J=0 Then Exit For

Next J

If J>sqr(I) Then Debug．Print I；

Next I

E．nd Sub

A．1 5 7 9

B．4 6 8

C．3 5 7 9

D．2 3 5 7

[单选题]试题35运行下列程序，在立即窗口显示的结果是（）Private Sub Command0_Click()D．im I As Single ， J As SingleF．or I= 2 To 10F．or J = 2 To I/2If I mod J = 0 Then Exit ForNext JIf J > sqr (I) Then Debug .Print I;Next IE．nd SubA．1 5 7 9B．4 6 8C．3 5 7 9D．2 3 5 7

[单选题]运行下列程序，显示的结果是Private Sub Command34_Click()i=0D．oi=i+1Loop While i<10MsgBox iE．nd SubA．0B．1C．10D．11

[单选题]下列程序运行后在立即窗口输出结果是( )。 Private Sub Form_Click() x="a":y="b" z=1:u=2 Debug. Print x; y, z; u Debug. Print z; x, y; u End SubA．a b 1 2 1 ab 2B．a b 1 2 1 a b 2C．a b 1 2 1 a b 2D．a b 1 2 1 a b 2

[单选题]下列程序的运行结果是 ______。Private Sub Command1_ Click () a =1: b=1 for i = 1 To 3 a= a+ b: b=b+ a Next i Print a, bEnd SubA．6 6B．5 8C．13 21D．34 55

[单选题]下列程序运行后在立即窗口输出的结果是( )。Private Sub Form_Click()x="a":y="b"z=1:u=2D．ebug.Printx;y,z;uD．ebug.Printz;x,y;uE．nd SubA．a b 1 2 1 ab 2B．a b 1 2 1 a b 2C．a b 1 2 1 a b 2D．)a b 1 2 1 a b 2

[单选题]运行下列程序，结果是Private Sub Command32_Click()f0=1:f1=1:k=1D．o While k<=5f=f0+f1f0=flf1=fk=k+1LoopMsgBox“f=”＆fE．nd SubA．f=5B．f=7C．f=8D．f=13

[单选题]试题34运行以下程序，显示的结果是（）Private Sub Command34_Click()i = 0D．oi = i + 1Loop While i < 10MsgBox iE．nd SubA．0B．1C．10D．11

[单选题]下列程序运行后立即窗口输出的结果是 Private Sub Form_ClickO X="a":y="b" Z=1:u=2 Debug.x;y,z;u Debug.z;x,y;u End Sub A.a b 12 1 ab 2 B.ab 121 a b2C.ab 12 1a b2 D.ab 121a b2

[单选题]下列程序的运行结果是( )。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a,B) Print a,b End Sub Private Sub fun(x,y) x=y*y y=y+x End SubA．2.25 3.75B．1.5 2.25C．1.5 0.75D．0.75 1.5

[单选题]下列程序的运行结果是( )。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a，b)Print a，b End Sub Private Sub fun(x，y) x=y*y y=y+x End SubA．2.25 3.75B．1.5 2.25C．1.5 0.75D．0.75 1.5