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