城堡問題。有一個城堡的地形圖，城堡被分割成若干個方塊，每個方塊可以有0～4面墻（粗線表示墻）。

每個方塊用一個代表其周圍墻的數字之和（0≤p≤15）表示：1表示西墻，2表示北墻，4表示東墻，8表示南墻。城堡的內墻被計算兩次，方塊（1，1）的南墻同時也是方塊（2，1）的北墻。城堡至少有兩個房間。例如，圖a的每個方塊對應數字如圖b所示。
程序運行界面如圖c所示，現已知城堡地形對應的數字矩陣，要求出城堡一共有多少房間，最大的房間有多大。小金利用深度優先搜索算法解決當前問題，具體算法如下：
在城堡中按行搜索，找到第一個未被搜索過方塊，以它為起點，分別按左、上、右、下的順序向其四個方向試探，若發現一個方向上的方塊是未被搜索過且可以通往的（無墻），則以這個方塊為新起點，再重復上述試探。若當前方塊四個方向上均無路可走，則返回上一個方塊進行其他方向上的搜索，直至返回開始當前搜索的第一個方塊且這個方塊四個方向上也無路可走是，則本輪搜索結束。
（1）將界面中方塊（2，2）對應的數字9改為13，方塊（2，3）對應的數字6改為7，則城堡中最大的房間占

8

8

塊方格。
（2）實現上述功能的VB程序如下，請在橫線處填入合適的代碼。
Constm=4Constn=7
Dima（1Tom*n*4）AsIntegerDimf（1Tom*n）AsBoolean
Dimc（1Tom*n）AsIntegerPrivateSubCommand1_Click

（　　）

（　　）

DimiAsInteger,jAsInteger,xAsInteger,yAsInteger
DimareaAsInteger,maxAsInteger,cntAsInteger
'城堡地形對應的數字矩陣，存入c數組中，并顯示在列表框List1中，f數組初值為false,代碼略.
Fori=1Tom*nx=c（i）
Forj=1To4
a（（i-1）*4+j）=xMod2x=x\2
Nextj
Nexti
max=0
Fori=1Tom
Forj=1Ton
If①

f（（i-1）*n+j）=false

f（（i-1）*n+j）=false

Then
cnt=cnt+1
area=Search（i,j）
Ifmax＜areaThen
max=areaEndIf
Nextj
Nexti
Label1.Caption=“城堡一共有“+Str（cnt）+“個房間，最大的房間占“+Str（max）+“塊方格.“
EndSub
'從方塊（x,y）開始搜索，并返回其所在房間所占方塊數.
FunctionSearch（ByValxAsInteger,ByValyAsInteger）AsInteger
DimiAsInteger,jAsInteger,sumAsInteger,rAsInteger,cAsInteger
Dimpre（1Tom*n）AsInteger'記錄當前房間搜索的路徑
Dimrow（1To4）AsInteger,col（1To4）AsInteger
row（1）=0：row（2）=-1：row（3）=0：row（4）=1
col（1）=-1：col（2）=0：col（3）=1：col（4）=0
sum=1：j=1：pre（1）=x*10+y
f（（x-1）*n+y）=True
DoWhileTrue
Fori=1To4
r=x+row（i）：c=y+col（i）
Ifr＞=1Andr＜=mAndc＞=1Andc＜=nThen
Iff（（r-1）*n+c）=FalseAnd②

a（（（x-1）*n+y-1）*4+i）=0

a（（（x-1）*n+y-1）*4+i）=0

Then
sum=sum+1
x=r：y=c
f（（x-1）*n+y）=True
j=j+1
pre（j）=x*10+y
ExitFor
EndIf
EndIf
Nexti
Ifi＞4Then
③

j=j-1

j=j-1

Ifj=0Then
ExitDo
x=pre（j）\10：y=pre（j）Mod10
EndIf
Loop
Search=sumEndFunction