2021年浙江省高考信息技術(shù)仿真模擬試卷（一）（選考）
發(fā)布：2024/11/29 21:30:2
一、選擇題（本大題共12小題，每小題2分，共24分。每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的，不選、多選、錯(cuò)選均不得分）
-
1．下列有關(guān)信息及其特征的說法正確的是（ ）
組卷：16引用：4難度：0.6 -
2．下列說法中，正確的是（ ）
組卷：9引用：8難度：0.5 -
3．下列說法中都體現(xiàn)人工智能技術(shù)應(yīng)用的是（ ）
①使用人體測溫篩檢儀，實(shí)現(xiàn)人臉識別無感通關(guān)，迅速發(fā)現(xiàn)體溫異常者
②樓道LED聲控感應(yīng)燈，在光線不足且有人走動(dòng)時(shí)，自動(dòng)感應(yīng)亮燈
③使用控制軟件在家里對公司里的電腦進(jìn)行遠(yuǎn)程控制，完成文件下載等操作
④車輛進(jìn)出停車場時(shí)，通過車牌識別技術(shù)自動(dòng)完成車輛停車計(jì)費(fèi)工作組卷：7引用：5難度：0.7 -
4．下列關(guān)于計(jì)算機(jī)信息編碼的描述，正確的是（ ）
組卷：11引用：2難度：0.5 -
5．有A、B兩段音頻，參數(shù)如表所示，則這兩段音頻文件的存儲(chǔ)容量之比（A：B） 約為（ ）
音頻 編碼標(biāo)準(zhǔn) 采樣頻率 量化位數(shù) 聲道 時(shí)長 是否壓縮 A PCM 22.05kHz 16bit 單聲道 40秒 不壓縮 B PCM 44.10kHz 8bit 雙聲道 10秒 不壓縮 組卷：2引用：3難度：0.6
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．編寫一個(gè)VB抽獎(jiǎng)程序，功能如下：從數(shù)據(jù)庫讀取相關(guān)數(shù)據(jù)并顯示在列表框List1中，在文本框Text1中輸入中獎(jiǎng)人數(shù)，單擊“抽獎(jiǎng)”按鈕Command1，在列表框List2中輸出 結(jié)果。
抽獎(jiǎng)規(guī)則：中獎(jiǎng)人數(shù)為1人，男女不限；
中獎(jiǎng)人數(shù)超1人，男女對半（奇數(shù)時(shí)女性多1人）。
程序運(yùn)行界面如圖所示。
實(shí)現(xiàn)上述功能的VB程序如下：
Dim xm（1 To 500）As String,xh（1 To 500）As String,xb（1 To 500）As String
Dim n As Integer'學(xué)生總?cè)藬?shù)
Dim a（1 To 100）As Integer'抽中序號
Private Sub Form_Load （ ）
'本過程讀取n位同學(xué)的序號、姓名和性別，
'分別存儲(chǔ)在數(shù)組xh、xm、xb中
'并在List1中顯示，代碼略
End Sub
Private Sub Command1_Click （ ）
Dim rs As Integer,m As Integer,x As Integer,girl As Integer,i As Integer
Dim xbs（1 To 500）As Integer
Randomize
List2.Clear
List2.AddItem“姓名“&““&“性別“
rs=
For i=1 To n
If xb（i）=“女“Then xbs（i）=1 Else xbs（i）=0
Next i
m=0
girl=0
If rs=1 Then
x=Int（Rnd*n）+1
List2.AddItem xm（x） &““& xb（x）
Else
Do While m＜rs
x=Int（Rnd*n）+1
If checkf（x） Then
m=m+1：a（m）=x
girl=girl+xbs（a（m））
IfThen
a（m）=0：m=m-1
ElseIf girl＞（rs+1）\2 Then
a（m）=0：m=m-1
End If
End If
Loop
For i=1 To m
List2.AddItem
Next i
End If
End Sub
Function checkf（p As Integer） As Boolean
'核對重復(fù)中獎(jiǎng)，未中過獎(jiǎng)返回True
'代碼略
End Function
（1）請?jiān)跈M線處填入合適的代碼。
（2）程序中加框代碼有錯(cuò)，請改正。組卷：3引用：2難度：0.3 -
16．某醫(yī)院接受捐贈(zèng)物資，各項(xiàng)物資數(shù)據(jù)包含編號、品名和收支數(shù)量。編號構(gòu)成規(guī)則是：急需等級（單個(gè)大寫字母，由高到低劃分為A、B、C三個(gè)等級）+物資種別（單個(gè)大寫字母，至多有A～Z共26種）。為提高庫存管理效率，現(xiàn)需要整理物資庫存，要求：先對同種物資數(shù)量進(jìn)行合并統(tǒng)計(jì)；然后按各種物資庫存量，更新其急需等級，并依等級由高到低分類顯示。等級劃分規(guī)則為：當(dāng)庫存量低于3天所需，設(shè)置為A級；當(dāng)庫存量低于7天所需，設(shè)置為B級；否則設(shè)置為C級。
按上述要求，編寫一個(gè)VB程序，功能如下：在列表框List1中顯示整理前的所有物資相關(guān)數(shù)據(jù)，單擊“庫存合并統(tǒng)計(jì)”按鈕Command1，在列表框List2中顯示整理結(jié)果，程序運(yùn)行界面如圖所示。
（1）由圖中示例可知，急需等級發(fā)生變化的物資有種（填數(shù)字）。
（2）請?jiān)诋嬀€處填入合適的代碼。
Const n=2000'物資總項(xiàng)數(shù)
Const nc=26'物資種別數(shù)，最多不會(huì)超過26
Dim items（1 To n）As String,supplies（1 To n）As String,totals（1 To n）As Long
Dim g（1 To 2*nc）As Long'存儲(chǔ)各種物資3天、7天的需求數(shù)量
Dim b（1 To nc）As Long'存儲(chǔ)各種物資的庫存量
Dim c（1 To nc）As Long
Dim q（1 To nc）As Integer
Private Sub Form_Load
'本過程讀取編號、品名、收支、需求的數(shù)據(jù)分別存儲(chǔ)在數(shù)組items、supplies、totals、g中，并在List1中顯示有關(guān)數(shù)據(jù)；g數(shù)組中g(shù)（1）、g（2）存儲(chǔ)物資A的3天、7天的需求數(shù)量；g（3）、g（4）存儲(chǔ)物資B的3天、7天的需求數(shù)量……代碼略
'代碼略
End Sub
Private Sub Command1_Click
Dim i As Integer,j As Integer,k As Integer,top As Integer,bottom As Integer
Dim r As Long,s As String,t As Integer,m As Integer
For i=1 To nc
b（i）=0：c（i）=0
Next i
For i=1 To n'統(tǒng)計(jì)每種物資的庫存量
k=Asc（Mid（items（i），2，1））-Asc（“A“）+1
c（k）=i
Next i
j=0
For i=1 To nc
If c（i）＜＞0 Then j=j+1：q（j）=i
Next i
top=0：bottom=j+1
j=1：k=bottom-1
Do While i＜bottom
'按各種物資的需求量進(jìn)行等級分類
m=q（j）
If r＜g（2*m-1）Then
top=top+1
If top＜＞j Then t=q（top）：q（top）=q（j）：q（j）=t
j=j+1
ElseIf r＞=g（2*m）Then
bottom=bottom-1
t=q（j）：q（j）=q（bottom）：q（bottom）=t
Else
j=j+1
End If
Loop
List2.AddItem“編號 品名 庫存“
List2.AddItem“------“
For i=1 To k
s=fp（i,top,bottom）
List2.AddItem““& s &““& supplies（c（q（i）））&““& b（q（i））
Next i
End Sub
Function fp（pos As Integer,head As Integer,tail As Integer）As String
IfThen
fp=“A“
ElseIf pos＜tail Then
fp=“B“
Else
fp=“C“
End If
fp=fp & Mid（items（c（q（pos））），2，1）
End Function組卷：1引用：1難度：0.3