导游人员处理外国旅游者越轨行为是(无论是有意还是无意)一定要()。

阅读程序： Sub p(b () As Integer)For i =1To 4 b(i) = 2(iNext i End Sub Private Sub Command1_Click()Dim a (1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 call p (a) For i=1 To 4 Print a(i) Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为。

阅读程序： Sub subP(b() As Integer) For i＝1 To 4 b(i)=2 * i Next i End Sub Private Sub Command1_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．出错

请阅读程序： 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.出错

请阅读程序：

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.出错

阅读程序： Sub subP(b()As Integer) For i=1 To 4 b(i)=2*i Next i End Sub Private Sub Command1_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．出错

阅读程序：

Function fac(ByVal As Integer)As Integer

Dim temp As Integer

temp=1

For i％=1 To n

temp=temp*i％

Next i％

fac=temp

End Function

Private Sub Form. Click（）

Dim nsum As Integer

nsum=1

For i％=2 T0 4

nsum=nsum+fac(i％)

Next i％

Print nsum

End Sub

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

A.35

B.31

C.33

D.37

阅读程序:

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

Next

ReDim Preserve arr(3,4)

For j=3 To 4

arr(3,j)=j+9

Next

Print arr(3,2)+arr(3,4)

End Sub

程序运行后,单击窗体,输出结果为

A．21

B．13

C．8

D．25