2021年浙江省高考信息技术仿真模拟试卷（一）（选考）
发布：2024/11/29 21:30:2
一、选择题（本大题共12小题，每小题2分，共24分。每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分）
-
1．下列有关信息及其特征的说法正确的是（ ）
组卷：16引用：4难度：0.6 -
2．下列说法中，正确的是（ ）
组卷：9引用：8难度：0.5 -
3．下列说法中都体现人工智能技术应用的是（ ）
①使用人体测温筛检仪，实现人脸识别无感通关，迅速发现体温异常者
②楼道LED声控感应灯，在光线不足且有人走动时，自动感应亮灯
③使用控制软件在家里对公司里的电脑进行远程控制，完成文件下载等操作
④车辆进出停车场时，通过车牌识别技术自动完成车辆停车计费工作组卷：7引用：5难度：0.7 -
4．下列关于计算机信息编码的描述，正确的是（ ）
组卷：11引用：2难度：0.5 -
5．有A、B两段音频，参数如表所示，则这两段音频文件的存储容量之比（A：B） 约为（ ）
音频 编码标准 采样频率 量化位数 声道 时长 是否压缩 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．编写一个VB抽奖程序，功能如下：从数据库读取相关数据并显示在列表框List1中，在文本框Text1中输入中奖人数，单击“抽奖”按钮Command1，在列表框List2中输出 结果。
抽奖规则：中奖人数为1人，男女不限；
中奖人数超1人，男女对半（奇数时女性多1人）。
程序运行界面如图所示。
实现上述功能的VB程序如下：
Dim xm（1 To 500）As String,xh（1 To 500）As String,xb（1 To 500）As String
Dim n As Integer'学生总人数
Dim a（1 To 100）As Integer'抽中序号
Private Sub Form_Load （ ）
'本过程读取n位同学的序号、姓名和性别，
'分别存储在数组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
'核对重复中奖，未中过奖返回True
'代码略
End Function
（1）请在横线处填入合适的代码。
（2）程序中加框代码有错，请改正。组卷：3引用：2难度：0.3 -
16．某医院接受捐赠物资，各项物资数据包含编号、品名和收支数量。编号构成规则是：急需等级（单个大写字母，由高到低划分为A、B、C三个等级）+物资种别（单个大写字母，至多有A～Z共26种）。为提高库存管理效率，现需要整理物资库存，要求：先对同种物资数量进行合并统计；然后按各种物资库存量，更新其急需等级，并依等级由高到低分类显示。等级划分规则为：当库存量低于3天所需，设置为A级；当库存量低于7天所需，设置为B级；否则设置为C级。
按上述要求，编写一个VB程序，功能如下：在列表框List1中显示整理前的所有物资相关数据，单击“库存合并统计”按钮Command1，在列表框List2中显示整理结果，程序运行界面如图所示。
（1）由图中示例可知，急需等级发生变化的物资有种（填数字）。
（2）请在画线处填入合适的代码。
Const n=2000'物资总项数
Const nc=26'物资种别数，最多不会超过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'存储各种物资3天、7天的需求数量
Dim b（1 To nc）As Long'存储各种物资的库存量
Dim c（1 To nc）As Long
Dim q（1 To nc）As Integer
Private Sub Form_Load
'本过程读取编号、品名、收支、需求的数据分别存储在数组items、supplies、totals、g中，并在List1中显示有关数据；g数组中g（1）、g（2）存储物资A的3天、7天的需求数量；g（3）、g（4）存储物资B的3天、7天的需求数量……代码略
'代码略
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'统计每种物资的库存量
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
'按各种物资的需求量进行等级分类
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
