2003年3月，美国率其盟友发动了长达7年之久的对伊拉克战争，给伊人民造成了深重灾难。2010年8月19臼，美军最后一批作战部队从伊拉克撤离。这表明，美国在多重压力下

运行下列程序，输入数据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

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

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

A.0

B.17

C.20

D.21

A.1579

B.468

C.3579

D.2357

运行下列程序： Private Sub Form. Click() Sum=0 For i=1 To 100 If Mid(CStr(i)，1， 1)="1" Then Sum=Sum+1 End If Next i Print Sum End Sub 单击窗体后，在窗体上显示的结果是

A．12

B．13

C．14

D．15

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

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 Command1_ Click () a =1: b=1 for i = 1 To 3 a= a+ b: b=b+ a Next i Print a, bEnd Sub

A．6 6

B．5 8

C．13 21

D．34 55

A．显示：5050

B．显示：4950

C．显示：100

D．显示：0

A．显示：5050

B．显示：4950

C．显示：2500

D．显示：0

下列程序的功能是求算式：1-1／24-1／3-1／4+…前80项之和。

PrivateSub Commandl Click（）

Dim i asinteger，S assingle．f as integer

s=0：f=1

For i=1To 30

s=s+f／i

f=__________

Next i

Debug．Print”1-1／2+1／3—1／4+…=”：s

End Sub

横线处应填写的内容是（）。

A.1*f

B.-l*f

C.1*i

D.-1*i