华罗庚同志的“运筹学”是科学的，但对于“眼看油瓶子倒了也不管”的人是不起作用的。引进的新技术装备掌握在不关心社会主义利益、只顾个人利益的人手里，不但不能充分发挥作用，而且会大大缩短它的寿命。 这段文字主要支持的一个观点是()。

设有如下程序：

Private Sub Form. Click（）

Dim s As Long，f As Long

Dim n As Integer，i As Integer

f=1

n=4

For i=1 To n

f=f*i

s=s+f

Next i

Print s

End Sub

程序运行后，单击窗体，输出结果是（）。

A.32

B.33

C.34

D.35

s Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Print s End Sub 程序运行后，单击窗体，输出结果是（）。

A.32

B.33

C.34

D.35

有如下程序： Private Sub Form_C1ick() Dim CheCk,Counter CheCk=True Counter=0 Do Do While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Ptint Counter,Check End Sub 程序运行后，单击窗体，输出结果为______。

A． 15 0

B．20 -1

C．10 Tree

D．10 False

有如下程序：

Private Sub Form_C1ick()

E=1:F=1

For j=1 To 3

E=E+F:F=F+E

Next

Print E;F

End Sub

该程序的输出结果是

A．6 6

B． 5 8

C． 13 21

D．34 55

设有如下程序： Private Sub Form_Click() Dim a As Integer，s As Integer n=8 S=0 DO S=S+n n=n-1 Loop While n＞0 Print S End Sub 以上程序的功能是【 】。程序进行后，单击窗体，输出结果为【 】。

阅读下面的程序：

PriVate Sub Form_C1ick()

Dim Check As Booleau，Counter As Integer

Check=True

Counter=5

Do

Do While Counter＜20

Counter=Counter+1

If Counter=10 Then

Check=FalSe

EXit Do

设有如下程序 Private Sub Search(a()As Variant，ByVa1 key As Variant，index%) Dim I% For I=LBound(A)To UBound(a) If key=a(1) Then index=I Exit Sub End If Next I index=I End Sub Private Sub Form_Load() Show Dim b() As Variant Dim n As Integer b = Array(1,3,5,7,9,11,13,15) Call Search(b, 11 ,n) Print n End Sub程序动行后,输出结果是【 】。

设有如下程序： Private Sub Form. Click（） Dim ary(1 To 5)As Integer Dim i As Integer Dim sum As Integer For i=1 To 5 ary(i)=i+l sum=sum+ary(i) Next i Print sum End Sub 程序运行后，单击窗体，则在窗体上显示的是（）。

A.15

B.16

C.20

D.25

设有如下程序：

Private Sub Form. Click（）

Dim ary(1 To 5)As Integer

Dim i As Integer

Dim sum As Integer

For i=1 To 5

ary(i)=i+l

sum=sum+ary(i)

Next i

Print sum

End Sub

程序运行后，单击窗体，则在窗体上显示的是（）。

A.15

B.16

C.20

D.25