[单项选择]阅读程序：
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

[单项选择]

阅读程序：
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(3,4)
For j=3 To 4
arr(3,j)=j+9
Next j
Print arr(3,2)+arr(3,4)
End Sub
程序运行后，单击窗体，输入结果为（）。

A. 21
B. 13
C. 8
D. 25

[单项选择]阅读程序：
Option Base 1
Dim arr（　）As Integer
Private Sub Form_Click（　）
Dim i As Integer,j As Integer
ReDim arr(3,21
For i=1 To 3
Forj=1 To 2
arr(i,j)=i*2+j
Next
Next
ReDim Preserve arr(3,4)
For i=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

[填空题]阅读程序：
Option Base 1
Dim arr2（　） As Integer
Prtvate Function FindMax(a（　）As Integer)As Integer
Dim Start As Integer
Dim FlnlSh As Integer, i As Integer
Start=LBound 【10】
Finish：UBound 【11】
Max＝ 【12】
For i=Start To Pinlsh
If a (i)＞Max Then Max= 【13】
Next i
FindMax=Max
End Function
Private Sub Commandl_Click（　）
Dim arr1
arrl=Atray(12，435，76，24，78，54，866，43)
b=UBound(arrl)
Renm arr2( 【14】 )As Integer
For i=1 TO b
arr2(i)＝CInt( 【15】 )
Next i
M=FindMax(arr2（　）)
Print"最大值是："：M
End Sub
以上程序的功能是x在命令按钮事件过程中定义一个数组，把这个数组作为参数传送到通用过程PindMax，并返回该数组的最大值。请填空。

[单项选择]

有以下程序：
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(3,4)
For j＝3 To 4
arr(3,j)＝j+9
Next j
Print arr(3，2)；arr(3，4)
End Sub
程序运行后，单击窗体，输出结果为（）。

A. 813
B. 013
C. 712
D. 00

[单项选择]有以下程序：
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 i
Next i
ReDim Preserve arr(3,4)
For j=3 To 4
arr(3,j)=j+9
Next i
Print arr(3,2); arr(3,4)
End Sub
程序运行后，单击窗体，输出结果为( )。
A. 8 13
B. 0 13
C. 7 12
D. 0 0

[单项选择]有以下程序：
Option Base 1
Dim arr（　） As Integer
Private Sub Form_Click（　）
Dim i As Integer,j As Integer
ReDim arr(3,2)
Fori=1 To 3
Forj=1 To 2
arr(i,j)=i*2+j
Next j
Next i
ReDim Preserve arr(3,4)
Forj=3 To 4
arr(3,j)=j+9
Nextj
Print arr(3,2);arr(3,4)
End Sub程序运行后，单击窗体，输出结果为______。
A. 0 0
B. 7 12
C. 0 13
D. 8 13

[单项选择]设有如下数组声明语句： Dim arr（-2 to 2,0 to 3）AS Integer 该数组所包含的数组元素个数是（　　）。
A. 20
B. 16
C. 15
D. 12

[单项选择]语句Dim Arr(-2 To 4)As Integer所定义的数组的元素个数为( )。
A. 7个
B. 6个
C. 5个
D. 4个

[单项选择]语句Dim Arr(3 To 5,-2 To 2)定义的数组的元素个数是( )。
A. 20
B. 12
C. 15
D. 24

[单项选择]下面程序运行后，输出的结果是( )。
Dim arr(3,3)
For i=1 To 3
For k=1 To 3
A. Next j 25
B. 58
C. 47
D. 59

[单项选择]阅读程序：
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+art(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为
A. 13
B. 14
C. 27
D. 15

[单项选择]阅读程序：
Private Sub Form_Click（　）
x =50
For i = 1 To 4
y = InputBox( "请输入一个整数" )
y = Val(y)
If y Mod 5=0 Then
a=a+y
x=y
Else
a=a+x
End If
Next i
Print a
End Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为( )。
A. 100
B. 50
C. 120
D. 70

[填空题]

阅读程序：
　　Option Base1
　　Private Sub Form_Click( )
　　　　Dim a(3)As Integer
　　　　Print“输入的数据是：”；
　　　　For i＝1 To 3
　　　　　　a(i)=InputBox(“输人数据”)
　　　　　　Print a(i)；
　　Next
　　Print
　　If a(1)　　　　　t=a(1)
　　　　　a(1)=a(2)
　　　　　a(2)= 【8】
　　End If
　　If a(2)>a(3) Then
　　　　　m=a(2)
　　Else If a(1)>a(3)Then
　　　　　m= 【9】
　　Else
　　　　　m= 【10】
　　End If
　　Print“中间数是：”；m
　End Sub
程序运行后，单击窗体，在输入对话框中分别输人三个整数，程序将输出三个数中的中间数，如图所示。请填空。[*]

[单项选择]请阅读程序：
Option Base 1
Private Sub Form_Click（　）
Dim Arr(4,4)As Integer
For i=1 To 4
For j=1 To 4
Art(i,j)=(i-1)*2+j
Next j
Next i
For i=3 To 4
For j=3 To 4
Print Arr(j,i)
Next j
Print
Next i
End Sub
程序运行后，单击窗体，则输出结果是( )
A. 5 7
B. 6 8 6 8
C. 7 9
D. 8 10