听力原文：W: I can hardly believe that school has a student body of more than 15,000.M: To

运行下列程序，单击窗体后输出的结果是()。

Private Sub Form_Click()

Dim a

Dim s As Integer, i As Integer

a = Array(1, 2, 3, 4, 5, 6)

s = 1

For i = 5 To 1 Step -2

s = s * a(i)

Next i

Print s

End Sub

A、 15

B、 48

C、 120

D、 720

对于程序段 Private Sub Form. _Load() Dim a() a = Array(1, 2, 3, 4, 5) For i = 1 To 4 Form1.Print a(i); Next i End Sub 程序运行的结果是

A、0 1 2 3

B、1 2 3 4

C、2 3 4 5

D、3 4 5 6

下列正确的程序段是______。

A、Dim a() a = Array(1, 2, 3, 4, 5, 6, 7)

B、Dim a a = Array(“hello”, “ ok”,1,2,3)

C、Dim a() as integer a() = Array(1, 2, 3, 4, 5, 6, 7)

D、Dim a as variant a = Array(1, 2, 3, 4, 5, 6, 7)

阅读程序：

Private Sub Commandl一Click()

Dim arr

Dim i AS Integer

arr=Array(0，1, 2，3，4，5，6，7,8，9，10)

For i=0 To 2

Print arr(7-i)；

Next

End Sub

程序运行后，窗体上显示的是：

A．8 7 6

B．7 6 5

C．6 5 4

D．5 4 3

阅读程序：

Private Sub Command1_Click（）

Dim arr

Dim i As Integer

arr=Array(0，1，2，3，4，5，6，7，8，9，10)

For i=0 To 2

Print arr(7-i)；

Next

End Sub

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

A.8 7 6

B.7 6 5

C.6 5 4

D.5 4 3

下面运行程序后,单击命令按钮,输出的结果是 【 】 。

Private Sub Command1_Click()

Dim a%(1 To 5),i%, s#

For i=1 To 5

a(i)=i

Next

s=Fun(a)

Print "s="; s;

End Sub

Function Fun(a() As Integer)

Dim t#, i%

t=1

For i=LBound(a) To UBound(a)

t=t  a(i)

Next

Fun=t

End Function

阅读程序： Private Sub Command1_Click（） Dim arr Dim i As Integer arr=Array(0，1，2，3，4，5，6，7，8，9，10) For i=0 To 2 Print arr(7-i)； Next End Sub 程序运行后，窗体上显示的是（）。

A.8 7 6

B.7 6 5

C.6 5 4

D.5 4 3

设有如下程序： Private Sub Form_ Click() Dim a Dim i As Integer, j As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i) Next End Sub程序运行后，单击窗体，则在窗体上显示的是______。。

A．4 3 2 1

B．5 4 3 2

C．6 5 4 3

D．7 6 5 4

阅读程序：

Private Sub Commandl一Click()

Dim arr

Dim i AS Integer

arr=Array(0，1, 2，3，4，5，6，7,8，9，10)

For i=0 To 2

Print arr(7-i)；

Next

End Sub

程序运行后，窗体上显示的是：

A．8 7 6

B．7 6 5

C．6 5 4

D．5 4 3