2020-2021學年浙江省名校協作體高三（下）月考信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分。每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分）
-
1．下列關于信息的說法正確的是（ ）
組卷：14引用：2難度：0.6 -
2．下列關于信息的表達與交流，說法正確的是（ ）
組卷：7引用：2難度：0.6 -
3．使用Access軟件設計的博物館文物信息數據表，需存儲如圖所示的數據。
下列表結構設計最合理的是（ ）序號 文物名稱 文物編號 距今時間 收藏日期 來源 1 晚清七色釉盤 Q4877111854510 208年 2001-3-1 捐贈 2 明官窯矮罐 M6877111665125 531年 1998-6-8 館有 3 漢青銅短劍 H7877111783721 2000年 1978-9-16 租借 … … … … … … 組卷：7引用：2難度：0.5 -
4．下列有關進制與編碼的說法，正確的是（ ）
組卷：7引用：1難度：0.6 -
5．用Photoshop制作“重陽蹬高”作品，其中“重”字的輪廓被選區選中，部分界面如圖所示。
下列說法正確的是（ ）組卷：8引用：1難度：0.7
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．某分段排序算法描述如下：
（1）將原始數據按升序分成若干有序段。
（2）將第1段和第2段進行合并，使得合并后的數據依舊有序，得到新的有序段。
（3）將新的有序段再次和下一個有序段進行合并。
（4）重復上述操作，直到全部數據變成一個有序段為止，排序結束。
如數據：1、3、9、4、5、7、2、6，第1段為1、3、9，第2段為4、5、7，將第1段和第2段合并，得到新的第1段為1、3、4、5、7、9。繼續和下一段2、6進行合并，合并后段數變為1段，則排序結束。
編寫VB程序，實現分段排序功能：在文本框Text1中輸入數據總量，單擊“數據生成”按鈕Commandl后，在列表框List1中顯示原始數據，然后單擊“分段排序”按鈕Command2，在列表框List2中顯示排序后的結果。程序運行界面如圖所示。
請回答下列問題：
（1）若要清空列表框List1，下列代碼正確的是（單選，填字母）
A.List1.Clear/B.List1.List=““/C.List1.Text=““/D.List1.Caption=“空白“）。
（2）實現分段排序功能的VB程序如下，請在橫線處填入合適的代碼。
（3）程序中代碼有錯，請改正。
Dim a（1 To 1000）As Integer
Dim n As Integer
Private Sub Command1_Click （ ）
'輸入數據總量n,隨機生成n個數據保存在數組
'a（1）～a（n）中，并在List1中顯示數據，代碼略
End Sub
Private Sub Command2_Click （ ）
Dim b（1 To 10000）As Integer
Dim p1 As Integer,p2 As Integer,t1 As Integer,t2 As Integer
Dim t As Integer,k As Integer,i As Integer,j As Integer
p1=1
t1=leng（p1）
p2=p1+t1
Do While p2＜=n
①
i=p1：j=p2：t=1
Do While i＜p2 Or j＜p2+t2
If j＞=p2+t2 Or i＜p2 And a（i）＜a（j） Then
b（t）=a（i）：i=i+1
Else
b（t）=a（j）：j=j+1
End If
t=t+1
Loop
For k=1 To ②
a（k）=b（k）
Next k
t1=t1+t2
p2=p1+p2
Loop
'在List2中輸出數組a（i）的值，代碼略
End Sub
Function Leng（ByVal p As Integer） As Integer
'該函數返回數組a中數組下標p開始的升序有序段的長度，代碼略
End Function組卷：2引用：1難度：0.3 -
16．親戚尋找。小李總是因為認不清親戚而苦惱，于是他設計了如下程序來模擬親戚尋找的過程。已知：如果1和2是親戚，1和3是親戚，則2和3也是親戚。代碼思維如下：
（1）將每個人看成是一個鉤碼，能掛在另一個掛鉤底下，自己底下也能掛其他掛鉤。
（2）如果兩個鉤碼在同一條鉤碼串上，則為親戚（如2、3都能找到1）。
（3）如果兩個是親戚但不在一串鉤碼上，則可將其中一串的最上面的鉤碼掛在另一串的下方。
例如從圖a加框處的前三行數據可得到圖b所示的鉤碼串1和鉤碼串2，從第四行數據可知9、5也為親戚，則可將兩串鉤碼合并，合并后3為2的頂端，5為3的頂端，其余數據以此類推。
根據算法思想，編寫VB程序功能如下：程序初始化時給出6條親戚關系顯示在List1中，單擊“理關系”按鈕，在List2中顯示每個人所在鉤碼的頂端編號。在Text1和Text2中分別輸入兩人的編號，單擊“詢問”按鈕，輸出兩個人是否為親戚關系。程序運行界面如圖a所示。
（1）根據圖a數據，若輸入兩人的編號為4和5，則兩人的關系是否為親戚（填：是/否）。
（2）實現上述功能的VB程序如下，請在橫線處填入合適的代碼。
Const n=9'總人數
Const m=6'已知的親戚關系數
Dim a（1 To n） As String,b（1 To n） As String
Dim f（1 To n） As String'記錄不同的親戚鉤碼串成員，每條親戚鉤碼串內互為親戚
Dim k As Integer'親戚鉤碼串的數目
Private Sub Form_Load （ ）
'初始化List1和List2，生成m條親戚關系，每條親戚關系的編號對應存儲在數組a（i）和b（i）'中，在List1中輸出a（i）和b（i），代碼略
End Sub
Private Sub Command1_Click （ ）
Dim i As Integer,x As Integer,y As Integer
f（1）=a（1）+b（1）'利用a（1）、b（1）生成第一條鉤碼串存儲在f（1）中
k=1'k為鉤碼串編號
For i=2 To m
x=root（a（i），0）：y=root（b（i），0）'x為調用函數獲取a（i）所在的鉤碼串編號
If x=0 And y=0 Then k=k+1：①'根據x與y分類討論
If x＜＞0 And y=0 Then f（x）=f（x）+b（i）
If x=0 And y＜＞0 Then f（y）=f（y）+a（i）
If x＜＞y And x＜＞0 And y＜＞0 Then'x、y在不同鉤碼串則將兩條鉤碼串合并
f（x）=f（x）+f（y）：f（y）=f（k）：k=k-1
End If
Next i
For i=1 To n'輸出每個人所在鉤碼的頂端編號
x=root（CStr（i），0）：y=root（CStr（i），1）'Cstr函數用于去除字符前導空格
If x＜＞0 Then
If y=Len（f（x）） ThenList2.AddItem Str（i）+““+CStr（i）
If y＜＞Len（f（x）） Then List2.AddItem Str（i）+““+②
End If
Next i
End Sub
'按鈕Command2的功能為判斷輸入的兩個人是否為親戚關系，代碼略
Function root（a As String,b As Integer） As Integer'參數a表示待查找目標，參數b
'表示返回值類型，0表示返回目標所在鉤碼串編號，1表示返回目標在該鉤碼串中的位置
Dim m As Integer,n As Integer,i As Integer,j As Integer
m=0：n=0：i=k：j=0
Do While i＞0
If a=Mid（f（i），Len（f（i））-j,1）Thenm=i：n=Len（f（i））-j：Exit Do
j=j+1
If j=Len（f（i）） Then i=i-1：j=0
Loop
If ③Then root=m Else root=n
End Function組卷：4引用：1難度：0.3