淳安千島湖中有若干座島嶼，有些島嶼之間有橋相連，有些島嶼之間無橋相連，可以通過其它的島嶼相連。現在我們來建立一種關系矩陣模擬這種現象，如有 9 個島嶼，依次編號為 1～9，相互之間有橋相連在矩陣中用 1 表示；無橋相連用 0 表示；對于自身也用 0 表示，即矩陣的左上角到右下角的對角線全為0。
李同學設計了一個用來求兩座島嶼之間相連所需橋的數量的 VB 程序，點擊“生成矩陣”按鈕Command1，隨機產生一個關系矩陣，并在列表框 List1 中顯示。在文本框 Text1 和 Text2 中輸入島嶼的編號（1～9），點擊“求解”按鈕 Command2，在 Labell 中輸出兩座島嶼之間相連所需橋的數量。VB 程序運行界面如圖所示。
對無橋相連的兩座島嶼 p1，p2 之間相連的算法思想如下：
①p1 島嶼所在行開始，將與其相連的島嶼依次添加到數組 b 中。
②若數組 b 中未出現島嶼 p2，則依次查找與其相連島嶼的所在行，將新出現的相連的島嶼添加到數組 b 中。
③在查找過程中同時記錄查找步數。
數組 b 內全部搜索完畢，若 p2 還是未出現，則兩座島嶼之間無法相連，反之輸出橋的數量。請回答以下問題：
（1）如上圖所示的矩陣，從 5 號島嶼到 9 號島嶼最少需要經過

3

3

座橋。
（2）請在橫線處填入合適的代碼。
Const n=9'島 嶼 的 數 量Dim a（1 To n*n） As Integer
Private Sub Command1_Click

（　　）

（　　）

 Dim s  As  String List1.Clear
For i=1 To n
For j=i To n
If j=i Then
a（（i-1）*n+j）=0'對 角 線 為 0
Else
a（（i-1）*n+j）=Int（Rnd*2）
 ①

a（（j-1）*n+i）=a（（i-1）*n+j）

a（（j-1）*n+i）=a（（i-1）*n+j）

'矩 陣 對 稱
End If
Next j Next i
For i=1 To n
s=““
For j=1 To n
s=s+Str（a（（i-1）*n+j））
Next j
List1.AddItem s Next i
End Sub
Private Sub Command2_Click

（　　）

（　　）

Dim b（1 To n） As Integer
Dim qiao（1 To n） As Integer'記錄相連島嶼之間橋的數量
Dim find（1 To n）  As Boolean'記錄某島嶼是否被添加到數組 b 中
Dim p1 As Integer,p2 As Integer,cur As Integer,k As Integer,q As Integer
p1=Val（Text1.Text）
p2=Val（Text2.Text）
cur=p1：k=1：q=0
find（cur）=True
Do While find（p2）=False
For i=1 To n
If a（（cur-1）*n+i）=1 And find（i）=False Then
b（k）=i：k=k+1
find（i）=True
 ②

qiao（i）=qiao（cur）+1

qiao（i）=qiao（cur）+1

End If
Next i
q=q+1
If q=k Then Exit Do Else③

cur=b（q）

cur=b（q）

Loop
If find（p2）=True Then
Label1.Caption=“需要經過“+Str（qiao（p2））+“座橋“
Else
Label1.Caption=“無橋相連“
End If
End Sub