2020年浙江省“山水聯(lián)盟”高考信息技術(shù)模擬試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分，每小題列出的四個備選項中只有一個是符合題目要求的，不選、錯選、多選均不得分。）
-
1．下列關(guān)于信息的說法，不正確的是（ ?。?/h2>
組卷：1引用：1難度：0.7 -
2．小齊起床后先后做了下列事情，其中體現(xiàn)人工智能技術(shù)應(yīng)用的是（ ?。?/h2>
組卷：3引用：1難度：0.7 -
3．使用 Access 打開數(shù)據(jù)庫，部分界面如圖所示，下列說法正確的是（ ?。?img alt="菁優(yōu)網(wǎng)" src="https://img.jyeoo.net/quiz/images/202007/140/124141e9.png" style="vertical-align:middle" />
組卷：4引用：1難度：0.7 -
4．使用 UltraEdit 軟件查看字符內(nèi)碼，部分界面如圖所示。下列說法正確的是（ ）
組卷：3引用：1難度：0.5 -
5．用 GoldWave 軟件編輯音頻，部分界面如圖所示。下列說法正確的是（ ?。?img alt="菁優(yōu)網(wǎng)" src="https://img.jyeoo.net/quiz/images/202007/140/06a5f925.png" style="vertical-align:middle" />
組卷：0引用：1難度：0.5
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．小章想將a數(shù)組中n個元素排列成合唱隊列形態(tài)，具體方法如下：
①如果n是奇數(shù)，選出所有數(shù)據(jù)中最大元素，將其放在a數(shù)組正中間位置。
②從剩下待處理數(shù)據(jù)中選出最大的兩個元素，同時將較大元素放在已處理數(shù)據(jù)段的右側(cè)，較小元素放在已處理數(shù)據(jù)段的左側(cè)。
③反復(fù)執(zhí)行操作②，直到所有數(shù)據(jù)處理完畢。按上述要求，小章編寫一個VB程序，功能如下：
在文本框Text1中輸入n,單擊“生成”按鈕Command1，并在文本框 List1 中顯示排序前 數(shù)據(jù)；單擊“排序”按鈕Command2，在列表框 List2 中輸出處理后的結(jié)果。程序運行界面如圖所示。
（1）下列哪個選項，可以將窗體Form1標(biāo)題改為：“生成合唱隊列”（單選，填字 母：A．Form.Caption=“生成合唱隊列”/B．Label1．Caption=“生成合唱隊列”/C．Form1．Caption=“生成合唱隊列”）
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處①②③填入合適代碼。
（3）程序加框處代碼有錯，請改正。
Dim a（1 To 100）As Integer
Dim n As Integer
Private Sub Command1_Click （ ?。?br />'在文本框 Text1 中輸入 n（n＜=100）
'排序前數(shù)據(jù)存儲在數(shù)組 a 中，并在文本框 List1 中顯示
'代碼略
End Sub
Private Sub Command2_Click （ ?。?br />Dim i As Integer,j As Integer,t As Integer
Dim pMax1 As Integer,pMax2 As Integer pMax1=n\2+1：pMax2=n\2
If①Then
For i=1 To n
If a（i）＞a（pMax1）Then t x k w=a（pMax1）：a（pMax1）=a（i）：a（i）=t
Next i
pMax1=pMax1+1
End If
For i=1 To n\2
If ②Then t=a（pMax1）：a（pMax1）=a（pMax2）：a（pMax2）=t j=pMax1 Mod n+1
Do While j＜＞pMax2
If a（j）＞a（pMax1）Then
t=a（pMax1）：a（pMax1）=a（j）：a（j）=t t=a（pMax2）：a（pMax2）=a（j）：a（j）=t
t=a（pMax2）：a（pMax2）=a（j）：a（j）=t
End If
③
Loop
pMax1=pMax1+1
pMax2=pMax2-1
Next i
For i=1 To n
List2．AddItem Str（a（i））
Next i
End Sub組卷：0引用：2難度：0.5 -
16．為促進(jìn)學(xué)生學(xué)習(xí)中互幫互助，每次考后章老師都會按成績重新編排機(jī)房上課位置，編排要求如下：
（1）按分?jǐn)?shù)從高到低排序。若分?jǐn)?shù)相同，則按學(xué)號進(jìn)行升序排序。
（2）以班級為單位，排出從 1 號開始的機(jī)房座位表。章老師編寫了一個位置編排功能的 VB 程序，運行界面如圖所示。
在文本框 Text1 中輸入班級名稱，單擊“讀數(shù)據(jù)庫”按鈕 Command1 后，從數(shù)據(jù)庫讀取數(shù) 據(jù)并顯示在列表框 List1 中；單擊“編排”按鈕 Command2，在列表框 List2 中輸出學(xué)號、姓名、成績和位置信息。程序運行界面如圖所示。
實現(xiàn)以上功能的 VB 程序如圖，請回答下列問題：
（1）分析程序，可知數(shù)據(jù)庫的文件名為。
（2）請在橫線處填入合適的代碼。
Dim n As Integer
Dim xh（1 To 40）As Integer,xm（1 To 40）As String,cj（1 To 40）As Integer
Private Sub Command1_Click （ ?。?br />'本過程在文本框 Text1 中輸入班級名稱，從數(shù)據(jù)庫中讀取指定班級的學(xué)號、姓名和成績的'數(shù)據(jù)分別存儲在數(shù)組 xh,xm 和 cj 中
Dim conn As New ADODB．Connection
conn.ConnectionString=“provider=microsoft.ace.jye.ai.12.0；data source=″
+App.Path+″\js.jye.ai″
conn.Open
Dim rs As New ADODB．Recordset rs.ActiveConnection=conn
rs.Open″select*from 技術(shù)″
'本過程的其他語句略
End Sub
Private Sub Command2_Click （ ）
Dim wz（1 To 40）As Integer
Dim i As Integer,j As Integer
List2．AddItem“學(xué)號″&″″&″姓 名″&″″&″成績″&″″&″位置″
For i=1 To n
①
Next i
For i=1 To n
For j=1 To n
If ②Then wz（i）=wz（i）+1
End If
Next j
List2．AddItem adj（Str（xh（i）））+adj（xm（i））+adj（Str（cj（i）））+adj（Str（wz（i）））
Next i
End Sub
Function adj（c As String） As String'固定輸出 5 個字符長度
Dim i As Integer
③
For i=1 To 5-Len（c）
adj=adj+″″
Next i
End Function組卷：0引用：1難度：0.5