下面是一段产生n阶魔方阵的代码,运行时下界越标,红色部分有问题
但是本人愚钝,实在不知道如何改动?请赐教!!
Private Sub Command1_Click()
Dim k%, i%, j%, m() As Integer
n = Val(Text1.Text)

i = 1
j = n / 2 + 1

ReDim m(1 To n, 1 To n)

For k = 1 To n * n
m(i, j) = k

If (k Mod n = 0) Then
i = i + 1
ElseIf i = 1 Then
i = n: j = j + 1
ElseIf j = n Then
j = 1: i = i - 1
Else
i = i - 1: j = j - 1
End If

Next k

For i = 1 To n
For j = 1 To n
Picture1.Print m(i, j); Tab(j * 5)
Next j
Picture1.Print
Next i

End Sub

i = 1
j = n / 2 + 1

ReDim m(1 To n, 1 To n)

For k = 1 To n * n
msgbox k&","&i&","&j

加上这一条,看看k是什么在什么条件下越标,然后根据当时的情况找原因吧.
m(i, j) = k
If (k Mod n = 0) Then
i = i + 1
ElseIf i = 1 Then
i = n: j = j + 1
ElseIf j = n Then
j = 1: i = i - 1
Else
i = i - 1: j = j - 1
End If
Next k

For i = 1 To n
For j = 1 To n
Picture1.Print m(i, j); Tab(j * 5)
Next j
Picture1.Print
Next i

End Sub

Private Sub Command1_Click()
Dim k%, i%, j%, m() As Integer
n = Val(Text1.Text)
i = 1
j = (n + 1) / 2
ReDim m(1 To n, 1 To n)
m(i, j) = 1
For k = 2 To n * n
If (k - 1) Mod n = 0 Then
i = i + 1
Else
i = IIf(i = 1, n, i - 1)
j = IIf(j = n, 1, j + 1)
End If
m(i, j) = k
Next k

For i = 1 To n
For j = 1 To n
Picture1.Print m(i, j); Tab(j * 5);
Next j
Picture1.Print
Next i
End Sub