Question

一个关于VB的问题，求大神解答

我算到A(2,1)=2,A(2,2)=3之后就没办法执行了,怎么回事？





Answer 1

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

抄得时候不要丢行，你前面丢了：
Option Base 1

还丢了：
ElseIf A(I - 1, J - 1) = 0 Then
I = I - 1: J = J - 1

追问

那算出来是多少？为什么我就算到A(2,2)=3然后就算不出来了？我是说笔算

那算出来是多少？为什么我就算到A(2,2)=3然后就算不出来了？我是说笔算

追答

6
7
9
2
5
8
1
3
4