城堡问题。有一个城堡的地形图，城堡被分割成若干个方块，每个方块可以有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