填空题 执行下面程序,单击Command1,数组元素a(3,2)的值是 1(4) 2,a(1,2)的值是 3(5) 4,a(2,3)的值是 5(6) 6 Option Explicit Option Base 1 Private Sub Commandl_Click7 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