登录二一教育在线组卷平台 助您教考全无忧
浙江省湖州市2021-2022学年高三上学期信息技术高考考前模拟试卷（五）
一、选择题（本大题共12小题，每小题2分，共24分。）
1．（2021·湖州模拟）下列有关信息及信息技术的说法，正确的是（ ）
A．转发量高，点赞率高的信息，其可信度一定高
B．文字、语言、图形、图像、人脑都是信息的载体
C．古代没有电脑、没有网络，也没有信息技术
D．语言、文字、声音、网络等都属于信息的表达方式
【答案】B
【知识点】信息及其特征；信息技术的概念与关键技术；信息来源的选择与判断；信息表达方式与表达技术
2．（2021·湖州模拟）下列有关网络与浏览器的说法，正确的是（ ）
A．实现登录网页发送邮件只需用到POP3协议与HTTP协议
B．在IE浏览器中，以“web档案，单一文件（*.mht）”类型保存网页，可以保存网页中的图片
C．为方便浏览常用的网页，可以把网页的内容添加到收藏夹中
D．IE浏览器可以对网页文件(.html)进行编辑、解释并执行
【答案】B
【知识点】网络协议；网络资源的类型、下载与保存；浏览器
3．（2021·湖州模拟）用Access软件设计某宾馆客房管理系统的数据库，其中已建好的“客房入住情况实时数据表”用于存储如图所示的数据。
序号 时 间 层 房号 客房入住情况 属性
1 2021-5-1 08: 30: 00 3 8305 已入住 普通单人房
2 2021-5-1 10: 30: 00 3 8310 未入住 普通双人房
3 2021-5-1 12: 30: 00 4 8421 已预定 豪华单人房
4 2021-5-1 14: 35: 00 6 8618 未入住 普通双房人
… … … … … …
下列说法正确的是（ ）
A．该数据表的字段数只能是6个
B．图中“客房入住情况”列在该数据表中相应字段的数据类型可以是“是/否”
C．该数据表中“序号”字段的字段类型可以设置为“自动编号”类型
D．在该数据表所在的数据库中，可以有两个相同名字的数据表
【答案】C
【知识点】数据表、字段、记录的概念；字段的数据类型
4．（2021·湖州模拟）下列关于信息编码的说法，正确的是（ ）
A．二进制数100101与十进制数35的值相等
B．某8位二进制数的最高位是0，最低位是1，将其转换为十进制的最大值为127
C．已知大写字母“B”的ASCII码值为42H,则小写字母“b”的ASCII码值是74H
D．若字母“A”为全角输入，则其在计算机中存储空间为2bit
【答案】B
【知识点】进制及数制转换；字符编码
5．（2021·湖州模拟）用Photoshop软件制作“花开富贵”作品，如图所示
下列说法正确的是（ ）
A．可以直接用橡皮擦工具擦除“文字”图层中的文字
B．复制“花开富贵”图层的图层样式到“荷花”图层，可以看到“内发光”效果
C．可以直接对“笔架”图层进行重命名操作
D．可以将“荷花”图层移动到“背景”图层下方
【答案】C
【知识点】图片加工常用工具的使用；图层及图层的基本操作
6．（2021·湖州模拟）一幅1024*768像素256色的BMP位图保存为JPG后容量为59KB，则图像的压缩比约为（ ）
A．18:1 B．10:1 C．20:1 D．13:1
【答案】D
【知识点】声音、图像、视频编码
7．（2021·湖州模拟）vb表达式 3^2-13 mod 5*2 的值是( )
A．3 B．6 C．9 D．11
【答案】B
【知识点】运算符、基本运算与表达式
8．（2021·湖州模拟）某算法的部分流程图如图所示，执行这部分流程后，变量C的值是( )
A．2 B．3 C．4 D．5
【答案】B
【知识点】流程图识读
9．（2021·湖州模拟）在文本框Text1中输入十进制数x，将其转换为十六进制数后在标签Label1上输出。VB程序段如下：
Dim x As Integer Dim s As String
Dim st As String
Dim t As Integer
st=“0123456789ABCDEF”
x = Val(Text1.Text)
Do While x > 0
Loop
Label1.Caption=s
方框中的代码由以下三部分组成：
① x = x \ 16 ② s = Mid(st,t+1,1)+ s ③ t = x Mod 16
下列选项中代码顺序正确的是（ ）
A．③②① B．①③② C．②③① D．②①③
【答案】A
【知识点】循环结构语句及程序实现；常用标准函数
10．（2021·湖州模拟）某对分查找的VB程序如下：
i = 1: j = 8 : n = 0
key = Val(Text1.Text)
Do While i <= j
m = (i + j- 1) \ 2
n=n+1
If a(m) >=key Then
i = m + 1
Else
j = m - 1
End If
Loop
Label1.Caption=Str(n)+Str(i)
数组元素a(1)到a(8)的值依次为“ 35,32,29,26,21,19,16,12”。在文本框Text1中输入17，执行该程序段后，标签Label1上显示的内容是（ ）
A．3 7 B．2 7 C．4 8 D．2 8
【答案】A
【知识点】查找算法及程序实现
11．（2021·湖州模拟）有如下VB程序段：
s1 = "567898765"
s2 = ""
n = Len(s1) \ 2
For i = 1 To n
If Mid(s1,i,1) < Mid(s1, n + 1, 1) Then
s2 = s2 + Mid(s1, i, 1)
Else
s2 = Mid(s1, n + i, 1) + s2
End If
Next i
Text1.Text = s2
A．98765 B．7898 C．5678 D．56789
【答案】C
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
12．（2021·湖州模拟）有如下VB程序段：
n = 8
m = Int(Rnd *5 + 1)
For i = 1 To n - m +1
k = i
For j = m To n - i
If a(j) > a(j + 1) Then
t = a(j) : a(j) = a(j + 1) : a(j + 1) = t
ElseIf a(j) > a(k) Then
k = j
End If
Next j
tmp = a(k) : a(k) = a(i) : a(i) = tmp
Next i
数组元素a(1)到 a(8)的值依次为“25,77,82,71,53,42，69，83”。经过该程序段加工后数组元素a(1)到a(8)的值不可能是（ ）
A．71 77 82 25 42 53 69 83 B．82 77 25 42 53 69 71 83
C．82 25 42 53 69 71 77 83 D．83 42 53 69 71 77 82 25
【答案】D
【知识点】排序算法及程序实现
二、非选择题（本大题共4小题，4+8+7+7，共26分）
13．（2021·湖州模拟）收集2020年全国部分城市1-4月降雨量，并用Excel软件对数据进行处理，如图a所示。
图a
请回答下列问题：
（1）区域G3:G36的数据要通过公式计算得到，在G3单元格中输入公式 ，再使用自动填充功能完成区域 G4:G36的计算。(rank函数的作用求某一个数值在某一区域内一组数值中的排名。rank函数的语法格式=rank(number,ref,[order])number
——参与排名的数值,ref ——排名的数值区域,order——有1和0两种。0——从大到小排名（降序），1——从小到大排名（升序）。0默认不用输入，得到的就是从大到小的排名。)
（2）对区域A2:G36进行相关数据分析，下列说法正确的是 (多选，填字母)
A．为了显示华北地区4月降雨量大于60的城市，可以先对“地区”进行筛选选择的值为“华北地区”，再对“4月”进行筛选，设置的筛选条件是大于60
B．为了找出3月降雨量最高的三个城市，可以对“3月”进行筛选，选择“10个最大的值”并显示最大的3项
C．若不小心删除C列数据，G列2月降雨量排名的值也会随之变化
D．从数据表中可以看出，华北地区1月几乎不降雨
（3）要对2020年华东地区4月的降雨量为主要关键字降序排序 ，则所选择的数据区域是 。
【答案】（1）=Rank( D3，$D$3: $D$36)或: =Rank( D3，D$3: D$36)
（2）B；D
（3）B8: G13
【知识点】表格数据的处理与计算；数据分析
14．（2021·湖州模拟）使用Flash软件制作“中国茶文化”多媒体作品，部分编辑界面如图所示。
请回答下列问题：
（1）在创作之前进行了作品设计，下列说法正确的是 （多选，填字母）
A．设计作品的主要界面、工作流程属于系统结构设计
B．确定获取原始素材的方式属于应用需求分析
C．设计多媒体作品的第一步是模块设计
D．包含制作中所需的各种素材文件名、获取方法等信息的是媒体元素分解
E．确定该作品面向茶艺爱好者的学习属于应用需求分析
（2）如图所示，“音乐”图层声音的同步方式设置为“事件”，为使动画播放到当前场景第24帧时“音乐”图层中的音频停止播放，在不影响其他动画播放的前提下，下列方法可行的是 ( 单选，填字母：A .把“音乐”图层第48帧移动到第24帧 / B .在“诗句”图层第24帧添加动作命令“StopAllSounds();”)，单击第48帧中的“茶文化”按钮实现在浏览器中显示位于同一目录下“茶文化.txt”文件的内容，则该按钮实例上添加的动作脚本是on(press){ }(单选，填字母：A .gotoAndplay(“茶文化.txt”)；/ B .getURL(“茶文 化.txt”);).
（3）“诗句”图层中的诗句在动画播放2秒末才出现，要想让动画播放1秒后诗句就出现，并持续到本场景播放结束，该如何操作？
（4）“金鱼”图层中金鱼都是“鱼”元件的实例，在不改变其他动画播放效果的前提下，使金鱼一直出现在舞台上，下列操作方法可行的是 (多选，填字母)
A．对“金鱼”图层第25帧执行“清除关键帧”操作
B．对“金鱼”图层第一帧执行“复制帧”操作，并在25帧执行“粘贴帧”操作
C．把“金鱼”图层第25帧移动到第48帧
D．在“金鱼”图层第25帧，把“鱼”元件添加到舞台相同位置上
E．对“金鱼”图层第25帧执行“清除帧”操作
【答案】（1）A；D；E
（2）B；B
（3）把“诗句”图层第24帧移动到第13帧
（4）A；B；D
【知识点】多媒体作品的规划和设计；时间轴、帧、图层、库的概念及基本操作；常用影片控制函数的应用
15．（2021·湖州模拟）为防止机密通知被盗，某公司制定了网上发通知的加密要求：
1）通知中包含的空格，标点符号等按原格式输出
2）通知中涉及到字母的内容，所发文件的英语单词全部都是倒序的。如：This is a dog!通知显示内容为：sihT si a
god!
3）通知中涉及到数字的内容，把本组数字的最后一位移动到第一位,例如原文为1234，通知显示内容为：4123
小王编写了一个VB程序，实现加密功能，在文本框Text1中输入原文，单击“加密”按钮Command1后，在文本框Text2中显示加密后的密文。程序运行界面如图所示。
实现上述功能的VB程序如下，请回答下列问题：
（1）若要修改按钮Command1上显示的文字，应修改的属性名是 （单选，填字母：A .Text/B .Caption /C . List ）
（2）实现上述功能的VB程序代码如下，请在划线处填入合适的代码
Private
Sub command1_Click()
Dim s As String, ch As String, rv As
String, rv1 As String
Dim i As Integer, j As Integer, k As
Integer
s = Text1.Text
rv = ""
i = 1
Do While True
ch = Mid(s, i, 1)
Do While
And i <= Len(s)
rv = rv + ch
i = i + 1
ch = Mid(s, i, 1)
Loop
j = i
ch =
Do While sz(ch) And j <= Len(s)
j = j + 1
If j > Len(s) Then Exit Do
ch = Mid(s, j, 1)
Loop
rv1 = ""
rv1 = Mid(s, j - 1, 1) + Mid(s, i, j - i - 1)
rv = rv + rv1
i =
If i > Len(s) Then Exit Do
Do While zf(ch) And j <= Len(s)
j = j + 1
If j > Len(s) Then Exit Do
ch = Mid(s, j, 1)
Loop
rv1 = ""
For k = i - 1 To j - 1
rv1 = Mid(s, k, 1) + rv1
Next k
rv = rv + rv1
If j <= Len(s) Then rv = rv + Mid(s, j, 1)
i = j + 1
If i > Len(s) Then Exit Do
Loop
Text2.Text = rv
End Sub
Function zf(s As String) As Boolean
zf = False
If s >= "A" And s <= "Z" Or s >= "a" And s <= "z" Then
zf = True
End If
End Function
Function sz(s As String) As Boolean
sz = False
If Then
sz = True
End If
End Function
（3）程序中加框处代码有错，请改正
【答案】（1）B
（2）Mid(s, j, 1)；j+1；s>="0"Ands<="g"
（3）Not zf(ch) And Not sz (ch)
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
16．（2021·湖州模拟）某校举行拔河比赛，参赛选手队列要求如下：
1)每班参赛男、女选手各5人
2)男女穿插站队，即：男女男女……队列
3)男生身高从低到高排列，女生身高从高到低排列
小明设计了一个程序实现如下功能：在文本框Text1中输入学生身高，奇数位置上存放男生的身高，偶数位置上存放女生身高，两个数之间用逗号隔开。单击“排序”按钮，使男生身高升序排序，结果输出在文本框Text2中，女生按身高降序排序结果存放在文本框Text3中。
程序运行界面如图所示
（1）请在划线处填入合适的代码
Private
Sub Command1_Click()
Dim n As Integer
Dim a(1 To 10) As Integer
Dim i As Integer, j As Integer, tmp As
Integer
Dim s1 As String, s2 As String, t As
Integer
Dim s As String, c As String
s = Text1.Text
n = 1
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= "0" And c <=
"9" Then
a(n) = a(n) * 10 + Val(c)
Else
n = n + 1
End If
Next i
t = -1
For i = 1 To n - 2
For j =
If a(i) * t < a(j) * t Then
tmp = a(i): a(i) = a(j): a(j) =
tmp
End If
Next j
Next i
For i = 1 To n
If i Mod 2 = 1 Then
s1 = s1 + Str(a(i))
Else
End If
Next i
Text2.Text = s1
Text3.Text = s2
End
Sub
（2）若男生甲和男生乙的身高都是 180，在Text1中的输入顺序是：男生甲，女生甲，男生乙……，则经过排序后，男生甲排在男生乙的 (单选，填字母：A .前面 / B .后面)
【答案】（1）i+2 To n Step 2；t=-t；s2=s2+ Str(a(i))
（2）A
【知识点】排序算法及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1登录二一教育在线组卷平台 助您教考全无忧
浙江省湖州市2021-2022学年高三上学期信息技术高考考前模拟试卷（五）
一、选择题（本大题共12小题，每小题2分，共24分。）
1．（2021·湖州模拟）下列有关信息及信息技术的说法，正确的是（ ）
A．转发量高，点赞率高的信息，其可信度一定高
B．文字、语言、图形、图像、人脑都是信息的载体
C．古代没有电脑、没有网络，也没有信息技术
D．语言、文字、声音、网络等都属于信息的表达方式
2．（2021·湖州模拟）下列有关网络与浏览器的说法，正确的是（ ）
A．实现登录网页发送邮件只需用到POP3协议与HTTP协议
B．在IE浏览器中，以“web档案，单一文件（*.mht）”类型保存网页，可以保存网页中的图片
C．为方便浏览常用的网页，可以把网页的内容添加到收藏夹中
D．IE浏览器可以对网页文件(.html)进行编辑、解释并执行
3．（2021·湖州模拟）用Access软件设计某宾馆客房管理系统的数据库，其中已建好的“客房入住情况实时数据表”用于存储如图所示的数据。
序号 时 间 层 房号 客房入住情况 属性
1 2021-5-1 08: 30: 00 3 8305 已入住 普通单人房
2 2021-5-1 10: 30: 00 3 8310 未入住 普通双人房
3 2021-5-1 12: 30: 00 4 8421 已预定 豪华单人房
4 2021-5-1 14: 35: 00 6 8618 未入住 普通双房人
… … … … … …
下列说法正确的是（ ）
A．该数据表的字段数只能是6个
B．图中“客房入住情况”列在该数据表中相应字段的数据类型可以是“是/否”
C．该数据表中“序号”字段的字段类型可以设置为“自动编号”类型
D．在该数据表所在的数据库中，可以有两个相同名字的数据表
4．（2021·湖州模拟）下列关于信息编码的说法，正确的是（ ）
A．二进制数100101与十进制数35的值相等
B．某8位二进制数的最高位是0，最低位是1，将其转换为十进制的最大值为127
C．已知大写字母“B”的ASCII码值为42H,则小写字母“b”的ASCII码值是74H
D．若字母“A”为全角输入，则其在计算机中存储空间为2bit
5．（2021·湖州模拟）用Photoshop软件制作“花开富贵”作品，如图所示
下列说法正确的是（ ）
A．可以直接用橡皮擦工具擦除“文字”图层中的文字
B．复制“花开富贵”图层的图层样式到“荷花”图层，可以看到“内发光”效果
C．可以直接对“笔架”图层进行重命名操作
D．可以将“荷花”图层移动到“背景”图层下方
6．（2021·湖州模拟）一幅1024*768像素256色的BMP位图保存为JPG后容量为59KB，则图像的压缩比约为（ ）
A．18:1 B．10:1 C．20:1 D．13:1
7．（2021·湖州模拟）vb表达式 3^2-13 mod 5*2 的值是( )
A．3 B．6 C．9 D．11
8．（2021·湖州模拟）某算法的部分流程图如图所示，执行这部分流程后，变量C的值是( )
A．2 B．3 C．4 D．5
9．（2021·湖州模拟）在文本框Text1中输入十进制数x，将其转换为十六进制数后在标签Label1上输出。VB程序段如下：
Dim x As Integer Dim s As String
Dim st As String
Dim t As Integer
st=“0123456789ABCDEF”
x = Val(Text1.Text)
Do While x > 0
Loop
Label1.Caption=s
方框中的代码由以下三部分组成：
① x = x \ 16 ② s = Mid(st,t+1,1)+ s ③ t = x Mod 16
下列选项中代码顺序正确的是（ ）
A．③②① B．①③② C．②③① D．②①③
10．（2021·湖州模拟）某对分查找的VB程序如下：
i = 1: j = 8 : n = 0
key = Val(Text1.Text)
Do While i <= j
m = (i + j- 1) \ 2
n=n+1
If a(m) >=key Then
i = m + 1
Else
j = m - 1
End If
Loop
Label1.Caption=Str(n)+Str(i)
数组元素a(1)到a(8)的值依次为“ 35,32,29,26,21,19,16,12”。在文本框Text1中输入17，执行该程序段后，标签Label1上显示的内容是（ ）
A．3 7 B．2 7 C．4 8 D．2 8
11．（2021·湖州模拟）有如下VB程序段：
s1 = "567898765"
s2 = ""
n = Len(s1) \ 2
For i = 1 To n
If Mid(s1,i,1) < Mid(s1, n + 1, 1) Then
s2 = s2 + Mid(s1, i, 1)
Else
s2 = Mid(s1, n + i, 1) + s2
End If
Next i
Text1.Text = s2
A．98765 B．7898 C．5678 D．56789
12．（2021·湖州模拟）有如下VB程序段：
n = 8
m = Int(Rnd *5 + 1)
For i = 1 To n - m +1
k = i
For j = m To n - i
If a(j) > a(j + 1) Then
t = a(j) : a(j) = a(j + 1) : a(j + 1) = t
ElseIf a(j) > a(k) Then
k = j
End If
Next j
tmp = a(k) : a(k) = a(i) : a(i) = tmp
Next i
数组元素a(1)到 a(8)的值依次为“25,77,82,71,53,42，69，83”。经过该程序段加工后数组元素a(1)到a(8)的值不可能是（ ）
A．71 77 82 25 42 53 69 83 B．82 77 25 42 53 69 71 83
C．82 25 42 53 69 71 77 83 D．83 42 53 69 71 77 82 25
二、非选择题（本大题共4小题，4+8+7+7，共26分）
13．（2021·湖州模拟）收集2020年全国部分城市1-4月降雨量，并用Excel软件对数据进行处理，如图a所示。
图a
请回答下列问题：
（1）区域G3:G36的数据要通过公式计算得到，在G3单元格中输入公式 ，再使用自动填充功能完成区域 G4:G36的计算。(rank函数的作用求某一个数值在某一区域内一组数值中的排名。rank函数的语法格式=rank(number,ref,[order])number
——参与排名的数值,ref ——排名的数值区域,order——有1和0两种。0——从大到小排名（降序），1——从小到大排名（升序）。0默认不用输入，得到的就是从大到小的排名。)
（2）对区域A2:G36进行相关数据分析，下列说法正确的是 (多选，填字母)
A．为了显示华北地区4月降雨量大于60的城市，可以先对“地区”进行筛选选择的值为“华北地区”，再对“4月”进行筛选，设置的筛选条件是大于60
B．为了找出3月降雨量最高的三个城市，可以对“3月”进行筛选，选择“10个最大的值”并显示最大的3项
C．若不小心删除C列数据，G列2月降雨量排名的值也会随之变化
D．从数据表中可以看出，华北地区1月几乎不降雨
（3）要对2020年华东地区4月的降雨量为主要关键字降序排序 ，则所选择的数据区域是 。
14．（2021·湖州模拟）使用Flash软件制作“中国茶文化”多媒体作品，部分编辑界面如图所示。
请回答下列问题：
（1）在创作之前进行了作品设计，下列说法正确的是 （多选，填字母）
A．设计作品的主要界面、工作流程属于系统结构设计
B．确定获取原始素材的方式属于应用需求分析
C．设计多媒体作品的第一步是模块设计
D．包含制作中所需的各种素材文件名、获取方法等信息的是媒体元素分解
E．确定该作品面向茶艺爱好者的学习属于应用需求分析
（2）如图所示，“音乐”图层声音的同步方式设置为“事件”，为使动画播放到当前场景第24帧时“音乐”图层中的音频停止播放，在不影响其他动画播放的前提下，下列方法可行的是 ( 单选，填字母：A .把“音乐”图层第48帧移动到第24帧 / B .在“诗句”图层第24帧添加动作命令“StopAllSounds();”)，单击第48帧中的“茶文化”按钮实现在浏览器中显示位于同一目录下“茶文化.txt”文件的内容，则该按钮实例上添加的动作脚本是on(press){ }(单选，填字母：A .gotoAndplay(“茶文化.txt”)；/ B .getURL(“茶文 化.txt”);).
（3）“诗句”图层中的诗句在动画播放2秒末才出现，要想让动画播放1秒后诗句就出现，并持续到本场景播放结束，该如何操作？
（4）“金鱼”图层中金鱼都是“鱼”元件的实例，在不改变其他动画播放效果的前提下，使金鱼一直出现在舞台上，下列操作方法可行的是 (多选，填字母)
A．对“金鱼”图层第25帧执行“清除关键帧”操作
B．对“金鱼”图层第一帧执行“复制帧”操作，并在25帧执行“粘贴帧”操作
C．把“金鱼”图层第25帧移动到第48帧
D．在“金鱼”图层第25帧，把“鱼”元件添加到舞台相同位置上
E．对“金鱼”图层第25帧执行“清除帧”操作
15．（2021·湖州模拟）为防止机密通知被盗，某公司制定了网上发通知的加密要求：
1）通知中包含的空格，标点符号等按原格式输出
2）通知中涉及到字母的内容，所发文件的英语单词全部都是倒序的。如：This is a dog!通知显示内容为：sihT si a
god!
3）通知中涉及到数字的内容，把本组数字的最后一位移动到第一位,例如原文为1234，通知显示内容为：4123
小王编写了一个VB程序，实现加密功能，在文本框Text1中输入原文，单击“加密”按钮Command1后，在文本框Text2中显示加密后的密文。程序运行界面如图所示。
实现上述功能的VB程序如下，请回答下列问题：
（1）若要修改按钮Command1上显示的文字，应修改的属性名是 （单选，填字母：A .Text/B .Caption /C . List ）
（2）实现上述功能的VB程序代码如下，请在划线处填入合适的代码
Private
Sub command1_Click()
Dim s As String, ch As String, rv As
String, rv1 As String
Dim i As Integer, j As Integer, k As
Integer
s = Text1.Text
rv = ""
i = 1
Do While True
ch = Mid(s, i, 1)
Do While
And i <= Len(s)
rv = rv + ch
i = i + 1
ch = Mid(s, i, 1)
Loop
j = i
ch =
Do While sz(ch) And j <= Len(s)
j = j + 1
If j > Len(s) Then Exit Do
ch = Mid(s, j, 1)
Loop
rv1 = ""
rv1 = Mid(s, j - 1, 1) + Mid(s, i, j - i - 1)
rv = rv + rv1
i =
If i > Len(s) Then Exit Do
Do While zf(ch) And j <= Len(s)
j = j + 1
If j > Len(s) Then Exit Do
ch = Mid(s, j, 1)
Loop
rv1 = ""
For k = i - 1 To j - 1
rv1 = Mid(s, k, 1) + rv1
Next k
rv = rv + rv1
If j <= Len(s) Then rv = rv + Mid(s, j, 1)
i = j + 1
If i > Len(s) Then Exit Do
Loop
Text2.Text = rv
End Sub
Function zf(s As String) As Boolean
zf = False
If s >= "A" And s <= "Z" Or s >= "a" And s <= "z" Then
zf = True
End If
End Function
Function sz(s As String) As Boolean
sz = False
If Then
sz = True
End If
End Function
（3）程序中加框处代码有错，请改正
16．（2021·湖州模拟）某校举行拔河比赛，参赛选手队列要求如下：
1)每班参赛男、女选手各5人
2)男女穿插站队，即：男女男女……队列
3)男生身高从低到高排列，女生身高从高到低排列
小明设计了一个程序实现如下功能：在文本框Text1中输入学生身高，奇数位置上存放男生的身高，偶数位置上存放女生身高，两个数之间用逗号隔开。单击“排序”按钮，使男生身高升序排序，结果输出在文本框Text2中，女生按身高降序排序结果存放在文本框Text3中。
程序运行界面如图所示
（1）请在划线处填入合适的代码
Private
Sub Command1_Click()
Dim n As Integer
Dim a(1 To 10) As Integer
Dim i As Integer, j As Integer, tmp As
Integer
Dim s1 As String, s2 As String, t As
Integer
Dim s As String, c As String
s = Text1.Text
n = 1
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= "0" And c <=
"9" Then
a(n) = a(n) * 10 + Val(c)
Else
n = n + 1
End If
Next i
t = -1
For i = 1 To n - 2
For j =
If a(i) * t < a(j) * t Then
tmp = a(i): a(i) = a(j): a(j) =
tmp
End If
Next j
Next i
For i = 1 To n
If i Mod 2 = 1 Then
s1 = s1 + Str(a(i))
Else
End If
Next i
Text2.Text = s1
Text3.Text = s2
End
Sub
（2）若男生甲和男生乙的身高都是 180，在Text1中的输入顺序是：男生甲，女生甲，男生乙……，则经过排序后，男生甲排在男生乙的 (单选，填字母：A .前面 / B .后面)
答案解析部分
1．【答案】B
【知识点】信息及其特征；信息技术的概念与关键技术；信息来源的选择与判断；信息表达方式与表达技术
2．【答案】B
【知识点】网络协议；网络资源的类型、下载与保存；浏览器
3．【答案】C
【知识点】数据表、字段、记录的概念；字段的数据类型
4．【答案】B
【知识点】进制及数制转换；字符编码
5．【答案】C
【知识点】图片加工常用工具的使用；图层及图层的基本操作
6．【答案】D
【知识点】声音、图像、视频编码
7．【答案】B
【知识点】运算符、基本运算与表达式
8．【答案】B
【知识点】流程图识读
9．【答案】A
【知识点】循环结构语句及程序实现；常用标准函数
10．【答案】A
【知识点】查找算法及程序实现
11．【答案】C
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
12．【答案】D
【知识点】排序算法及程序实现
13．【答案】（1）=Rank( D3，$D$3: $D$36)或: =Rank( D3，D$3: D$36)
（2）B；D
（3）B8: G13
【知识点】表格数据的处理与计算；数据分析
14．【答案】（1）A；D；E
（2）B；B
（3）把“诗句”图层第24帧移动到第13帧
（4）A；B；D
【知识点】多媒体作品的规划和设计；时间轴、帧、图层、库的概念及基本操作；常用影片控制函数的应用
15．【答案】（1）B
（2）Mid(s, j, 1)；j+1；s>="0"Ands<="g"
（3）Not zf(ch) And Not sz (ch)
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
16．【答案】（1）i+2 To n Step 2；t=-t；s2=s2+ Str(a(i))
（2）A
【知识点】排序算法及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1
