vb编程的问题@@@@

有VB怎样去判断一个迷宫是否是可通的!!!!!!!!

0,1,1,1,1

0,0,0,0,0

1,0,1,1,1

0,0,0,1,1

1,1,0,0,0

1代表不可同，0代表可同，怎眼判断他是否可通呢？

查找每一行中是否有0，若有，就是可通的，若没有，就不可通，思路而已，希望你能够自己摸索。

查找上一行与下一行在相同的位置是否都为0,如果没有,即不通

如果有,再查找下一行,再判断找到的位置,与先前的位置是否相通!

加点分我给你代码

呵呵……

Private Function MG() As Boolean Dim i As Integer, j As Integer, k As Integer Dim SD(4, 4) As Integer, ST(4, 4) As Integer

Dim SS As String

SS = "" For i = 0 To 4 For j = 0 To 4 Randomize SD(i, j) = Int(999 * Rnd) Mod 2 SS = SS & "," & SD(i, j) Next SS = SS & Chr(13) & Chr(10) Next TT.Text = SS

MG = False For k = 0 To 4 For i = 0 To 4 For j = 0 To 4 ST(i, j) = SD(i, j) Next Next If SD(0, k) = 0 Then i = 0: j = k While i < 4 ST(i, j) = 1 If MGBB(ST, i, j) = False Then i = 9 Wend If i = 4 Then Text1.Text = "OK": MG = True: Exit Function End If Next

End Function