某企业新建一工业厂房，在厂房封顶之前遭受强台风袭击而全部毁损。该工业厂房（）。 A．

下列程序的功能是计算surn=1+{1+3)+(1+3+5)+…+(1+3+5+…+39)

PrivateSub Command34_click

t=0

m=1

sum=0

Do

t=t+m

sum==stum+tm=__________

LoopWhile m<=39

MsgBox’Sum=”&sum

End Sub

为保证程序正确完成上述功能，空白处应填入的语句是（）。

A.m+1

B.m+2

C.t+1

D.t+2

下列程序的功能是计算surn=1+{1+3)+(1+3+5)+…+(1+3+5+…+39) PrivateSub Command34_click t=0 m=1 sum=0 Do t=t+m sum==stum+tm=__________ LoopWhile m<=39 MsgBox’Sum=”&sum End Sub 为保证程序正确完成上述功能，空白处应填入的语句是（）。

A.m+1

B.m+2

C.t+1

D.t+2

下列程序的功能是计算N＝2+(2+4)4-(24-44-6)4-…+(2+4+6+…4-40)的值。 PrivateSub Command34_Click t=0 m=0 sum=0 Do t==t+m sum==sum4-t m=__________ LoopWhile m<41 MsgBox”um=”&sumEndSub 空白处应该填写的语句是（）。

A.t+2

B.t+1

C.m+2

D.m+1

下列程序的功能是计算N＝2+(2+4)4-(24-44-6)4-…+(2+4+6+…4-40)的值。 PrivateSub Command34_Click t=0 m=0 sum=0 Do t==t+m sum==sum4-t m=__________ LoopWhile m<41 MsgBox”um=”&sumEndSub 空白处应该填写的语句是（）。

A.t+2

B.t+1

C.m+2

D.m+1

A．m+1

B．m+2

C．t+1

D．t+2

下列程序的功能是求算式：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

.以下程序运行后，单击命令按钮，输出的结果为：________。

PrivateSub Inc(Byval A As Integer)

Static x As Integer

x = x + A

Print x；

EndSub

PrivateSub Command1_Click()

Inc 4

Inc 3

Inc 2

EndSub

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

PrivateSub Command34 Click（）i=0

Do

i=i+1

LoopWhile i<10 MsgBox i

End Sub

A.0

B.1

C.10

D.11