魔方阵问题：就是给一个数N（N>2),然后将1 到 N*N填入N*N的矩阵中，使每行、每列的和是一个常数，例如：
                                   8 1 6
                                   3 5 7      
                                   4 9 2
其实这是有公式的（分两大类，三小类），但是我不想使用公式，我想利用计算机的快速运算尝试最笨的方法，就是将这些数在每一位上试，我的方法很笨。下面是源码，和程序，我是人工输入的九个GOTO语句实现的，当N比较大时，不容易输入GOTO，所以请帮帮忙，谢谢。
Private Sub Form_Click()
Dim a(1 To 9) As Byte, p As Byte
For b = 1 To 9
    a(1) = b
    For c = 1 To 9
        a(2) = c
        If a(1) = a(2) Then GoTo c
        For d = 1 To 9
            a(3) = d
            If a(3) = a(1) Or a(3) = a(2) Or a(1) + a(2) + a(3) <> 15 Then GoTo d
            For e = 1 To 9
                a(4) = e
                    For l = 1 To 3
                        If a(4) = a(l) Then GoTo e
                    Next
                For f = 1 To 9
                    a(5) = f
                        For l = 1 To 4
                            If a(5) = a(l) Then GoTo f
                        Next
                    For g = 1 To 9
                        a(6) = g
                            For l = 1 To 5
                                If a(6) = a(l) Or a(4) + a(5) + a(6) <> 15 Then GoTo g
                            Next
                        For h = 1 To 9
                            a(7) = h
                                For l = 1 To 6
                                    If a(7) = a(l) Or a(1) + a(4) + a(7) <> 15 Then GoTo h
                                Next
                            For i = 1 To 9
                                a(8) = i
                                    For l = 1 To 7
                                        If a(8) = a(l) Or a(2) + a(5) + a(8) <> 15 Then GoTo i
                                    Next
                                For j = 1 To 9
                                    a(9) = j
                                    For l = 1 To 8
                                        If a(9) = a(l) Or a(7) + a(8) + a(9) <> 15 Or a(3) + a(6) + a(9) <> 15 Then
                                            GoTo j
                                        Else
                                            For m = 1 To 9
                                                Text1.Text = Text1.Text & a(m)
                                                If m Mod 3 = 0 Then Text1.Text = Text1.Text & vbCrLf
                                            Next
                                            p = p + 1
                                            Text1.Text = Text1.Text & vbCrLf
                                            Exit For
                                        End If
                                    Next
j:
                                Next
i:
                            Next
h:
                        Next
g:
                    Next
f:
                Next
e:
            Next
d:
        Next
c:
    Next
Next
MsgBox "一共有" & p & "组", vbOKOnly, "提示"
End Sub

谢谢，但是这个代码也是太多了，我想能不能用一个递归或是分块方式编写，因为其中很多是重复代码。可行吗？

这是我最新想出来的方法，大家看看，有兴趣给我点意见：

'sum是计算行或者列以及对角线的
'stsum是计算行或者列合理的和，例如N=3时，stsum=15
'tim是计时的
'n是行数,n2是整个行列中最大数
'i是循环变量
'start保存上一个数,用于回退的,下面介绍
Private Sub Form_DblClick()
Dim sum As Byte, tim As Double, n As Byte, n2 As Byte, stsum As Byte, i As Byte, start As Byte
n = Val(Text1)
n2 = n * n
stsum = (1 + n2) * n / 2    '计算合理的行之和

ReDim GoBack(1 To n2) As Boolean    '为了在不满足条件下,能够回退到上一个数,例如a(1)=1,a(2)=2,a(3)=3,这时由于不符合,所以会使a(3)自加,然后到9时,到头了,所以要让a(2)自加,所以设置这个布尔量,为了让a(2)可以从2开始自加,这是用到了start否则,a(2)从1开始自加,又变成了2,程序不能进行下去.
ReDim a(1 To n2) As Byte

For x = 1 To n2
    GoBack(x) = False
Next

    tim = Timer
For i = 1 To n2
    If GoBack(i) = True Then
        start = a(i) + 1            'start使数组取向下一个数
        If start > n2 Then GoTo label 'start到头了就再回退
    Else
        start = 1
    End If
    For l = start To n2
        a(i) = l
        For k = 1 To i - 1
            If a(i) = a(k) Then Exit For
        Next
        If (k = i) Then Exit For

label:
        If i > 1 And (l = n2 Or start > n2) Then GoBack(i - 1) = True: i = i - 2: GoTo out                      '控制回退
    Next
    
    If i = n2 - n + 1 Then                                                                                      '进行判断行列是否满足条件,分四种情况,分别是：右边满行，左边满列，左下角斜对角，右下角，斜对角
        sum = 0
        For m = n To i Step n - 1
            sum = sum + a(m)
        Next
        If sum <> stsum Then GoTo label
        
        sum = 0
        For m = 1 To i Step n
            sum = sum + a(m)
        Next
        If sum <> stsum Then GoTo label
    ElseIf i = n2 Then
        sum = 0
        For m = 1 To i Step n + 1
            sum = sum + a(m)
        Next
        If sum <> stsum Then GoTo label
        
        sum = 0
        For m = n2 - n + 1 To i
            sum = sum + a(m)
        Next
        If sum <> stsum Then GoTo label
        
        sum = 0
        For m = n To i Step n
            sum = sum + a(m)
        Next
        If sum <> stsum Then GoTo label
    ElseIf i Mod n = 0 Then
        sum = 0
        For m = i - n + 1 To i
            sum = sum + a(m)
        Next
        If sum <> stsum Then GoTo label
    ElseIf i > n2 - n + 1 Then
        sum = 0
        For m = i + n - n2 To i Step n
            sum = sum + a(m)
        Next
        If sum <> stsum Then GoTo label
    End If
        For b = i To n2                                                                                                             '防止回退后,下一项数字不可以任意取,例如a(4)=4,a(5)=6,a(6)=5,a(7)=1这时由于a(7)不合适，所以要回退，这时goback(6)=true,然后调整这三项，例如a(4)=6,a(5)=7,这时a(6)应该为2，但是由于goback(6)=true,所以a(6)只可以从6开始，所以不合适。应该从1开始搜索。
            GoBack(b) = False
        Next
out:

Next
tim = Timer - tim
Print "用时" & tim & "秒"
Print
For x = 1 To n
    For y = 1 To n
        Print Format(a((x - 1) * n + y), "@@@@@");
    Next
    Print
Next

End Sub

Private Sub Form_Load()
MsgBox "请在文本框内输入边数，双击窗体运行", vbOKOnly, "提示"
End Sub

版主，有空帮我看看，给点意见，谢谢。
我这个程序只可以算出一组结果，其实结果是对称的，但我还是想都算出来。