单选题窗体上有一个名称为Command1的命令按钮，其单击事件过程如下：
Private Sub Command1_Click()
Dim a,b(2,3)As Integer
a=Array(3,7,5,11,31,43,17,62,9,23,37,41)
i=0
Do While i＜=Ubound(a)
For j=0 To 2
For k=0 To 3
b(j,k)=a(i)
i=i+1
Next
Next
Loop
Print b(2,2)
End Sub
运行程序，窗体上显示的是______。

A、 43
B、 17
C、 37
D、 23

【正确答案】 C

【答案解析】[解析] Ubound函数用于计算数组的上界，本题数组的下标从0开始，共12个元素，所以数组的上界为11。Do While循环中For循环刚于将a(i)～a(i+11)的值赋给b(j，k)。当i=0时，嵌套For循环将a(0)～a(11)的值赋给了b(0，0)～b(2，3)，即b(0，0)=a(0)，b(0，1)=a(1)，b(0，2)=a(2)，b(0，3)=a(3)，b(1，0)=a(4)，b(1，1)=a(5)，…，b(2，2)=a(10)，b(2，3)=a(11)，执行完For循环，i的值为12，退出Do While循环。因此b(2，2)=a(10)=37