vb幻阵怎么老是不对

我的代码如下，到底哪里出错了？
Option Base 1
Dim a() As Variant
Private Sub Form_Click()
Dim i As Integer, j As Integer
n = InputBox("请输入奇数N的值", "幻阵")
ReDim a(n + 1, n + 1)
i = n: j = (n + 1) / 2
a(i, j) = 1
For x = 2 To n ^ 2
i = i + 1
j = j + 1
a(i, j) = x
If i > n And j <= n Then
a(1, j) = x
ElseIf i > n And j > n Then
a(i, 1) = x
ElseIf i <= n And j > n Then
a(i - 1, j) = x
ElseIf i <= n And j <= n Then
If a(i, j) <> 0 Then
a(i - 1, j) = x
End If
End If

Next x
For i = 1 To n
For j = 1 To n
Print Str(a(i, j));
Next j
Print
Next i
End Sub
下表越界，到底要怎么改呢？

MSN的空间怎么老是密码不对 我的系统时间怎么老是不对？ QQIP地址怎么修改？老是不对 vb 看看哪里不对? vb-加法得数不对 dreamweaver怎么插入flash导航条，老是路径不对？？ 农业银行卡的密码怎么老是不对啊？ MSN怎么老是不能上？老说我防火墙不对 我申请的问道怎么老是密码不对？ 电脑的时间怎么开机后老是不对啊