淳安千岛湖中有若干座岛屿，有些岛屿之间有桥相连，有些岛屿之间无桥相连，可以通过其它的岛屿相连。现在我们来建立一种关系矩阵模拟这种现象，如有 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