银行存款日记账，每一页登记完毕结转下页时，结计“过次页”的本页合计数应当为（）的发生额合计数。

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

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

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

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

试题34

运行以下程序，显示的结果是（）

Private Sub Command34_Click()

i = 0

Do

i = i + 1

Loop While i < 10

MsgBox i

End Sub

A．0

B．1

C．10

D．11

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 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 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．ab 12 1 ab 2

B．ab 12 1a b2

C．ab 12 1a b2

D．ab 12 1a b2

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

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 Command34_Click()

i=0

Do

i=i+1

Loop While i<10

MsgBox i

End Sub

A．0

B．1

C．10

D．11

运行下列程序：

Private Sub Form_Click()

For i = 3 To 1 Step -1

For j = 2 To 1 Step -1

Debug.Print "A"; String(3 - i, "*");

Next j

Next i

End Sub

单击窗体后，则在立即窗口内显示结果是()。

A.AAA*A**A***

B.AAA*A*A**A**

C.A*A*A*A*A*A*

D.A***