2020-2021學(xué)年浙江省五湖聯(lián)盟高三（上）期末信息技術(shù)試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分，每小題列出的四個備選項中只有一個是符合題目要求的，不選、錯選、多選均不得分。）
-
1．下列有關(guān)信息的說法，正確的是（ ）
組卷：6引用：1難度：0.6 -
2．下列行為合法的是（ ?。?/h2>
組卷：8引用：3難度：0.9 -
3．使用 Access 軟件打開數(shù)據(jù)庫中的表，其部分界面如圖所示，下列說法正確的是（ ?。?br />
組卷：4引用：1難度：0.5 -
4．用Ultra Edit軟件觀察字符“2021，cheer up！”的內(nèi)碼如圖所示，以下說法正確的是（ ?。?br />
組卷：5引用：1難度：0.5 -
5．使用GoldWave軟件編輯某音頻文件，部分界面如圖所示。下列說法正確的是（ ?。?br />
組卷：3引用：2難度：0.2
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分。）
-
15．凱凱學(xué)習(xí)了桶排序和冒泡排序，他發(fā)現(xiàn)桶排序占空間比較多而冒泡排序的效率又較低，于是他想到綜合兩個算法來對數(shù)據(jù)進(jìn)行排序。凱凱對 n 個由二位數(shù)組成的數(shù)據(jù)進(jìn)行排序，排序步驟如下：
（1）以每個數(shù)的十位數(shù)來區(qū)分，放置到各個桶里（如圖①）；
（2）分別對每個桶中的數(shù)據(jù)進(jìn)行冒泡排序（如圖②）；
（3）最后依次輸出各個桶中的數(shù)據(jù)即可（如圖③）
Dim a（1 To 100）As Integer,b（1 To 100）As Integer
Dim c（0 To 10）As Integer Dim n As Integer
Private Sub Form_Load
'讀取若干個二位數(shù)到 a（i）中，并保存?zhèn)€數(shù)到 n
End Sub
Private Sub Command1_Click
Dim i As Integer,t As Integer
For i=1 To n
c（a（i）\10）=c（a（i）\10）+1
Next i
c（0）=1：c（10）=
For i=1 To 9
c（i）=c（i）+c（i-1）
Next i
For i=1 To n
t=a（i）\10
c（t）=c（t）-1
Next i
For i=1 To 9
Call px（c（i），c（i+1）-1）
Next i
For i=1 To n
List2.AddItem b（i）
Next i
End Sub
Sub px（x As Integer,y As Integer）
Dim t As Integer,i As Integer,j As Integer
For i=
For j=x To y-i
If b（j）＞b（j+1）Then
t=b（j）：b（j）=b（j+1）：b（j+1）=t
End If
Next j
Next i
End Sub
（1）若要修改“桶排”按鈕上顯示的文字，應(yīng)修改的屬性名是。
（2）加框處代碼有錯，請改正。
（3）請在橫線處填入合適的代碼。組卷：0引用：1難度：0.3 -
16．信息科代表楠楠想給美麗的信息老師寫一段心里話，又怕被人發(fā)現(xiàn)，于是想了一個兩全其美的方法。楠楠有兩張n*n大小的紙，一張是透明的，一張是有字的。楠楠在透明的紙上涂黑了一些格子，然后把兩張紙一起給信息老師，并告訴老師閱讀方法：首先把透明的紙蓋在另一張紙上，然后把露出來的字母從上到下從左到右寫下來并將每個字母向左循環(huán)移一位（如取出是D，則左移為C），然后將透明的紙順時針旋轉(zhuǎn)90度，再讀一遍，這樣子一共讀四遍，就得到情書內(nèi)容。
（1）若透明紙上的涂黑處（“O”沒有涂黑的地方，“#”代表被涂黑的地方）如圖a所示，有字紙張內(nèi)容如圖b所示，則獲取的情書內(nèi)容的前八位內(nèi)容。
（2）楠楠根據(jù)上述閱讀規(guī)則，結(jié)合學(xué)科特點，發(fā)揮自己 特長，設(shè)計了一科個獲取心里話的小程序。其VB代碼和運行界面如圖c所示，請在橫線處填入合適的代碼。
Dim a（1 To 1000）As String
Const n=4
Private Sub Form_Load （ ?。?br />Dim x As Integer,s As String
Dim b（1 To n*n） As Boolean
Randomize
For i=1 To n‘隨機(jī)產(chǎn)生n個位置，使得這些位置表示未被涂黑
If b（x）=False Then
a（x）=″0″
b（x）=True
Else
i=i-1
End If Next i
‘將其余位置賦值為“#”，存入數(shù)組a相應(yīng)的位置中，并將結(jié)果按n行n列的方式顯示在列表框list1上，代碼略
End Sub
Private Sub Command1_Click
Dim s As String,jg As String,ch As String
s=″HAOXUEXIHAODUSHU″
For i=1 To n*n Step n
List2.AddItem Mid（s,i,n）
Next i
For i=1 To n
For j=1 To n*n
If a（j）=″0″Then
ch=Mid（s,j,1）
ch=
jg=jg+ch
End If
Next j
Call turn（n）‘調(diào)用過程turn,完成矩陣順時針旋轉(zhuǎn)90度
Next i
Label1.Caption=jg End Sub
Sub turn（x As Integer）
Dim i As Integer,j As Integer
Dim c（1 To n*n） As String
For i=1 To x
For j=1 To x
c（（i-1）*x+j）=
Next j
Next i
For i=1 To n*n
a（i）=c（i）
Next i End Sub組卷：4引用：1難度：0.2