执行下面程序,单击Command1,数组元素a(3,2)的值是（）,a(1,2)的值是（）,a(2,3)的值是（）

Option Explicit

Option Base 1

Private Sub Commandl_Click()

Dim n As Integer,i As Integer,j As Integer

Dim a(3,3)As Integer,k As Integer

n=3:k=1

i=n:j=(n+1)/2

a(i,j)=k

For k=2 To n*n

i=i+1:j=j+1

If i>n And j<=n Then

i=1

ElseIf i<=n And j>n Then

j=1

ElseIf i>n And j>n Then

i=i-2:j=j-1

ElseIf i<=n And j<=n And a(i,j)<>0 Then

i=i-2:j=j-1

End If

a(i,j)=k

Next k

For i=1 To n

For j=1 To n

Pic1.Print Right(" " &Str(a(i,j)),3);

Next j

Pic1.Print

Next i

End Sub