2020-2021學年浙江省山水聯盟高三（上）月考信息技術試卷（12月份）
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分。每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分）
-
1．下列有關信息與信息技術的說法，正確的是（ ）
組卷：2引用：1難度：0.7 -
2．下列關于網絡的相關說法中，正確的是（ ）
組卷：0引用：1難度：0.5 -
3．使用Word軟件編輯某文檔，部分界面如圖所示。下列說法正確的是（ ）
組卷：2引用：1難度：0.6 -
4．關于Access數據表，下列說法正確的是（ ）
組卷：1引用：1難度：0.6 -
5．一個2位十六進制正整數n,其末位是“F”，下列說法正確的是（ ）
組卷：4引用：2難度：0.4
二、非選擇題（本大題共4小題，其中第13小題4分，第14題8分，第15題7分，第16題7分，共26分）
-
15．小王到某城市，時間只有一天了，但小王很想到該城市的著名大景區游玩，該城市的著名大景區內共有N（超過10）個景點，標號為1至N，假設每個景點都有一個進出口。現在只知道每個景點有一條路連接下一個景點。小王想知道，根據這些道路信息，從其中一個景點出發，最后再回到出發景點離開，最多能游玩多少個景點。
例如，共有N=5個景點，每個景點連接的下一個景點分別是2，4，2，3，1。
則他可以從2號景點出發，最多可以游玩2號、3號、4號三個景點。程序代碼如下：景點號 1 2 3 4 5 下一景點號 2 4 2 3 1
PrivateSubCommand1_Click
Dima（1To100）AsInteger,d（1To100）AsInteger'數組a存放下一景點號
DimjdAsString,mAsString,cAsInteger,iAsInteger
DimsAsInteger,pAsInteger,kAsInteger,ansAsInteger
jd=Text1.Text+“，“
s=0：c=0
Fori=1ToLen（jd）
m=Mid（jd,i,1）
Ifm＜＞“，“Then
①
Else
c=c+1：a（c）=s：s=0
EndIf
Nexti
Fork=1To100d（k）=0
Nextkans=0：k=0
Fori=1Toc'枚舉起點
Ifd（i）=0Thenp=i
DoWhilep＜=c
Ifd（p）=0Then
k=k+1：d（p）=k
Else
②
Ify＞ansThenans=yk=0
ExitDo
EndIf
'改錯
Loop
EndIf
NextiText2.Text=Str（ans）
EndSub
（1）若有7個景點，且每個景點的連接情況為：6，3，5，2，7，5，4，那么小王最多可以游玩的景點數是。
（2）程序代碼中，程序①②填空
①
②
（3）程序代碼中，加框處代碼有錯，請改正。
改正組卷：4引用：1難度：0.3 -
16．城堡問題。有一個城堡的地形圖，城堡被分割成若干個方塊，每個方塊可以有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，則城堡中最大的房間占塊方格。
（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①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②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
③
Ifj=0Then
ExitDo
x=pre（j）\10：y=pre（j）Mod10
EndIf
Loop
Search=sumEndFunction組卷：0引用：1難度：0.3