2020年浙江省“山水聯盟”高考信息技術模擬試卷
發布：2024/12/31 5:30:4
一、選擇題（本大題共12小題，每小題2分，共24分，每小題列出的四個備選項中只有一個是符合題目要求的，不選、錯選、多選均不得分。）
-
1．下列關于信息的說法，不正確的是（ ）
組卷：1引用：1難度：0.7 -
2．小齊起床后先后做了下列事情，其中體現人工智能技術應用的是（ ）
組卷：3引用：1難度：0.7 -
3．使用 Access 打開數據庫，部分界面如圖所示，下列說法正確的是（ ）
組卷：4引用：1難度：0.7 -
4．使用 UltraEdit 軟件查看字符內碼，部分界面如圖所示。下列說法正確的是（ ）
組卷：3引用：1難度：0.5 -
5．用 GoldWave 軟件編輯音頻，部分界面如圖所示。下列說法正確的是（ ）
組卷：0引用：1難度：0.5
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．小章想將a數組中n個元素排列成合唱隊列形態，具體方法如下：
①如果n是奇數，選出所有數據中最大元素，將其放在a數組正中間位置。
②從剩下待處理數據中選出最大的兩個元素，同時將較大元素放在已處理數據段的右側，較小元素放在已處理數據段的左側。
③反復執行操作②，直到所有數據處理完畢。按上述要求，小章編寫一個VB程序，功能如下：
在文本框Text1中輸入n,單擊“生成”按鈕Command1，并在文本框 List1 中顯示排序前 數據；單擊“排序”按鈕Command2，在列表框 List2 中輸出處理后的結果。程序運行界面如圖所示。
（1）下列哪個選項，可以將窗體Form1標題改為：“生成合唱隊列”（單選，填字 母：A．Form.Caption=“生成合唱隊列”/B．Label1．Caption=“生成合唱隊列”/C．Form1．Caption=“生成合唱隊列”）
（2）實現上述功能的VB程序如下，請在橫線處①②③填入合適代碼。
（3）程序加框處代碼有錯，請改正。
Dim a（1 To 100）As Integer
Dim n As Integer
Private Sub Command1_Click （ ）
'在文本框 Text1 中輸入 n（n＜=100）
'排序前數據存儲在數組 a 中，并在文本框 List1 中顯示
'代碼略
End Sub
Private Sub Command2_Click （ ）
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．為促進學生學習中互幫互助，每次考后章老師都會按成績重新編排機房上課位置，編排要求如下：
（1）按分數從高到低排序。若分數相同，則按學號進行升序排序。
（2）以班級為單位，排出從 1 號開始的機房座位表。章老師編寫了一個位置編排功能的 VB 程序，運行界面如圖所示。
在文本框 Text1 中輸入班級名稱，單擊“讀數據庫”按鈕 Command1 后，從數據庫讀取數 據并顯示在列表框 List1 中；單擊“編排”按鈕 Command2，在列表框 List2 中輸出學號、姓名、成績和位置信息。程序運行界面如圖所示。
實現以上功能的 VB 程序如圖，請回答下列問題：
（1）分析程序，可知數據庫的文件名為。
（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 （ ）
'本過程在文本框 Text1 中輸入班級名稱，從數據庫中讀取指定班級的學號、姓名和成績的'數據分別存儲在數組 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 技術″
'本過程的其他語句略
End Sub
Private Sub Command2_Click （ ）
Dim wz（1 To 40）As Integer
Dim i As Integer,j As Integer
List2．AddItem“學號″&″″&″姓 名″&″″&″成績″&″″&″位置″
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