2020年浙江省金華十校高考信息技術(shù)模擬試卷（4月份）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題0分共24分。每小題列出的四個備選項中只有一個是符合題目要求的，不選多選、錯選均不得分）
-
1．下列關(guān)于信息和信息技術(shù)的說法，不正確的是（ ）
組卷：2引用：1難度：0.5 -
2．下列關(guān)于網(wǎng)絡(luò)和網(wǎng)頁的相關(guān)說法，正確的是（ ）
組卷：1引用：3難度：0.6 -
3．小明用Word 軟件編輯了一篇科學(xué)小論文并發(fā)給老師修改，下列描述正確的是（ ）
組卷：0引用：1難度：0.5 -
4．某員工管理系統(tǒng)使用 Access建數(shù)據(jù)表，部分界面如圖所示。下列說法不正確的是（ ）
組卷：1引用：1難度：0.6 -
5．使用GoldWave軟件處理音頻文件，選中其中一段音頻后的部分界面如圖所示：
下列說法正確的是（ ）組卷：0引用：1難度：0.5
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．醫(yī)療物資打包。抗疫志愿隊接到一項任務(wù)要將N份醫(yī)療物資打包成1個大包裹，每份物資的重量為D（1）、D（2）、…、D（n）。由于設(shè)備原因，每次只能將2個包裹分裝成1份。由于每次打包都需要移動物資，需要消耗體力。消耗的體力值為打包的醫(yī)療物資的重量之和。
例如將9、9、6的三份物資打包時，先將9和6的兩份打包，消耗體力15，再將15和9兩個包裹打包為1個消耗體力24，于是總的體力消耗值為39
經(jīng)過志愿隊眾人分析，每次將現(xiàn)存包裹中最輕的兩個合并，消耗的總體力會最小。
小風(fēng)同學(xué)根據(jù)這一算法策略，編寫VB程序用于計算n份包裹分裝需要的最少體力值
（1）要使得程序的標(biāo)題欄中顯示”醫(yī)療物資打包，可修改窗體的屬性（單選，填字母：A.Text/B.Form/C.Caption）.
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
①
②
③
（3）程序中加框處代碼有錯，請改正。
Dim（1 To 100）As Integer
Dim n As Integer
Private Sub Form_Load ____
’讀入n的值和n個包裹的重量依次存入d（1）.d（n）
End Sub
Private Sub Command1 _Click ____
For i=1 To n
Call px（i）
Next i
ans=0
Do While①
d（n-1）=d（n）+d（n-1）
n=n-1
ans-ans+d（n）+d （n-1 ）
②
Loop
Text1.text=ans
End Sub
Sub px（ByVal n As Integer）
For i=n To 2 Step-1
If ③Then
tmp=d（i）：d（i）=d（i-1）：d（i-1）=tmp
End If
Next i
End Sub組卷：1引用：1難度：0.3 -
16．積分循環(huán)賽是棋類比賽中經(jīng)常使用的賽制之一它能有效地避免種子選手一開始就交鋒、拼掉。若有n（n一定為偶數(shù)）支隊伍進(jìn)行r輪比賽采用積分循環(huán)賽，則比賽規(guī)則如下：
①第一輪比賽前，先給各隊伍隨機(jī)排名，設(shè)定隊伍編號：排名i的編號為i
②第一輪比賽：第1名和第2名、第3名和第4名、…、第n-1名和第n名，各進(jìn)行一場比賽。每場比賽勝者得1分，負(fù)者得0分（已知所有隊伍的實力值不同，且實力值高的隊伍一定可以打敗實力值低的隊伍）
③根據(jù)比賽得到的分?jǐn)?shù)，按照分?jǐn)?shù)從高到低排名，若分?jǐn)?shù)相同則編號小的隊伍排在前面。
④接下去的r-1輪比賽均采用②的規(guī)則進(jìn)行比賽，且每比完一場比賽都按照③的規(guī)則對隊伍順序排名，排名的結(jié)果是下一輪比賽隊伍的順序。
程序界面如下圖。
（1）若有4支編號依次為“1，2，3，4”隊伍進(jìn)行2輪比賽，且各支隊伍實力值依次為“12，9，16，15”，則2輪比賽后隊伍“1，2，3，4”的分?jǐn)?shù)依次是。（分?jǐn)?shù)用逗號隔開）
（2）請在橫線處完成代碼填空。
Dim a（1 To 100）Integer,b（1 To 100）As Integer
Dim num（1 To 100）As Integer,win（1 To 100）As Integer,lose（1 To 100）As Integer
Dim win_num As Integer,lose_num As Integer
Dim As Integer,r As Integer,s1 As String,As String,53 As String
Private Sub Command1_Click ____
讀取已打亂的隊伍信息，編號、實力分別存在數(shù)組num和數(shù)組a中，且將數(shù)組b置0
代碼略
End Sub
Private Sub Command2_Click ____
Dim i As Integer,j As Integer,t As Integer
ori=1 To Step2 先比第一輪
If a（i）＞a（+1）Then b（i）=1 Else ____
Next i
For i=1Ton-1 將第一輪結(jié)果排序
For j=1 Ton-i
If cmp（） Then
t=num（j）：num（j）=num（j+1）：num（j+1）=t End If
Next j
Next i
For i=1 To r-1'比剩下的 r-1 輪比賽
win_num=0：lose_num=0
For j=1 To n Step 2
win_num=win_num+1：lose_num=lose_num+1
If a（num（j））＞a（num（j+1）） Then
b（num（j））=b（num（j））+1
win（win_num）=num（j）：lose（lose_num）=num（j+1）
Else
b（num（j+1））=b（num（j+1））+1
win（win_num）=num（j+1）：lose（lose_num）=num（j）
End If
Next j
Call merge'調(diào)用過程，合并勝利組和失敗組Next i
s1=“編號：“：s2=“分?jǐn)?shù)：“
For i=1 To n
s1=s1+format（num（i））
s2=s2+format（）
Next i
List2.AddItem s1 List2.AddItem s2
End Sub
Sub merge'合并過程
'將勝利組與失敗組按照分?jǐn)?shù)合并，生成下一輪比賽順序并存回數(shù)組 num 中
'代碼略End Sub
Function format（x As Integer） As String'格式化字符串函數(shù)'將輸入數(shù)字格式化為 3 個字符長度，代碼略
End Function
Function cmp（i As Integer,j As Integer） As Boolean'比較函數(shù)cmp=False
If b（i）=b（j） Then
If i＜j Then cmp=True
ElseIf b（i）＞b（j） Then cmp=True
End If
End Function組卷：0引用：1難度：0.3