下列程序运行后在立即窗口输出的结果是（)。Private Sub Form_Click（) x="a":y="b" z=1:u=2 Debug.

A.1

B.-1

C.3

D.0

下列程序运行后在立即窗口输出的结果是()。

Private Sub Form_Click()

x="a":y="b"

z=1:u=2

Debug.Printx;y,z;u

Debug.Printz;x,y;u

End Sub

A．a b 1 2 1 ab 2

B．a b 1 2 1 a b 2

C．a b 1 2 1 a b 2

D．)a b 1 2 1 a b 2

下列程序运行后在立即窗口输出结果是()。 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 Sub

A．a b 1 2 1 ab 2

B．a b 1 2 1 a b 2

C．a b 1 2 1 a b 2

D．a b 1 2 1 a b 2

下列程序运行后立即窗口输出的结果是 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

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

PrivateSub Command0_Click（）

Dim I AsInteger，J AsInteger

For I=2To 10

For J=2 To1

If I modJ=0 Then Exit For

Next J

IfJ＞sqr(I)Then Debug．Print I;

Next I

End Sub

A.1579

B.468

C.3579

D.2357

试题35

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

Private Sub Command0_Click()

Dim I As Single ， J As Single

For I= 2 To 10

For 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

End Sub

A．1 5 7 9

B．4 6 8

C．3 5 7 9

D．2 3 5 7

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

Private Sub Command0_Click()

Dim I As Integer,J As Integer

For I=2 To 10

For 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

End Sub

A．1 5 7 9

B．4 6 8

C．3 5 7 9

D．2 3 5 7

运行下列程序：

Private Sub Command1_Click()

a = 100

b = 24

a = a Mod b

b = b \ a

a = b - a

Debug.Print a

End Sub

单击Command1命令按钮后，则在立即窗口上输出结果是()。

A.2

B.24

C.50

D.100

AsInteger For I=2To 10 For J=2 To1 If I modJ=0 Then Exit For Next J IfJ＞sqr(I)Then Debug．Print I; Next I End Sub

A.1579

B.468

C.3579

D.2357

运行下列程序：

Private Sub Command1_Click()

s1 = "Basic"

For i = 1 To Len(s1)

t = Mid(s1, i, 1)

s2 = s2 + Chr(Asc(t) + 1)

Next i

Debug.Print s2

End Sub

单击Command1命令按钮后，则在立即窗口上输出结果是()。

A.Cbtjd

B.65

C.Basic

D.出错