关于数学的算法

Question

最原始的方法：穷举不重复的4x4矩阵，然后每个矩阵做判断

Answer 1

Dim i, j, s, a(4, 4) As Integer
s = 0
For i = 1 To 4
For j = 1 To 4
s = s + 1
If (i Mod 4 = 0 Or i Mod 4 = 1) And (j Mod 4 = 0 Or j Mod 4 = 1) Or (i Mod 4 = 3 Or i Mod 4 = 2) And (j Mod 4 = 3 Or j Mod 4 = 2) Then
a(i, j) = 17 - s
Else
a(i, j) = s
End If
Next
Next
For i = 1 To 4
For j = 1 To 4
Print a(i, j);
Next
Print
Next