用VB程式码:
Dim a(7, 7) As Integer
Dim i As Integer
Dim j As Integer
Dim n As Integer
i = 1
j = (7 + 1) / 2
For n = 1 To 49
a(i, j) = n
If Int(n / 7) < n / 7 Then
j = j - 1
i = i - 1
Else
i = i + 1
End If
If i = 0 Then i = 7
If j = 0 Then j = 7
Next n
For i = 1 To 7
For j = 1 To 7
Print a(i, j); " ";
If Int(a(i, j) / 10) = 0 Then Print " ";
Next j
Print
Next i!
,,