代码注释-帮忙看下这段代码-九宫数

hyy514

想用循环穷举写个简单的九宫数术求解代码，即数字1-9分布成正方形，横竖斜的和都是15 。但因太菜最终没成功，别人给写了个，可是有点看不懂，水平有限不要见笑。劳烦帮忙注释下！

Sub 1-9九宫数算法()

Const XX = 3
Const YY = 3
Dim matrix(XX, YY) As Integer
Dim i As Long
Dim x As Long
Dim y As Long
Dim tx As Long
Dim ty As Long
Dim index As Long

index = 1
x = XX - 1
y = (YY + 1) / 2 - 1

For i = 0 To XX * YY
matrix(i / XX, i Mod YY) = 0
Next i

For i = 1 To XX * YY
matrix(x, y) = index
tx = (x + 1) Mod XX
ty = (y + 1) Mod YY
If matrix(tx, ty) <> 0 Then
If x = 0 Then
x = XX
Else
x = x - 1
End If
Else
x = tx
y = ty
End If
index = index + 1
Next i

Dim str1 As String
For x = 0 To XX - 1
str1 = ""
For y = 0 To YY - 1
str1 = str1 + Str(matrix(x, y)) + " "
Next y

Debug.Print str1
Next x

End Sub

hyy514

这是我Q群的一个朋友，平时很少上线，所以就到这里来找人帮忙了，这种方法叫规划求解。逻辑性很强的

northwolves

N年前的习作，效率不高，但好理解：

'易知九宫图中间为5，关于中心对称位置之和为10，分析如下：

'       a        b        c

'       d        5      10-d

'       10-c    10-b    10-a

'if a is an odd,c is an odd ,then 10-a is an odd,10-c is odd,so b,d,10-d,10-b are all odds(paradox)
 
'if a is an odd,c is an even ,then 10-a is an odd,10-c is even,so b,d,10-d,10-b are all evens(paradox)

'if a is an even,c is an odd ,then 10-a is an even,10-c is odd,so b,d,10-d,10-b are all evens(paradox)

'if a is an even,c is an even ,then 10-a is an even,10-c is even,so b,d,10-d,10-b are all odds(maybe)

'so a ,c must be  evens;    b,d must be odds

Dim nine As New Collection
Private Sub Form_Load()
Dim a As Integer, b As Integer, c As Integer, d As Integer, i As Integer
For a = 2 To 8 Step 2
For b = 1 To 9 Step 2
For c = 2 To 8 Step 2
For d = 1 To 9 Step 2
If a + b + c = 15 And a + d - c = 5 And a + c <> 10 And b + d <> 10 And b <> 5 And d <> 5 Then nine.Add StrConv(a & b & c & vbCrLf & d & "5" & (10 - d) & vbCrLf & (10 - c) & (10 - b) & (10 - a), vbWide) '全角显示
Next: Next: Next: Next
For i = 1 To nine.Count
MsgBox nine(i), 64, "九宫图之" & i
Next
End Sub

Long_III

建议找原作者解释解释

里面的规律性太强，特别是1是固定的，可能有固定的算法