2021年浙江省高考信息技術(shù)模擬試卷（3月份）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分。在每小題給出的四個選項中，只有一個符合題目要求，不選、多選、錯選均不得分）
-
1．下列有關(guān)信息與信息處理的說法，錯誤的是（ ?。?/h2>
組卷：4引用：1難度：0.7 -
2．下列有關(guān)網(wǎng)頁與瀏覽器的說法，錯誤的是（ ）
組卷：3引用：1難度：0.6 -
3．用Access軟件設(shè)計某圖書管理系統(tǒng)的數(shù)據(jù)庫，“圖書”表的數(shù)據(jù)視圖如圖所示。（ ）
下列對“圖書”表結(jié)構(gòu)設(shè)計最合理的是（ ?。?/h2>組卷：5引用：1難度：0.4 -
4．下列關(guān)于數(shù)制及運算規(guī)則（整數(shù)部分）的說法，錯誤的是（ ?。?/h2>
組卷：10引用：1難度：0.3 -
5．使用GoldWave軟件打開某音頻文件，界面如圖所示。
關(guān)于該音頻下列說法錯誤的是（ ?。?/h2>組卷：3引用：1難度：0.5
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．程序運行后，在文本框Text1中輸入填涂的答案，每個答案以“，”結(jié)束，如果出現(xiàn)連續(xù)兩個“，”，說明該題未作答；在文本框Text2中輸入?yún)⒖即鸢?，每個答案以“，”結(jié)束，點擊評分按鈕，在標(biāo)簽Label3中輸出最后得分。程序運行界面如圖所示：
請回答下列問題：
（1）下列對象中，有Caption屬性的是（單選，填字母：A.Command1/B.Text1/C.List1）。
（2）實現(xiàn)按多選題評分標(biāo)準(zhǔn)的評分功能的VB程序如下，請在橫線處填入合適的代碼。
（3）程序中（*）處代碼有錯，請改正。
Private Sub Command1_Click
Dim i As Integer,j As Integer
Dim ttda As String,ckda As String,tt As String,ck As String
ttda=Text1.Text
ckda=Text2-Text
i=1：j=1
Do While i＜=Len（ttda）And j＜=Len（ckda）
tt=midd（I，ttda）：ck=midd（j,ckda）
If Len（tt）＜＞0 Then
tt1=xxsz（tt）：ck1=xxsz（ck）
IfThen
df=2
Else
For k=1 To 4
If Mid（ttl,k,l）?Mid（ckl,k,l） Then Exit For（*）
Next k
If k=5 Then df=1 Else df=0
End If
zf=ft+df
End If
i=i+Len（tt）+1：j=j+Len（ck）+1
Loop
Label3.Caption=“總計“+Str（zf）+“分“
End Sub
Function xxsz（s As String）As String′將選項轉(zhuǎn)換為對應(yīng)四位二進(jìn)制數(shù)，已知大寫字母“A“的ASCII碼值為65
t=“0000“
For i=1 To Len（s）
Next i
xxsz=t
End Function
Function midd（k As Integer,s As String）As String′讀取每題選項
Dim i As Integer
i=k
Do While i＜=Len（s）
If Mid（s,i,1）＜＞“，“Then
Else
Exit Function
End If
i=i+1
Loop
End Function組卷：0引用：1難度：0.3 -
16．編寫VB程序，功能是根據(jù)各城市初賽成績（城市數(shù)為偶數(shù)，每個城市初賽人數(shù)≥3）前3名的選手進(jìn)行復(fù)賽分組。其中各城市選手編號由城市代碼+編號組成，例如“A001“表示A市001號，復(fù)賽分組規(guī)則如表所示：
程序運行界面如圖所示：第1組 第2組 第3組 …… 第7組 第8組 第9組 A市第1名 A市第2名 A市第3名 …… E市第1名 E市第2名 E市第3名 B市第3名 B市第2名 B市第1名 …… F市第3名 F市第2名 F市第1名 
（1）若存儲初賽成績的數(shù)據(jù)表中增加一條記錄“選手編號為B058，選手成績?yōu)?7.6”，重新運行該程序讀取數(shù)據(jù)，點擊“分組”后，與選手“A001”分到一組進(jìn)行復(fù)賽的選手編號為。
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
Const nc=6′nc個城市參賽
Dim result（1 To 1000）As Single′存儲選手的初賽成績
Dim player（1 To 1000）As String′存儲各城市選手編號
Dim n As Integer′存儲初賽總?cè)藬?shù)
Dim record（1 To 3*nc）As Integer
Dim i As Integer
Private Sub Form_Load
′從數(shù)據(jù)庫中讀取初賽選手編號、選手成績，存人數(shù)組player,result中，代碼略
End Sub
Private Sub Command1_Click
Dim group（1 To nc）As Integer
Dim i As Integer,k As Integer,w As Integer
For i=1 To nc
group（i）=0
Next i
For i=1 To n
k=
group（k）=group（k）+1
If group（k）=1 Then
record（（k-1）*3-1）=i
Else If group（k）＜=3 Then
record（（k-1）*3+w）=i
Else
If result（i）＞result（record（（k-1）*3+3））Then
w=find（3，k）
record（（k-1）*3-w）=i
End If
End If
Next i
For i=1 To 3*nc
List1.AddItem player（record（i））&“選手成績：“&result（record（i））
Next i
List2.AddItem“選手編號“&“Vs“&“選手編號“
For i=1 To nc/2
For j=1 To 3
t=（i-1）*6
List2.AddItem player（record（t+j））&“VS“&.player（record（t+7-j））
Next j
Next i
End Sub
Function find（m As Integer,k As Integer） As Integer
Do While m＞1
IfThen
record（（k-1）*3+m）=record（（k-1）*3+m-1）
m=m-1
Else
Exit Do
End If
Loop
Find=m
End Function組卷：0引用：1難度：0.5