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

3

3

座橋。
（2）請(qǐng)?jiān)跈M線(xiàn)處填入合適的代碼。
Const n=9'島 嶼 的 數(shù) 量Dim a（1 To n*n） As Integer
Private Sub Command1_Click

（　　）

（　?。?/div> 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'對(duì) 角 線(xiàn) 為 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）

'矩 陣 對(duì) 稱(chēng)
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

（　?。?/div>

（　?。?/div>
Dim b（1 To n） As Integer
Dim qiao（1 To n） As Integer'記錄相連島嶼之間橋的數(shù)量
Dim find（1 To n）  As Boolean'記錄某島嶼是否被添加到數(shù)組 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=“需要經(jīng)過(guò)“+Str（qiao（p2））+“座橋“
Else
Label1.Caption=“無(wú)橋相連“
End If
End Sub