2020年浙江省杭州高級中學高考信息技術(shù)仿真模擬試卷
發(fā)布：2025/1/1 9:0:2
一、選擇題（本大題共12小題，每小題2分，共24分，每小題列出的四個備選項中只有一個是符合題目要求的，不選、錯選、多選均不得分。）
-
1．下列有關(guān)信息的說法，正確的是（ ）
組卷：7引用：2難度：0.5 -
2．下列有關(guān)瀏覽器與收藏夾的說法，正確的是（ ）
組卷：0引用：1難度：0.6 -
3．小悅使用Word軟件處理信息的部分界面如圖所示，下列說法正確的是（ ）
組卷：1引用：1難度：0.5 -
4．某Access數(shù)據(jù)表編輯界面如圖所示，以下說法錯誤的是（ ）組卷：13引用：9難度：0.7 -
5．使用Photoshop軟件對“元宵節(jié)1．psd”進行處理，編輯界面如圖所示。下列說法正確的是（ ）
組卷：3引用：1難度：0.5
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分。）
-
15．某校運動會跳遠比賽，共m位（m≤20）選手參加該比賽，第一輪初賽每位選手跳3次，然后按每位選手的最好成績，按高到低取前k名（若最好成績相同，則名次相同）進入第二輪復賽。
每位選手的成績數(shù)據(jù)記錄規(guī)則如下：成績數(shù)據(jù)以“；”（分號）結(jié)尾，中間用“/”（斜杠）分隔，例如：“王一超/4.10/-/3.78；李雨歆/3.87/3.85/4.20；”，表示第一位選手王一超，第一次成績4.10米，第二次成績無效（用“-”表示），第三次成績3.78米，最好成績?yōu)?.10米。第二位選手李雨歆，3次成績分別是3.87米、3.85和4.20米，最好成績?yōu)?.20米。
小強編寫VB程序?qū)崿F(xiàn)上述功能：程序運行時，讀取所有選手數(shù)據(jù)保存在變量cj中，并顯示在列表框 List1中。在文本框Text1中輸入進入第二輪的名次，單擊“第二輪復賽名單”按鈕 Command1，對數(shù)據(jù)進行統(tǒng)計分析，并在列表框 List2 中顯示進入復賽的選手名單和最好成績，程序運行界面如圖所示，請回答下列問題。
（1）代碼“List2．AddItem”中的 AddItem 是（單選，填字母：A．事件名/B．方法名/C．屬性名）。
（2）實現(xiàn)上述功能的 VB 程序如下，請在橫線處填入合適的代碼。
（3）程序中加框處代碼有錯，請改正。
Private Sub Command1_Click （ ）
Dim cj As String,xm（1 To 20）As String,maxcj（0 To 20）As Single
Dim s As String,c As String,t As Single,z As Integer
Dim i As Integer,j As Integer,n As Integer,k As Integer,m As Integer
'讀取所有選手數(shù)據(jù)保存在變量cj中，并顯示在列表框 List1中，代碼略
n=Len（cj）
i=1：m=1：z=1
Do While i＜=n
c=Mid（cj,i,1）
j=i
Do While
'（3）
i=i+1
c=Mid（cj,i,1）
Loop
If z=1 Then
①
Else
t=Val（Mid（cj,j,i-j））
If t＞maxcj（m） Then maxcj（m）=t
End If
z=z+1：i=i+1
If c=″；″Then m=m+1：z=1
Loop
m=m-1
k=Val（Text1．Text）
For i=1 To m-1
For j=②
If maxcj（j）＞maxcj（j-1）Then
c=xm（j）：xm（j）=xm（j-1）：xm（j-1）=c
t=maxcj（j）：maxcj（j）=maxcj（j-1）：maxcj（j-1）=t
End If
Next j
If ③Then
List2．AddItem xm（i）+Str（maxcj（i））
Else
Exit For
End If
Next i
End Sub組卷：0引用：1難度：0.5 -
16．某地區(qū)進行了4三個年級技術(shù)聯(lián)考，現(xiàn)要求按學校分類對高三年級技術(shù)成績降序排序后輸出。小王編寫了一個VB程序?qū)崿F(xiàn)上述要求。先單擊“統(tǒng)計”按鈕Command1，讀取數(shù)據(jù)庫中每位學生的學校、年級、姓名和成績等信息，進行統(tǒng)計分析后，并在列表框List2中分學校按成績降序輸出。程序運行時界面如圖所示。
（1）根據(jù)圖中示例數(shù)據(jù)，采用選擇排序算法分別對學校B的數(shù)據(jù)進行排序，整個排序過程中，數(shù)組元素之間的比較次數(shù)是（單選，填字母：A．37×19 次/B．37×18 次/C．36次）。
（2）請在橫線處填入合適的代碼。
Const rs=480'聯(lián)考參加學生總?cè)藬?shù)rs
Const no=3'聯(lián)考參加學校數(shù)no
Dim school（1 To rs） As String'存儲學生的學校
Dim nj（1 To rs） As String'存儲學生的年級
Dim xm（1 To rs） As String'存儲學生的姓名
Dim cj（1 To rs） As Integer'存儲學生的成績
Dim p（1 To rs） As Integer'索引數(shù)組
Dim num（1 To no） As Integer
Dim n As Integer
Function id（s As String） As Integer
'根據(jù)學校名稱轉(zhuǎn)換為對應的數(shù)字ID號，代碼略
End Function
Private Sub form_load （ ）
'本過程讀取每位學生的學校、年級、姓名和成績的數(shù)據(jù)分別存儲在數(shù)組school,nj、xm 和 cj 中，并在 List1 中顯示學生成績數(shù)據(jù)和每個學校的高三人數(shù)，代碼略；
End Sub
Private Sub Command1_Click （ ）
Dim i As Integer,j As Integer,k As Integer,t As Integer,pos As Integer
Dim b（1 To no） As Integer,c（1 To rs） As Integer,q（1 To rs） As Integer
k=0
For i=1 To n
If nj（i）=″高三″Then
k=k+1
p（k）=①
num（id（school（i）））=num（id（school（i）））+1
End If
Next i
'在 List1 中顯示各學校的高三人數(shù)，代碼略；
c（1）=1
For i=2 To no
c（i）=c（i-1）+num（i-1）
Next i
For i=1 To k
t=id（school（p（i）））
②
c（t）=c（t）+1
Next i
'----按學校分類，從高分到低分排序后輸出-----
pos=1
For i=1 To no
For j=pos To c（i）-2
For m=c（i）-1 To j+1 Step-1
If ③ Then
temp=q（m）：q（m）=q（m-1）：④
End If
Next m
Next j
pos=c（i）
Next i
For i=1 To k
List2．AddItem school（q（i）） &″″& xm（q（i）） &″″& nj（q（i）） &″″& cj（q（i））
Next i
End Sub組卷：0引用：1難度：0.3