[单项选择题] 阅读如下程序： Option Base 1 Private Sub Form Click()Dim Arr(4，4)As IntegerFor i=1 To 4 For j=1

[单项选择题] 阅读如下程序：

Option base 1

Private Sub Form Click()

Dim Arr(4，4)As Integer

For i=1 To 4

For j=1 To 4

Arr(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 6 8

B．6 8 7 9

C．7 9 8 10

D．8 10 8 11

C解析：[分析]： 本题主要测试二维数组的输入输出操作。由于程序的开头有Option base1的语句，因此所定义的Arr是一个4行4列的二维数组。在第1个二重For循环中，根据内层和外层循环变量的变化对数组的每个元素赋值，其计算公式为：(i-1)*2+j，其中i和j分别为外层和内层循环变量。用这个公式计算的数组Arr各元素的值如下： Arr(1，1)=1 Arr(1，2)=2 Arr(1，3)=3 Arr(1，4)=4 Arr(2，1)=3 Arr(2，2)=4 Arr(2，3)=5 A