2020年浙江省舟山中學高考信息技術仿真模擬試卷
發布：2024/11/24 13:30:2
一、（本大題共12小題，每小題2，共24分，每小題列出的四個備選項中只有一個是符合題目要求的，不選、錯選、多選均不得分。）
-
1．下列有關信息與信息技術的說法，正確的是（ ）
①信息表達的規范化有利于信息的交流
②信息的表示、傳播、存儲不一定依附于某種載體
③多媒體信息必須數字化后，才能被計算機存儲和處理
④信息的加工和管理必須使用計算機才能完成
⑤近代信息技術有攝影技術、微電子技術、廣播和電視技術
⑥信息具有時效性，獲取的信息應當立即發布
⑦信息具有共享性，可以在網盤中共享各類視頻點播服務組卷：5引用：1難度：0.6 -
2．下列關于網站與網頁描述正確的是（ ）
組卷：5引用：1難度：0.6 -
3．有一條數據“20210106，楊逸，False,2001/12/08”想分別復制到相應的字段中，有出錯提示，可能原因是（ ）
組卷：4引用：1難度：0.6 -
4．一幅大小為 1024*768，位深度為 24 位的 BMP 圖片，把它另存為大小為 512*768 像素的黑白 256 級灰 度 BMP 圖象，其存儲容量約為原來的（ ）
組卷：1引用：1難度：0.6 -
5．使用 GoldWave 軟件打開某音頻文件，選中一段音頻后的部分界面如圖所示。下面說法正確的是（ ）
組卷：1引用：2難度：0.2
二、非選擇題（本大題共4小題，其中第1小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．現要編寫一個程序，對每個班級的同學生成考試座位號，規則如下：先按成績從高到低排序，如果成績相同，學號在前的學生座位號在前，最后輸出每個同學的座 位號。小王和小李采用不同的方法實現了上述算法。 請仔細比較兩位同學的代碼的不同之處，并完成相關代碼的填空。
Dim xm（1 To n） As String,xh（1 To n） As String
Dim cj（1 to n）As Integer
Private Sub form_load （ ）
‘讀取相關數據表，把姓名、學號、成績分別存儲到數組 xm、xh、cj 中，并在 List1 中顯示，代碼略 End Sub
Private Sub Com1_Click （ ）′小王編寫的代碼部分
Dim wz（1 To n） As Integer
For i=1 To n-1 wz（i）=i
For j=n To i+1 Step-1
If （1）Then
t=cj（j）：cj（j）=cj（j-1）：cj（j-1）=t t=xh（j）：xh（j）=xh（j-1）：xh（j-1）=t
End If
Next j
Next i
（2） For i=1 To n-1
For j=n To i+1 Step-1
If（3）Then
t=cj（j）：cj（j）=cj（j-1）：cj（j-1）=t t=xh（j）：xh（j）=xh（j-1）：xh（j-1）=t t=wz（j）：wz（j）=wz（j-1）：wz（j-1）=t
End If
Next j
Next i
List2．Clear
List2．AddItem″學號 姓名 成績 座位號″For i=1 To n
List2．AddItem xh（i）+″″+xm（i）+″″+Str（cj（i））+““+Str（wz（i））
Next i
End Sub
Private Sub Com2_Click （ ）′小李編寫的代碼部分
Dim wz（1 To n） As Integer,t（1 To n） As Integer
For i=1 To n t（i）=i
Next i
For i=1 To n
For j=n To i+1 Step-1
If（4）Then
temp=t（j）：t（j）=t（j-1）：t（j-1）=temp
End If
Next j（5）Next i
List2．Clear
List2．AddItem″學號 姓名 成績 座位號″For i=1 To n
List2．AddItem xh（i）+″″+xm（i）+″″+Str（cj（i））+″″+Str（wz（i））
Next i
End Sub組卷：5引用：1難度：0.3 -
16．小奕同學基于排序算法設計了一個數字矩陣排序的程序。程序界面如圖所示，在文本框中輸入矩陣大小，點擊“生成”按鈕 Command1，在左側列表框 List1 中輸出一個長寬均為指定大小的隨機 整數矩陣，隨機整數范圍為【1，99】。點擊“排序”按鈕 Command2，結果輸出在右側列表框 List2 中，奇數行從左到右依次遞增，偶數行從右至左依次遞增，且保持輸出矩陣的長寬不變。
（1）實現上述功能的 VB 程序如下，顯示數據用的additem 是一種（單選，填字母：A．屬性名
/B．事件名/C．方法名/D．過程名）。
（2）請在橫線處填入合適的代碼。
（3）程序中加框處代碼有錯，請改正。Dim a（1 To 100）As Integer
Dim n As Integer
Function dq（s As String,L As Integer） As String'自定義對齊函數
Rem 在輸入的字符串 s 前加若干空格，輸出長度為 L 的字符串，代碼略 End Function
PrivateSub Command1_Click （ ）'生成數字矩陣
‘隨機生成 n^2 個數字，存儲在數組 a 中，代碼略
‘以一行 n 個，共 n 行的格式顯示在 List1 中，代碼略
End Sub
Private Sub Command2_Click （ ）'數字矩陣排序
Dim i As Integer,k As Integer,j As Integer,s As String
Dim f As Boolean
List2．Clear f=True
For i=1 To n^2 Step n s=″″
For j=i To
k=n^2
Do While①
If a（k）＜a（k-1）Then
t=a（k）：a（k）=a（k-1）：a（k-1）=t
End If
k=k-1
Loop
If f=True Then
s=s+″″+dq（Str（a（j）），2）Else
s=″″+dq（Str（a（j）），2）+s
End If Next j List2．AddItem s
② Next i
End Sub組卷：0引用：1難度：0.5