单选题编写如下程序：Private Sub Command1_Click() Dim a(2, 3) For i = 0 To 2 For j = 0 To 3 a(i, j) = InputBox("请输入整数") Next j Next i For i = 0 To 2 a(i, 1) = a(i, 3) Next i For i = 0 To 2 For j = 0 To 3 Print a(i, j), Next j Print Next iEnd Sub程序运行后，单击命令按钮Command1，并输入了12个整数：1，2，3，4，5，6，7，8，9，10，11，12，则输出结果为

A、 1 4 3 2 5 8 7 6 9 12 11 10
B、 1 4 3 4 5 8 7 8 9 12 11 12
C、 3 2 1 4 7 6 5 8 11 10 9 12
D、 3 2 3 4 7 6 7 8 11 10 11 12

【正确答案】 B

【答案解析】解析：第一个For的多重循环，将输入的12个整数赋值给数组a（2，3），a[0,0]=1, a[0,1]=2,a[0,2]=3；a[1,0]=4,a[1,1]=5,a[1,2]=6；a[2,0]=7,a[2,1]=8, a[2,2]=9； a[3,0]=10,a[3,1]=11,a[3,2]=12；。第二个For循环，将数组a的第4列的值赋值给第2列；故输出结果如B所示，B正确。