某建设项目估计总投资3000万元，项目建成后净收益为200万元，该项目静态投资回收期为（)。A．25年B．

有以下程序：

Private Sub Form_Activate()

For j=1 to 3

x=3

For i=l to 2

x=x+6

Next

Next

Print x

End Sub

程序运行后，窗体上显示的结果为______。

Private Sub Form_Activate() For j = 1 to 3 x=3 For i = 1 to 2 x=x+6 Next Next Print x End Sub 程序运行后，窗体上显示的结果为【 】。

运行下列程序：

Private Sub form_Click()

For i = 1 To 2

x = 1

For j = 1 To 3

x = 5

For k = 1 To 4

x = x + 2

Next k

Next j

Next i

Print x

End Sub

单击窗体后，则输出结果是()。

A.5

B.13

C.25

D.48

阅读下面的程序： Private Sub Command1_Click() For i=1 To 3 For j=1 To i For k=j To 3 x=x+1 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，窗体上输出的结果是

A．3

B．9

C．14

D．21

Private Sub Form_Activate()

Forj=1 to 3

x=3

ForI=1 to 2

x=x+6

NextI

Nextj

Print x

End Sub

程序运行后，窗体上显示的结果为上______。

有如下程序：

Private Sub Command1_Click()

j =10

For i= -1 To 1 Step 0.3

j =j + 1

Next i

Print j

End Sub

该程序共循环【 】次，程序执行完毕后j的值是【 】。

3有如下程序，输出结果为()。 Private Sub Form_Activate() Dima a=Array(1,2,3,4,5) Fori=LBound(a)To UBound(A) a(i)=i*a(i) Nexti Printi，LBound(a)，UBound(a)，a(i) End Sub

A．4 0 4 25

B．5 0 4 25

C．不确定

D．程序出错

执行以下程序,在窗体上输出()。

Private Sub Command1_Click()

Dim a(20)As Integer

For j = 1 To 20 Step 2

a(j)= j

Next j

Print a(1)+ a(2)+ a(3)AAAAAAAAa

End Sub

A. 4

B. 5

C. 6

D. 7

有以下程序：

Option Base 1

Dim arr（） As Integer

Private Sub Form_Click（）

Dim i As Integer,j As Integer

ReDim arr（3,2）

For i=1 To 3

For j=1 To 2

arr （i,j）=i*2+j

Next j

Next i

ReDim Preserve arr（1,4）

For j=3 To 4

Arr（3,j）=j+9

Next j

Print arr（3,2）;arr（3,4）

End Sub

程序运行后，单击窗体，输出结果为（）。 A．8 13

B．0 13

C．7 12

D．0 0

编写如下事件过程： Private Sub Form_Activate() Dimscore(1 to 3)As Integer Dimi As Integer Dim t As Variant Fori= 3 To 1 Step-1 score(i)=2*i Nexti ForEach t Inscore Printt Next End Sub 程序运行后窗体上显示的值是()。

A．642

B．246

C．2

D．6