＋设为首页 ＋添加到收藏夹
在4x4的正方格中填入1－16个数，这16个数不能重复，无论横加、竖加、斜加都等于34。请用程序写出来。帮帮忙，忙得我焦头烂额的了。
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
