登录二一教育在线组卷平台 助您教考全无忧
浙江省百校2021-2022学年高三下学期信息技术3月开学模拟检测试卷
一、选择题(本大题共12小题，每小题2分，共24分。)
1．（2022高三下·浙江开学考）下列有关信息与信息技术的说法，不正确的是（ ）
A．信息无处不在，并可以通过不同的载体进行传播和保存
B．监测得到气象信息，经计算机处理后给出天气预报，这体现了信息的可加工处理性
C．未经数字化处理的信息无法被计算机识别与存储
D．信息技术是依靠计算机对信息进行处理的一种技术手段
【答案】D
【知识点】信息及其特征；信息技术的概念与关键技术
2．（2022高三下·浙江开学考）下列有关网页和浏览器的说法，正确的是（ ）
A．常见的网页编辑的软件有记事本、FrontPage、Dreamweaver
B．网页中的文本、图像和超链接等元素是用HTTP语言来描述的
C．将网页添加至浏览器收藏夹可以保存其中的文字、图片和超链接
D．访问网页时，浏览器与WEB服务器之间的信息通过SMTP协议进行传输
【答案】A
【知识点】网络协议；浏览器；常用的网页编辑与制作工具；网页标记语言及基本组成
3．（2022高三下·浙江开学考）某公司设计一工程管理系统时，使用Acess软件创建的数据表部分界面如图所示。
下列说法正确的是（ ）
A．该工程管理系统属于数据库管理系统
B．当前不能对“工程材料出人记录表”进行重命名操作
C．“2022- 1- 5”可作为“计划验收日期”字段的有效输入值
D．“项目序号”字段值可根据需要进行修改和调整
【答案】C
【知识点】数据库、数据库系统及其特征；数据表、字段、记录的编辑
4．（2022高三下·浙江开学考）自然数n转换为8位二进制数，左侧第一-位数字为“1”且末尾为“0”。 下列说法正确的是（ ）
A．二进制数去掉左侧第一位数后值变为 n\2
B．(n-1) Mod 2的结果一定是1
C．n转换为十六进制数值一定大于80H
D．n的值可能大于255
【答案】B
【知识点】进制及数制转换
5．（2022高三下·浙江开学考）使用GoldWave软件编辑某音频文件，部分界面如第5题图所示。
下列说法正确的是（ ）
A．当前状态下，执行“删除”操作后，声音文件10~25秒将出现静音
B．执行“降低音量”操作后，声音文件的音质会明显下降
C．当前声音文件是经无损压缩后的wav格式
D．当前状态下，执行“剪裁”操作后，声音文件容量将变小
【答案】D
【知识点】声音素材的基本处理
6．（2022高三下·浙江开学考）一批未压缩的BMP格式图像，其参数如图所示。则容量为512MB的闪存盘可存储该批图像的张数约为（ ）
A．340 B．48 C．100 D．256
【答案】A
【知识点】声音、图像、视频编码
7．（2022高三下·浙江开学考）下列VB表达式中，计算结果与其他三项不同的是（ ）
A．1+18Mod11\2
B．Val(Mid("20220101"，2，2))+(-1) *2
C．Asc("d")- Asc("a" )+ Int(Sqr(2))
D．-(7Mod3- 2-2)+ 1
【答案】B
【知识点】运算符、基本运算与表达式；常用标准函数
8．（2022高三下·浙江开学考）某算法的部分流程图如图所示。执行这部分流程，若依次输入x的值为6，10，15，20，28，则输出结果分别为（ ）
A．0，1，0，1，0 B．1，0，1，0，1
C．1，0，0，0，1 D．0，0，1，0，1
【答案】C
【知识点】流程图识读
9．（2022高三下·浙江开学考）有如下VB程序段：
s=1
a(1) = 1
For i=2 To 6
a(i) =2*i+a(i-1)
If I Mod 2=0 Then
a(i)=a(i)+1
End If
s= s+ a(i)
Next i
Text. Text = Str(s)
程序运行时，单击按钮Command1后，文本框Text1中显示的内容是（ ）
A．72 B．41 C．106 D．115
【答案】D
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
10．（2022高三下·浙江开学考）有如下VB程序段：
For i=1 To 3
k=i
For j=i+1 To 8
If a(j)
Next j
If k<> i Then
t=a(k)：a(k)=a(i)：a(i)=t
End If
Next i
数组元素a(1)到a(8)的值依次为“8，13，20，2，11 ，30， 25，17”，下列说法不正确的是（ ）
A．执行该程序段后，数组元素a(1)到a(8)的值依次为2，8，11，13，20，30，25，17
B．每执行一次外循环，数组a元素都会进行多次位置交换
C．将代码“If k <> i”修改为“If k > i” ，不影响程序运行结果
D．执行该程序段后，变量k的值为5
【答案】B
【知识点】排序算法及程序实现
11．（2022高三下·浙江开学考）某加密算法为：从明文第一个字符开始，每间隔k个字符，将长度为k的字符串进行逆序换位加密，若剩余字符长度不满k则不进行位置变换。如： 明文为“IVeryLikeVB6．0”，k的值为3，则加密结果为“IVeLyrike6BV．0”。编写如下VB程序段实现该加密算法，则程序段中3个方框处的代码分别为：
s = Text1． Text
k = Val(Text2． Text)
i=1
count = 0
flag = False
Do While i<= Len(s)
count = count+1
If i+k- 1 <= Len(s) And flag Then
Else
ns= ns+ Mid(s，i，1)
i=i+1
End If
If count = k Then
count = 0
If flag = True Then
End If
Loop
Labell． Caption = ns
A．①ns=ns+Mid(s，i+k-count，1)②i=i+k③flag=Not flag
B．①ns=ns+Mid(s，i+k-count，1)②i=i+1③flag=False
C．①ns=ns十Mid(s，i+k-1，1)②i=i+k③flag=Not flag
D．①ns=ns十Mid(s，i+k-1，1)②i=i+1③flag=False
【答案】A
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
12．（2022高三下·浙江开学考）有如下对分查找VB程序段：
Key = Val(Text1. Text)
i= 1：j=10：c= 0
flag = True
Do While i<= j And flag
m= (i+j)\2
cnt=cnt+1
If a(m) = Key Then flag = False
If a(m) < Key Then
i=m+1
ElseIf flag Then
j =m-1
End If
Loop
Text2． Text = Str(cnt)
若数组元素a(1)~a(10)的值依次为“5，9，13，18，22，27，31，39，40，44" ，运行程序后，文本框Text2中显示的内容为3，则输人的key值不可能为（ ）
A．5 B．13 C．39 D．40
【答案】C
【知识点】查找算法及程序实现
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2022高三下·浙江开学考）某品牌公司统计商品年销售数据，并用Excel软件进行数据处理，部分数据如第13题图a所示。请回答下列问题：
（1）图a中H2：K2单元格计算各销售渠道销售总额在2021年度总销售额中的占比，I2：K2的值是通过H2单元格自动填充得到，则H2单元格公式为 。
(提示：各销售渠道销售总额在2021年度总销售额中的占比=各销售渠道销售总额/2021年度总销售额* 100)
（2）根据图a中的数据，制作了一张部分销售渠道2021年销售额走势图表，如图b所示，则制作该图表的数据区域是 。
（3）下列有关对图表和数据表操作描述，正确的是 (多选)。
A．将H2：K2区域设置单元格数字格式保留3位小数，会影响第13题图b所示图表效果
B．为增加统计数据，在“月份”列后插入一列新数据，不影响原区域H2：K2所对应的新区域中的值
C．要对2021全年12个月数据按“品牌官网”销售额排序，可以仅选择B2：B14 区域进行排序
D．要筛选出电商平台和抖音直播间销售额均排在最高前三位的月份，可同时设置“电商平台”和“抖音直播间”列筛选条件为“最大的3项”得到
【答案】（1）= SUM(B3：B14)/SUM($B$3： $E$14) * 100 = SUM(B3：B14)/SUM( $B3： $E14) * 100 或= SUM(B$3：B$ 14)/SUM( $B$3： $E$14) * 100 或= SUM(B$ 3：B$ 14)/SUM( $B3： $E14)* 100
（2）A2：A14，D2：E14
（3）B；D
【知识点】表格数据的处理与计算；表格数据的图表呈现；数据分析
14．（2022高三下·浙江开学考）小敏创作了一个“虎年大吉”的多媒体作品，她首先用Photoshop制作了一张背景图片，然后用Flash制作动画，请回答以下问题：
（1）如图a所示，下列操作可行的是 (多选，填字母。)。
A．直接为“壬寅年”图层设置“镜头光晕”滤镜
B．交换“老虎”图层和“壬寅年”图层位置
C．将“花朵”图层的图层样式复制到“背景”图层
D．利用“橡皮擦”工具擦除“2022”图层的内容
E．将“花朵”图层内容进行水平翻转
（2）动画制作的进间轴如图b所示：
“音乐”图层中的声音在动画开始播放约1秒后才开始播放，为使音乐从动画一开始即播放，可以执行的操作是 。
（3）“灯笼”图层中的灯笼都是“灯笼”元件的实例，则“灯笼”图层的补间动画类型是 (选填：形状补间动画/动画补间动画)；若修改“灯笼”元件的大小，则“灯笼”图层中的灯笼实例 (选填：会/不会)发生变化。
（4）该场景播放结束后画面停止，出现“跳转”按钮。单击“跳转”按钮，打开与本动画文件处于同一目录下的文件“新春快乐．jpg”，同时关闭动画文件，则“跳转”按钮上的脚本命令是 。
【答案】（1）B；D；E
（2）选中“音乐”图层的第1帧执行“清除关键帧”操作或选中“音乐”图层的第10帧移动到第1帧
（3）动画补间动画；会
（4）on( press/ release) {getURL(“新春快乐． jipg") ； fscommand("quit")；}
【知识点】图片加工常用工具的使用；图层及图层的基本操作；时间轴、帧、图层、库的概念及基本操作；常用影片控制函数的应用
15．（2022高三下·浙江开学考）某学校推出一款食堂套餐查询小程序。学生登录该小程序后，可以查询相关套餐信息，系统根据以往购买评分，给出相关套餐的平均评分以及推荐指数。
编写一个VB程序实现如下功能：程序运行后自动读取数据库中关于食堂套餐的相关数据，在文本框Text1中输人查找套餐的关键词，搜索到的套餐信息在列表框List1中显示，程序计算套餐平均评分(四舍五入保留一位小数)和推荐指数，并显示在套餐信息下方。程序运行界面如图所示。
Const n = 50
Dim food(1 To n) As String
Dim price(1 To n) As Integer
Dim score(1 To n) As Single
Private Sub Form_ Load()
‘读取数据库中套餐名称、套餐价格和套餐评分信息分别存储于数组food、price和score中，代码略。
End Sub
Private Sub Command1 _Click()
Dim food(1 To n) As String, s As String
Dim price(1 To n) As Integer
Dim judge(1 To n) As Boolean
Dim score(1 To n) As Single, sum As Single, ave As Single
Dim i As Integer, j As Integer, t As Integer, q As Integer
Dim w1 As Boolean, w2 As String, w3 As Integer, w4 As Single
s = Text1.Text : q= 0
For i=1 To n
①
j= 1
Do While True
If j+Len(s)-1<=t Then
If s = Mid( food(i), j, Len(s)) Then
judge(i) = True
q=q+1
Else
②
End If
End If
If Then
Exit Do
End If
Loop
Next i
For i=1 To n-1
For j=n To i+1 Step -1
If Not judge(j-1) And judge(j) Then
w1 = judge(j)： judge(j) = judge(j-1)： judge(j-1) = w1
w2 = food(j)： food(j) = food(j - 1)： food(j-1) = w2
w3 = price(j)： price(j) = price(j -1)： price(j-1) = w3
w4 = score(j)： score(j) = score(j-1)： score(j -1) = w4
End If
Next j
Next i
For i= ③
List1. AddItem food(i) +Str( price(i))+"元"
sum =sum+score(i)
Next i
ave = Int(sum/ q * 10 +0.5) / 10
‘根据平均评分ave 的值给出推荐指数。若平均评分高于4.5分显示推荐指数"* **"，若平均评分高于4.0分显示推荐指数"* *"，4.0分以下的显示推荐指数" *"，代码略。
End Sub
（1）程序编写完成后，若要得到运行文件，则保存文件类型为 (单选，填字母：A . *．exe /B . *． frm /C . *． vbp/D . *． txt)
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
① ② ③
（3）程序中加框处代码有错，请改正。
【答案】（1）A
（2）t = Len(food(i))；j=j+1；1 To q
（3）judge(i)=True Or j+Len(s) -1 > t 或 judge(i) Or j+Len(s) -1>t
【知识点】程序的保存与发布；分支结构语句及程序实现；循环结构语句及程序实现
16．（2022高三下·浙江开学考）学校创客社团开展机器人比赛活动，其中设置了机器人循迹项目。比赛规则如下：给出10* 10规模的矩阵地图，随机设定4个循迹点，小车以蛇形路线找到循迹点后，计算最长的两点直线距离。矩阵图中以0表示非循迹点，1表示循迹点，循迹过程如图a所示：
编写一个VB程序实现如下功能：单击“开始循迹”按钮Command1，呈现10*10矩阵地图，并随机生成4个循迹点，分别用数字1表示，数字0表示非循迹点；计算4点中相距最远的两点的直线距离，显示在标签Label1中。程序运行界面如图b所示。
（1）若随机生成的4个循迹点如图a所示，则该4点中相距最远的两点直线距离为 。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const n = 10
Const m=4
Dim b(1 To 8) As Integer
Private Sub Command1_Click()
Dim f(1 To n* n) As Integer
Dim i As Integer, j As Integer
Dim w As Integer, k As Integer
Dim length As Single, maxlen As Single
Dim s As String
'生成矩阵地图和随机生成4个循迹点，0表示非循迹点，1表示循迹点，存于数组f中，代码略。
For i= 1 To n^2 '显示矩阵地图和4个循迹点
s = s+ Str(f(i))
If i Mod n=0 Then
List1. AddItem s
s=" "
End If
Next i
w=1
For i=1 To n
For j=1 To n
k = (n+1)* ((i-1) Mod 2)+(-1)-(i-1) * j
If Then '记录循迹点所在位置
b(2*w-1)=i
b(2*w)=k
w=w+1
End If
Next j
Next i
i=1
maxlen = 0
Do While i<=m-1
For j=i+1 To m
If length > maxlen Then maxlen = length
Next j
i= i+1
Loop
Label1. Caption = Str( maxlen)
End Sub
Function reck(x As Integer, y As Integer) As Single
Dim c As Integer, d As Integer
Dim h As Single
c=
d=Abs(b(2*x)-b(2*y))
h=Sqr(c^2+d^2)
reck = h
End Function
【答案】（1）5
（2）f((i-1)*n+k)=1；length = reck(i, j)；Abs(b(2*x-1)-b(2*y-1))或b(2*x-1)-b(2*y-1)
【知识点】过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1登录二一教育在线组卷平台 助您教考全无忧
浙江省百校2021-2022学年高三下学期信息技术3月开学模拟检测试卷
一、选择题(本大题共12小题，每小题2分，共24分。)
1．（2022高三下·浙江开学考）下列有关信息与信息技术的说法，不正确的是（ ）
A．信息无处不在，并可以通过不同的载体进行传播和保存
B．监测得到气象信息，经计算机处理后给出天气预报，这体现了信息的可加工处理性
C．未经数字化处理的信息无法被计算机识别与存储
D．信息技术是依靠计算机对信息进行处理的一种技术手段
2．（2022高三下·浙江开学考）下列有关网页和浏览器的说法，正确的是（ ）
A．常见的网页编辑的软件有记事本、FrontPage、Dreamweaver
B．网页中的文本、图像和超链接等元素是用HTTP语言来描述的
C．将网页添加至浏览器收藏夹可以保存其中的文字、图片和超链接
D．访问网页时，浏览器与WEB服务器之间的信息通过SMTP协议进行传输
3．（2022高三下·浙江开学考）某公司设计一工程管理系统时，使用Acess软件创建的数据表部分界面如图所示。
下列说法正确的是（ ）
A．该工程管理系统属于数据库管理系统
B．当前不能对“工程材料出人记录表”进行重命名操作
C．“2022- 1- 5”可作为“计划验收日期”字段的有效输入值
D．“项目序号”字段值可根据需要进行修改和调整
4．（2022高三下·浙江开学考）自然数n转换为8位二进制数，左侧第一-位数字为“1”且末尾为“0”。 下列说法正确的是（ ）
A．二进制数去掉左侧第一位数后值变为 n\2
B．(n-1) Mod 2的结果一定是1
C．n转换为十六进制数值一定大于80H
D．n的值可能大于255
5．（2022高三下·浙江开学考）使用GoldWave软件编辑某音频文件，部分界面如第5题图所示。
下列说法正确的是（ ）
A．当前状态下，执行“删除”操作后，声音文件10~25秒将出现静音
B．执行“降低音量”操作后，声音文件的音质会明显下降
C．当前声音文件是经无损压缩后的wav格式
D．当前状态下，执行“剪裁”操作后，声音文件容量将变小
6．（2022高三下·浙江开学考）一批未压缩的BMP格式图像，其参数如图所示。则容量为512MB的闪存盘可存储该批图像的张数约为（ ）
A．340 B．48 C．100 D．256
7．（2022高三下·浙江开学考）下列VB表达式中，计算结果与其他三项不同的是（ ）
A．1+18Mod11\2
B．Val(Mid("20220101"，2，2))+(-1) *2
C．Asc("d")- Asc("a" )+ Int(Sqr(2))
D．-(7Mod3- 2-2)+ 1
8．（2022高三下·浙江开学考）某算法的部分流程图如图所示。执行这部分流程，若依次输入x的值为6，10，15，20，28，则输出结果分别为（ ）
A．0，1，0，1，0 B．1，0，1，0，1
C．1，0，0，0，1 D．0，0，1，0，1
9．（2022高三下·浙江开学考）有如下VB程序段：
s=1
a(1) = 1
For i=2 To 6
a(i) =2*i+a(i-1)
If I Mod 2=0 Then
a(i)=a(i)+1
End If
s= s+ a(i)
Next i
Text. Text = Str(s)
程序运行时，单击按钮Command1后，文本框Text1中显示的内容是（ ）
A．72 B．41 C．106 D．115
10．（2022高三下·浙江开学考）有如下VB程序段：
For i=1 To 3
k=i
For j=i+1 To 8
If a(j)Next j
If k<> i Then
t=a(k)：a(k)=a(i)：a(i)=t
End If
Next i
数组元素a(1)到a(8)的值依次为“8，13，20，2，11 ，30， 25，17”，下列说法不正确的是（ ）
A．执行该程序段后，数组元素a(1)到a(8)的值依次为2，8，11，13，20，30，25，17
B．每执行一次外循环，数组a元素都会进行多次位置交换
C．将代码“If k <> i”修改为“If k > i” ，不影响程序运行结果
D．执行该程序段后，变量k的值为5
11．（2022高三下·浙江开学考）某加密算法为：从明文第一个字符开始，每间隔k个字符，将长度为k的字符串进行逆序换位加密，若剩余字符长度不满k则不进行位置变换。如： 明文为“IVeryLikeVB6．0”，k的值为3，则加密结果为“IVeLyrike6BV．0”。编写如下VB程序段实现该加密算法，则程序段中3个方框处的代码分别为：
s = Text1． Text
k = Val(Text2． Text)
i=1
count = 0
flag = False
Do While i<= Len(s)
count = count+1
If i+k- 1 <= Len(s) And flag Then
Else
ns= ns+ Mid(s，i，1)
i=i+1
End If
If count = k Then
count = 0
If flag = True Then
End If
Loop
Labell． Caption = ns
A．①ns=ns+Mid(s，i+k-count，1)②i=i+k③flag=Not flag
B．①ns=ns+Mid(s，i+k-count，1)②i=i+1③flag=False
C．①ns=ns十Mid(s，i+k-1，1)②i=i+k③flag=Not flag
D．①ns=ns十Mid(s，i+k-1，1)②i=i+1③flag=False
12．（2022高三下·浙江开学考）有如下对分查找VB程序段：
Key = Val(Text1. Text)
i= 1：j=10：c= 0
flag = True
Do While i<= j And flag
m= (i+j)\2
cnt=cnt+1
If a(m) = Key Then flag = False
If a(m) < Key Then
i=m+1
ElseIf flag Then
j =m-1
End If
Loop
Text2． Text = Str(cnt)
若数组元素a(1)~a(10)的值依次为“5，9，13，18，22，27，31，39，40，44" ，运行程序后，文本框Text2中显示的内容为3，则输人的key值不可能为（ ）
A．5 B．13 C．39 D．40
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2022高三下·浙江开学考）某品牌公司统计商品年销售数据，并用Excel软件进行数据处理，部分数据如第13题图a所示。请回答下列问题：
（1）图a中H2：K2单元格计算各销售渠道销售总额在2021年度总销售额中的占比，I2：K2的值是通过H2单元格自动填充得到，则H2单元格公式为 。
(提示：各销售渠道销售总额在2021年度总销售额中的占比=各销售渠道销售总额/2021年度总销售额* 100)
（2）根据图a中的数据，制作了一张部分销售渠道2021年销售额走势图表，如图b所示，则制作该图表的数据区域是 。
（3）下列有关对图表和数据表操作描述，正确的是 (多选)。
A．将H2：K2区域设置单元格数字格式保留3位小数，会影响第13题图b所示图表效果
B．为增加统计数据，在“月份”列后插入一列新数据，不影响原区域H2：K2所对应的新区域中的值
C．要对2021全年12个月数据按“品牌官网”销售额排序，可以仅选择B2：B14 区域进行排序
D．要筛选出电商平台和抖音直播间销售额均排在最高前三位的月份，可同时设置“电商平台”和“抖音直播间”列筛选条件为“最大的3项”得到
14．（2022高三下·浙江开学考）小敏创作了一个“虎年大吉”的多媒体作品，她首先用Photoshop制作了一张背景图片，然后用Flash制作动画，请回答以下问题：
（1）如图a所示，下列操作可行的是 (多选，填字母。)。
A．直接为“壬寅年”图层设置“镜头光晕”滤镜
B．交换“老虎”图层和“壬寅年”图层位置
C．将“花朵”图层的图层样式复制到“背景”图层
D．利用“橡皮擦”工具擦除“2022”图层的内容
E．将“花朵”图层内容进行水平翻转
（2）动画制作的进间轴如图b所示：
“音乐”图层中的声音在动画开始播放约1秒后才开始播放，为使音乐从动画一开始即播放，可以执行的操作是 。
（3）“灯笼”图层中的灯笼都是“灯笼”元件的实例，则“灯笼”图层的补间动画类型是 (选填：形状补间动画/动画补间动画)；若修改“灯笼”元件的大小，则“灯笼”图层中的灯笼实例 (选填：会/不会)发生变化。
（4）该场景播放结束后画面停止，出现“跳转”按钮。单击“跳转”按钮，打开与本动画文件处于同一目录下的文件“新春快乐．jpg”，同时关闭动画文件，则“跳转”按钮上的脚本命令是 。
15．（2022高三下·浙江开学考）某学校推出一款食堂套餐查询小程序。学生登录该小程序后，可以查询相关套餐信息，系统根据以往购买评分，给出相关套餐的平均评分以及推荐指数。
编写一个VB程序实现如下功能：程序运行后自动读取数据库中关于食堂套餐的相关数据，在文本框Text1中输人查找套餐的关键词，搜索到的套餐信息在列表框List1中显示，程序计算套餐平均评分(四舍五入保留一位小数)和推荐指数，并显示在套餐信息下方。程序运行界面如图所示。
Const n = 50
Dim food(1 To n) As String
Dim price(1 To n) As Integer
Dim score(1 To n) As Single
Private Sub Form_ Load()
‘读取数据库中套餐名称、套餐价格和套餐评分信息分别存储于数组food、price和score中，代码略。
End Sub
Private Sub Command1 _Click()
Dim food(1 To n) As String, s As String
Dim price(1 To n) As Integer
Dim judge(1 To n) As Boolean
Dim score(1 To n) As Single, sum As Single, ave As Single
Dim i As Integer, j As Integer, t As Integer, q As Integer
Dim w1 As Boolean, w2 As String, w3 As Integer, w4 As Single
s = Text1.Text : q= 0
For i=1 To n
①
j= 1
Do While True
If j+Len(s)-1<=t Then
If s = Mid( food(i), j, Len(s)) Then
judge(i) = True
q=q+1
Else
②
End If
End If
If Then
Exit Do
End If
Loop
Next i
For i=1 To n-1
For j=n To i+1 Step -1
If Not judge(j-1) And judge(j) Then
w1 = judge(j)： judge(j) = judge(j-1)： judge(j-1) = w1
w2 = food(j)： food(j) = food(j - 1)： food(j-1) = w2
w3 = price(j)： price(j) = price(j -1)： price(j-1) = w3
w4 = score(j)： score(j) = score(j-1)： score(j -1) = w4
End If
Next j
Next i
For i= ③
List1. AddItem food(i) +Str( price(i))+"元"
sum =sum+score(i)
Next i
ave = Int(sum/ q * 10 +0.5) / 10
‘根据平均评分ave 的值给出推荐指数。若平均评分高于4.5分显示推荐指数"* **"，若平均评分高于4.0分显示推荐指数"* *"，4.0分以下的显示推荐指数" *"，代码略。
End Sub
（1）程序编写完成后，若要得到运行文件，则保存文件类型为 (单选，填字母：A . *．exe /B . *． frm /C . *． vbp/D . *． txt)
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
① ② ③
（3）程序中加框处代码有错，请改正。
16．（2022高三下·浙江开学考）学校创客社团开展机器人比赛活动，其中设置了机器人循迹项目。比赛规则如下：给出10* 10规模的矩阵地图，随机设定4个循迹点，小车以蛇形路线找到循迹点后，计算最长的两点直线距离。矩阵图中以0表示非循迹点，1表示循迹点，循迹过程如图a所示：
编写一个VB程序实现如下功能：单击“开始循迹”按钮Command1，呈现10*10矩阵地图，并随机生成4个循迹点，分别用数字1表示，数字0表示非循迹点；计算4点中相距最远的两点的直线距离，显示在标签Label1中。程序运行界面如图b所示。
（1）若随机生成的4个循迹点如图a所示，则该4点中相距最远的两点直线距离为 。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const n = 10
Const m=4
Dim b(1 To 8) As Integer
Private Sub Command1_Click()
Dim f(1 To n* n) As Integer
Dim i As Integer, j As Integer
Dim w As Integer, k As Integer
Dim length As Single, maxlen As Single
Dim s As String
'生成矩阵地图和随机生成4个循迹点，0表示非循迹点，1表示循迹点，存于数组f中，代码略。
For i= 1 To n^2 '显示矩阵地图和4个循迹点
s = s+ Str(f(i))
If i Mod n=0 Then
List1. AddItem s
s=" "
End If
Next i
w=1
For i=1 To n
For j=1 To n
k = (n+1)* ((i-1) Mod 2)+(-1)-(i-1) * j
If Then '记录循迹点所在位置
b(2*w-1)=i
b(2*w)=k
w=w+1
End If
Next j
Next i
i=1
maxlen = 0
Do While i<=m-1
For j=i+1 To m
If length > maxlen Then maxlen = length
Next j
i= i+1
Loop
Label1. Caption = Str( maxlen)
End Sub
Function reck(x As Integer, y As Integer) As Single
Dim c As Integer, d As Integer
Dim h As Single
c=
d=Abs(b(2*x)-b(2*y))
h=Sqr(c^2+d^2)
reck = h
End Function
答案解析部分
1．【答案】D
【知识点】信息及其特征；信息技术的概念与关键技术
2．【答案】A
【知识点】网络协议；浏览器；常用的网页编辑与制作工具；网页标记语言及基本组成
3．【答案】C
【知识点】数据库、数据库系统及其特征；数据表、字段、记录的编辑
4．【答案】B
【知识点】进制及数制转换
5．【答案】D
【知识点】声音素材的基本处理
6．【答案】A
【知识点】声音、图像、视频编码
7．【答案】B
【知识点】运算符、基本运算与表达式；常用标准函数
8．【答案】C
【知识点】流程图识读
9．【答案】D
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
10．【答案】B
【知识点】排序算法及程序实现
11．【答案】A
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
12．【答案】C
【知识点】查找算法及程序实现
13．【答案】（1）= SUM(B3：B14)/SUM($B$3： $E$14) * 100 = SUM(B3：B14)/SUM( $B3： $E14) * 100 或= SUM(B$3：B$ 14)/SUM( $B$3： $E$14) * 100 或= SUM(B$ 3：B$ 14)/SUM( $B3： $E14)* 100
（2）A2：A14，D2：E14
（3）B；D
【知识点】表格数据的处理与计算；表格数据的图表呈现；数据分析
14．【答案】（1）B；D；E
（2）选中“音乐”图层的第1帧执行“清除关键帧”操作或选中“音乐”图层的第10帧移动到第1帧
（3）动画补间动画；会
（4）on( press/ release) {getURL(“新春快乐． jipg") ； fscommand("quit")；}
【知识点】图片加工常用工具的使用；图层及图层的基本操作；时间轴、帧、图层、库的概念及基本操作；常用影片控制函数的应用
15．【答案】（1）A
（2）t = Len(food(i))；j=j+1；1 To q
（3）judge(i)=True Or j+Len(s) -1 > t 或 judge(i) Or j+Len(s) -1>t
【知识点】程序的保存与发布；分支结构语句及程序实现；循环结构语句及程序实现
16．【答案】（1）5
（2）f((i-1)*n+k)=1；length = reck(i, j)；Abs(b(2*x-1)-b(2*y-1))或b(2*x-1)-b(2*y-1)
【知识点】过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1