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

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

8

8

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

（　?。?/div>

（　?。?/div>
DimiAsInteger,jAsInteger,xAsInteger,yAsInteger
DimareaAsInteger,maxAsInteger,cntAsInteger
'城堡地形對應(yīng)的數(shù)字矩陣，存入c數(shù)組中，并顯示在列表框List1中，f數(shù)組初值為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）開始搜索，并返回其所在房間所占方塊數(shù).
FunctionSearch（ByValxAsInteger,ByValyAsInteger）AsInteger
DimiAsInteger,jAsInteger,sumAsInteger,rAsInteger,cAsInteger
Dimpre（1Tom*n）AsInteger'記錄當(dāng)前房間搜索的路徑
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