单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(1 To 3， 1 To 3)， x x=Array(1，2，3，4，5，6，7，8，9) For i=1 To 3 For i-1 To 3 a(i，j)=x(i*j-1) Next j Next i Call sub1(i，j，a()) End Sub Private Sub sub1(m，n，t) For m=1 To 3 For n=1 To 3 Print t(m，n)； Next n Print Next m End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

A、 1 2 3 2 5 8 3 6 9
B、 1 2 3 2 4 6 3 6 9
C、 3 6 9 2 5 8 1 2 3
D、 3 6 9 2 4 6 1 2 3

【正确答案】 B

【答案解析】[分析] 本题程序的主要功能是将一维数组部分元素读入到二维数组然后调用函数输出，注意语句a(i，j)-x(i*j-1)，结果是d(i，j)和。(j，i)的值相同，而不是顺序地将一维数组读入到二维数组。