谁能帮我用VB做个魔方矩阵，n*n，其中n必须是奇数。。做好发送到我的邮箱。谢谢。。535961525@qq.com

Private Sub Command1_Click()
Dim S(1 To 5, 1 To 5) As Long
Dim x As Long, y As Long
Dim n As Long

x = 3
y = 1
S(3, 1) = 1

For n = 2 To 25
If x = 5 And y = 1 Then
y = y + 1
ElseIf x = 5 Then
x = 1
y = y - 1
ElseIf y = 1 Then
x = x + 1
y = 5
ElseIf S(x + 1, y - 1) <> 0 Then
y = y + 1
Else
x = x + 1
y = y - 1
End If

S(x, y) = n
Next

For y = 1 To 5
For x = 1 To 5
Print S(x, y) & vbTab;
Next
Print
Next

End Sub