单选题 请阅读程序：
Option Base 1
Private Sub Form_Click()
Dim art(4,4)As Integer
For i=1 To 4
For j=1 To 4
arr(i,j)=(i-1)*2+j
Next
Next
For i=3 To 4
For j=3 To 4
Print arr(j,i);
Next j
Print
Next
End Sub
程序运行后，单击窗体，则输出结果是______。
  • A.5 7 6 8
  • B.6 8 7 9
  • C.7 9 8 10
  • D.8 10 8 11
【正确答案】 C
【答案解析】[考点] 二维数组 [解析] 本题是有关二维数组的处理，在第一个二重循环中为二维数组arr赋初值，复制后的arr数组中的数据为： 1 2 3 4 3 4 5 6 5 6 7 8 7 8 9 10 在第二个循环中输出数组的部分值，注意到在输出的值为arr(j,i)，因此为C选项。