报关公司接受其他单位委托为其进出口货物向海关申报时，必须以本公司的名义申报。（）此题为判断题(对，错)。

阅读程序：

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 Commandl Click（）

Dim i As Integer, j As Integer

Dim a （10,10）As Integer

For i=1 To 3

For j= i To 3

a（i,j）=（i-1）*3+j

Print a （i,j）;

Next j

Print

Next i

End Sub

程序运行后，单击命令按钮，窗体上显示的是（）。

（28）阅读程序：

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＝0To2

Print arr(7-i);

Next

End Sub

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

A）8 7 6

B）7 65

C）6 5 4

D）5 4 3

请阅读程序： Sub subP(b（）As Integer) For i=1 To4 b(i)=2*i Next i End Sub Private Sub Commandl Click（） Dim a(1 To 4)As Integer a(1)=5:a(2)=6:a(3)=7:a(4)=8 subP a（） For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，则输出结果是（）。

A.2 4 6 8

B.5 6 7 8

C.10 12 14 16

D.出错

执行下面的程序，消息框的输出结果是 【 】。

Option Basel

Private Sub Commandl Click()

Dim a(10)，P(3)As Integer

k=5

For i=1 To 10

a(i)=i

Next i

For i=1 To 3

P(i)=a(i*i)

Next i

For i=1 To 3

k=k+p(i)*2

Next i

MsgBox k

End sub

阅读程序： Option Base 1 Dim arr() As Integer Private Sub Form. Click() Dim i As Integer，i 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 arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为

A．21

B．13

C．8

D．25

阅读程序： Option Base 1 Private Sub Form. Click() Dim arr，Sum Sum= 0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为

A．13

B．14

C．27

D．15

请阅读程序：

Sub subP(b（）As Integer)

For i=1 To4

b(i)=2*i

Next i

End Sub

Private Sub Commandl Click（）

Dim a(1 To 4)As Integer

a(1)=5:a(2)=6:a(3)=7:a(4)=8

subP a（）

For i=1 To 4

Print a(i)

Next i

End Sub

运行上面的程序，单击命令按钮，则输出结果是（）。

A.2

4

6

8

B.5

6

7

8

C.10

12

14

16

D.出错

在窗体画一个命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Dim a(5)As String For i=1 To 5 a(i)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b; Next End Sub 程序运行后，单击命令按钮，输出结果是______。

A． ABCDE

B．1 2 3 4 5

C．abcde

D．出错信息

下列程序的输出结果是【 】。

Private Sub Command l Click()

Dim a(1 TO 20)

Dim i

For i＝1 TO 20

a(i)＝i

Next i

For Each i In a()

a(i)＝20

Next i

Print a(2) End Sub