按我国目前道路石油沥青的质量标准，评价沥青抗老化能力的试验方法主要有()。

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

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

PrivateSub Command34 Click（）i=0

Do

i=i+1

LoopWhile i<10 MsgBox i

End Sub

A.0

B.1

C.10

D.11

A．1

B．-1

C．3

D．0

运行下列程序，输入数据8、9、3、0后，窗体中显示结果是（）。

PrivateSub Form. click（）

Dim sumAs Integer，mAs Integersum=0

Do

m=InputBox(”输入m”)

sum= sum+m

LoopUntil m=0

MsgBoxsum

End Sub

A.0

B.17

C.20

D.21

sgBox i End Sub

A.0

B.1

C.10

D.11

运行下列程序，结果是（）。

PrivateSub Command32_click

f0=1：fl=1：k=1Do While k<=5 f=f0+f1

f0=fl

fl=f

k=k+1

Loop

MsgBox”f=”＆f

End Sub

A.f=5

B.f=7

C.f=8

D.f=13

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