Option Base 1
Private Sub Command1_Click()
Dim a(3, 3) As Integer, i As Integer, j As Integer, k As Integer
i = 3: j = 1
a(i, j) = 1
For k = 2 To 9
If i + 1 > 3 Or j + 1 > 3 Then
If j = 1 Then
i = i - 1
ElseIf a(i - 1, j - 1) = 0 Then
i = i - 1: j = j - 1
ElseIf j = 3 Then
i = i - 1
Else
j = j + 1
End If
ElseIf j = 1 Or i = 1 Then
If a(i + 1, j + 1) = 0 Then
i = i + 1: j = j + 1
Else
j = j + 1
End If
Else
If a(i - 1, j - 1) = 0 Then
i = i - 1: j = j - 1
End If
End If
a(i, j) = k
Next k
For i = 1 To 3
For j = 1 To 3
Print a(i, j);
Next j
Print
Next i
End Sub
题目是让求运行结果。
我不明白 既然 k= 2 to 9 和 a(i, j) = k ,那a(i - 1, j - 1) = 0,a(i + 1, j + 1) = 0等是如何实现的呢?
还请教大家为小弟分析一下求解过程,谢谢!
|