用一個6*5矩陣表示地圖，分別用a數組元素表示，第1行從左到右為a（1）到a（6），依此類推，右下角為a（30）。其中數字0表示不通，數字1表示暢通?，F在要從左上角到右下角尋找一條暢通的路徑。線路規則如下：
?路線每個點只能向右或向下
?任何一個岔口優先向右走，右側不通再向下走
?一條路線中每個點只能走一次，不能重復
算法思路：探路過程中，記錄每個坐標到數組lu；遇到岔路口（向右向下都通），則記錄路口坐標到數組cha；遇到前方無路時，需要返回到上一個路口，標記路口右側坐標為0；當前方無路，岔路口數組也退回到0，說明整體不通，否則根據規則走到右下為止，最后輸出整體線路坐標。
實現算法的程序如下，運行結果如右圖所示。
回答下列問題：
（1）根據規則，如圖迷宮矩陣正確路線的第6個點是a數組的第

21

21

個元素（填數字）
（2）在程序橫線處填上合適代碼，使程序完整。

Dim a（1 To 50）As Integer
Private Sub Command1_Click （　　）
Dim i As Integer,j As Integer,pos As Integer
Dim cha（1 To 10）As Integer'記錄一條線路中各個岔路口坐標
Dim lu（1 To 10）As Integer'記錄路線經過的坐標
pos=1：j=0：lu（1）=1：i=1
Do While i＜=9‘第1個和最后1個固定，中間有9個需要路過的坐標
If pos Mod 6＜＞0 And a（zb+1）=1 Then'向右暢通
If pos+6＜=30 and a（zb+6）=1 Then‘記錄岔路口
j=j+1
①

cha（j）=pos

cha（j）=pos

End If
pos=pos+1
i=i+1
②

lu（i）=pos

lu（i）=pos

ElseIf pos+6＜=30 And a（pos+6）=1 Then'向下暢通
pos=pos+6
i=i+1
lu（i）=pos
Else'坐標退回到上一個岔路口
If j=0 Then Exit Do
Do While lu（i）＜＞cha（j）
③

i=i-1

i=i-1

Loop
a（cha（j）+1）=0’標記此路口右側不可用
pos=cha（j）
j=j-1
End If
Loop
If j=0 Then
Text1．Text=“沒有暢通道路“
Else
For i=1 To 10
Text1．Text=Text1．Text+Str（lu（i））
Next i
End If
End Sub