當(dāng)前位置： 2020-2021學(xué)年浙江省山水聯(lián)盟高三（上）月考信息技術(shù)試卷（12月份）> 試題詳情

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

每個(gè)方塊用一個(gè)代表其周圍墻的數(shù)字之和（0≤p≤15）表示：1表示西墻，2表示北墻，4表示東墻，8表示南墻。城堡的內(nèi)墻被計(jì)算兩次，方塊（1，1）的南墻同時(shí)也是方塊（2，1）的北墻。城堡至少有兩個(gè)房間。例如，圖a的每個(gè)方塊對(duì)應(yīng)數(shù)字如圖b所示。
程序運(yùn)行界面如圖c所示，現(xiàn)已知城堡地形對(duì)應(yīng)的數(shù)字矩陣，要求出城堡一共有多少房間，最大的房間有多大。小金利用深度優(yōu)先搜索算法解決當(dāng)前問(wèn)題，具體算法如下：
在城堡中按行搜索，找到第一個(gè)未被搜索過(guò)方塊，以它為起點(diǎn)，分別按左、上、右、下的順序向其四個(gè)方向試探，若發(fā)現(xiàn)一個(gè)方向上的方塊是未被搜索過(guò)且可以通往的（無(wú)墻），則以這個(gè)方塊為新起點(diǎn)，再重復(fù)上述試探。若當(dāng)前方塊四個(gè)方向上均無(wú)路可走，則返回上一個(gè)方塊進(jìn)行其他方向上的搜索，直至返回開始當(dāng)前搜索的第一個(gè)方塊且這個(gè)方塊四個(gè)方向上也無(wú)路可走是，則本輪搜索結(jié)束。
（1）將界面中方塊（2，2）對(duì)應(yīng)的數(shù)字9改為13，方塊（2，3）對(duì)應(yīng)的數(shù)字6改為7，則城堡中最大的房間占
8
8
塊方格。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
Constm=4Constn=7
Dima（1Tomn4）AsIntegerDimf（1Tomn）AsBoolean
Dimc（1Tomn）AsIntegerPrivateSubCommand1_Click
（　?。?/div>
（　?。?/div>
DimiAsInteger,jAsInteger,xAsInteger,yAsInteger
DimareaAsInteger,maxAsInteger,cntAsInteger
'城堡地形對(duì)應(yīng)的數(shù)字矩陣，存入c數(shù)組中，并顯示在列表框List1中，f數(shù)組初值為false,代碼略.
Fori=1Tomnx=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）+“個(gè)房間，最大的房間占“+Str（max）+“塊方格.“
EndSub
'從方塊（x,y）開始搜索，并返回其所在房間所占方塊數(shù).
FunctionSearch（ByValxAsInteger,ByValyAsInteger）AsInteger
DimiAsInteger,jAsInteger,sumAsInteger,rAsInteger,cAsInteger
Dimpre（1Tomn）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）=x10+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）=x10+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

【考點(diǎn)】應(yīng)用程序的試運(yùn)行和保存．

【答案】8；（　?。?；f（（i-1）*n+j）=false；a（（（x-1）*n+y-1）*4+i）=0；j=j-1

【解答】

【點(diǎn)評(píng)】

聲明：本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有，未經(jīng)書面同意，不得復(fù)制發(fā)布。

當(dāng)前模式為游客模式，立即登錄查看試卷全部?jī)?nèi)容及下載

發(fā)布：2024/4/20 14:35:0組卷：0引用：1難度：0.3

相似題

1．大部分社交軟件都有好友推薦的功能，當(dāng)用戶 A 和用戶 B 的共同好友數(shù)量超過(guò)閾值 p 時(shí)，由系統(tǒng)向用戶 A 推薦用戶 B。
編寫 VB 程序，實(shí)現(xiàn)好友推薦功能。運(yùn)行程序，列表框 Listl 中顯示用戶 id 及好友列表，在文本框 Textl 中輸入推薦目標(biāo)用戶 id,在文本框 Text2 中輸入閾值 p,點(diǎn)擊“推薦”按鈕，在列表框List2 中顯示用戶之間的關(guān)系，在標(biāo)簽 Label5 中顯示向目標(biāo)用戶推薦的好友列表。程序運(yùn)行界面如圖：

（1）根據(jù)如圖所示數(shù)據(jù)，若輸入用戶 id 為“3”，輸入閾值為“3”，則推薦好友為：

（2）實(shí)現(xiàn)上述功能的 VB 程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。

發(fā)布：2025/1/2 10:30:2組卷：0引用：1難度：0.3
解析
2．小明用python語(yǔ)言中對(duì)大小為100*100像素的圖像“上.jpg”（如圖所示）進(jìn)行簡(jiǎn)單處理，部分代碼如圖：

程序執(zhí)行后的圖像效果是（　?。?/h2>
A． B． C． D．
發(fā)布：2024/12/20 9:30:2組卷：3引用：5難度：0.4
解析
3．某學(xué)校開展了藝術(shù)節(jié)活動(dòng)，數(shù)組a中存儲(chǔ)了n個(gè)節(jié)目的編號(hào)和得分?jǐn)?shù)據(jù)，數(shù)組存儲(chǔ)結(jié)構(gòu)如圖所示：

小明使用選擇排序思想對(duì)上述n個(gè)節(jié)目按得分進(jìn)行降序排序（得分相同的按編號(hào)升序排列），并依據(jù)得分插入各個(gè)節(jié)目的排名信息，處理后數(shù)組a的存儲(chǔ)結(jié)構(gòu)如圖所示：

程序運(yùn)行時(shí)，單擊命令按鈕Command1后讀取數(shù)據(jù)到數(shù)組a中并顯示在列表框List1中，單擊命令按鈕Command2后將節(jié)目按照上述規(guī)則進(jìn)行排序，并將排名結(jié)果顯示在列表框List2中。
實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)回答下列問(wèn)題：
（1）已知窗體名稱為Forml,要使程序加載時(shí)，窗體標(biāo)題自動(dòng)顯示為“第15題程序”，則可在

（單選，填字母：A.Form_Click（　　）/B.Form_Load（　?。?C.Forml_Click （　?。?D.Forml_Load （　　））事件過(guò)程中添加代碼：Forml.Caption=“第15題程序”。
（2）請(qǐng)?jiān)跈M線處填入合適的代碼。
（3）加框處代碼有誤，請(qǐng)改正。
發(fā)布：2025/1/2 10:30:2組卷：0引用：1難度：0.3
解析

把好題分享給你的好友吧~~

2．小明用python語(yǔ)言中對(duì)大小為100*100像素的圖像“上.jpg”（如圖所示）進(jìn)行簡(jiǎn)單處理，部分代碼如圖：程序執(zhí)行后的圖像效果是（ ?。?/h2>

2．小明用python語(yǔ)言中對(duì)大小為100*100像素的圖像“上.jpg”（如圖所示）進(jìn)行簡(jiǎn)單處理，部分代碼如圖：

程序執(zhí)行后的圖像效果是（　?。?/h2>