登录二一教育在线组卷平台 助您教考全无忧
浙江省普通高校招生选考技术科目考试信息技术模拟试卷二
一、选择题(本大题共12小题，每小题2分，共24分。)
1．（2021高三上·新余期中）下列关于信息的说法，不正确的是（）
A．微信的“扫一扫”功能属于信息的获取过程
B．将微信中的语音转换为文本属于人工智能技术的应用
C．点赞“浙江教育”公众号中的文章属于核心刊物评价
D．使用户体验到“身临其境”的感觉，它采用的是虚拟现实技术
2．（2020高二上·台州月考）下列关于网页和网络协议的说法，正确的是（ ）
A．SMTP协议用于接收E-Mail
B．将网页添加到收藏夹时名称可以重命名
C．IE浏览器可浏览和直接编辑网页文件
D．在IE浏览器中清空历史纪录时需要使用HTTP协议
3．（2022·浙江模拟）用Photoshop软件制作“端午节”作品，在“粽子”图层中已选择矩形区域，如图所示。
下列说法正确的是( )
A．该psd文件采用RGB/8模式，即每个像素占用8位二进制数
B．将“不透明度”设置为0%，“粽子”图层中只有右上角粽子会变为不可见
C．当前“自由变换”命令的操作对象是“粽子”图层右上角的粽子
D．使用仿制图章工具可以实现将“端午”图层中文字仿制到“诗句”图层中
4．（2022·浙江模拟）有一Access数据表，表的结构如图1所示，在数据录入时截图如图2所示，下列说法正确的是( )
A．“ID”字段值一定是连续的
B．“生日”字段可以输入“1998-8-25”
C．“入学成绩”字段中可以输入“Pass”
D．删除第2条记录后，可以在该位置插入一条记录
5．（2016高二下·杭州期中）有一段以每秒25帧播放，每帧画面为512*288像素、24位彩色，且未经压缩的AVI格式无声视频，视频时间为4秒，将其转换成MP4后其存储容量为4320KB，则压缩比约为（ ）
A．100:1 B．50:1 C．20:1 D．10:1
6．（2022·浙江模拟）如图所示为在UltraEdit软件中观察字符内码的部分界面：
下列说法中，不正确的是( )
A．共占用16个字节存储空间
B．全部字符中只有3个采用全角编码
C．字符“G”的二进制码为1000111B
D．大写字母“P”的十六进制编码为38H
7．（2022·浙江模拟）某算法的部分流程图如图所示。
执行该算法，依次输入a的值为2，5，4后，变量b的值为( )
A．0.5 B．2 C．4 D．5
8．（2022·浙江模拟）下列关于数列查找说法，正确的是（ ）
A．使用对分查找，数列中每个元素对象不能是字符串类型的数据
B．使用对分查找数列，数列中每个元素要求必须是经过排序的
C．对于规模为1000万项数的数列，不能使用顺序查找
D．使用顺序查找，只能从第1个元素依次向后进行查找
9．（2022·浙江模拟）有如下VB程序段：
n=0
Key = Val(Text1. Text)
i = 1 : j= 10 : f= False
Do While i<= j And f = False
n=n+1
m=(i+j+1)\2
If a(m)=Key Then f=True
If a(m)>Key Then j=m-1 Else i=m+1
Loop
Text1. Text = Str(n)
数组元素a(1)到a(10)的值依次为“14，17，30，42，55，69，80，83，88，90”，执行该程序段，输入key的值为a(1)到a(10)中的某一个值，文本框Text2中显示的值为3，则key位可能是( )
A．14 B．55 C．69 D．88
10．有如下VB程序段：
Dim i As Integer,c As String,s As String,t As Integer
Dim s2 As String,pwd As String
s=Text1.Text:pwd="71zhYEAR":s2="":t=0
For i = 1 To Len(s)
c=Mid(s,i,1)
If c>="0" And c<="9"Then
t=t*10+Val(c)
Else
s2=s2+Mid(pwd,t Mod 8+1,1)
End If
Next i
Text2.Text=s2
运行该程序段，在文本框Text1中输入“20B13A8”，文本框Text2输出的是（ ）
A．hY B．YE C．YE7 D．Hya
11．（2022·浙江模拟）有如下程序段：
For i=1 To 2
For j=5 To i+1 Step-1
If a(j)
t=a(j) : a(j)=a(j-1) : a(j- 1)=t
End If
Next j
Next i
数组元素a(1)到a(5)的值依次为“95，88，66，80，75”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为( )
A．66，75，95，88， 80 B．66，75，80，95，88
C．95，88，66，80，75 D．95，88，80，75，66
12．（2022·浙江模拟）有如下VB程序段：
For i=1 To 6
If i Mod 2<>0 Then
If a(i) Mod 10>5 Then
a(i)=a(i) \ 10
Else
a(i)=a(i) Mod 10
End If
Else
a(i)=a(i- 1)+1
End If
Next i
程序运行后a(1)到a(6)的值分别是2，3，4，5，0，1，则a(1)到a(6)各元素的初始值可能是( )
A．26，1，4，2，8，3 B．12，1，14，2，11，3
C．15，1，2，3，4，5 D．29，1，40，2，3，30
二、非选择题(本大题共4小题，其中第13小题4分，第14小题8分，第15小题7分，第16小题7分，共26分)
13．（2022·浙江模拟）小李针对各城市的宜居状况做了一项调查，统计情况见下表。请回答下列问题：
（1）如图a所示，求N列的综合得分时，先在N3单元格中输入公式“= SUM(D3：M3)”，然后将该公式复制粘贴到N15单元格，则该单元格式中的公式为 。
（2）小李利用单元格中的数据建立了一张各项指标的得分情况。如图b所示，则该图表的数据区域为 。
（3）如图b所示，该图表系列产生在 (选填：行/列)。
（4）若要按“空气质量”对这些城市进行降序排名，则需要选择的数据区域是 。
14．（2020高三上·绍兴月考）使用Flash软件制作“中秋佳节”多媒体作品，部分界面如图所示。
回答下列问题：
（1）关于多媒体作品的设计，以下说法正确的是 (多选，填字母：A .分析用户情况属于创作需求分析/B .确定作品为演示型属于创作需求分析/C .在应用需求分析阶段完成作品经济效益的预设/D .在规划设计阶段应完成作品的媒体元素分解)。
（2）“嫦娥”在飞升过程中会重复做一些舞蹈动作，这说明关键帧中的“嫦娥”属于 （单选，填字母： A .形状/B .位图 /C .影片剪辑元件实例/D .图形元件实例)。
（3）图a中右下角的“玉兔”是一个按钮实例，若该按钮元件的编辑界面如图b所示，则测试影片，当鼠标指针经过该按钮时，按钮 (选填：是/否)可见。
（4）“孔明灯”图层的第1-12帧、第25-36帧都制作了“孔明灯”实例向左上飞行的动画，其中第12帧和第25帧的孔明灯位置、大小等属性均相同，以下说法正确的是 (多选，填字母)。
A．孔明灯上升过程中，X和Y的坐标值都将不断变小
B．在“孔明灯”图层第13帧设置脚本“stopAllSounds()；"，不会改变动画效果
C．将第一段动画缓动值设置为100，该段动画中“孔明灯”的上升速度将加快
D．在“孔明灯”图层第20帧设置补间属性为“动画”，不会影响动画效果
E．在“孔明灯”图层第37帧插入帧，只会影响本图层效果
（5）修复“玉兔”元件后，测试场景，该按钮一开始就出现，但只有当该场景运行4.1s后点击该按钮才能跳转到新场景。若要求“玉兔”按钮只在该场景最后出现并点击有效，则应做的修改是 。
15．（2022·浙江模拟）小王基于选择排序算法编写了一个VB程序，功能如下：在文本框Text1中显示排序前的数据，单击“排序”按钮，在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如图所示。
实现上述功能的VB代码如下，请回答下列问题：
Const n= 10
Dim a(1 To n) As Integer
Private Sub Form_ load( )
'数组初始化，生成1~20之间的随机整数并赋值给数组a，代码略
End Sub
Private Sub Cmd1_Click()
Dim i As Integer, j As Integer, t As Integer
Dim bottom As Integer
bottom= n
For i=1 To bottom-1
For j= bottom To i+1 Step -1
If Then '①改错
t=a(j) : a(j)=a(i) : a(i)=t
ElselIf a(j)=a(i) Then
'②填空
bottom= bottom- 1
End If
Next j
Next i
Text2. Text=" "
For i=1 To bottom
Text2. Text= Text2. Text+Str(a(i))
Next i
End Sub
（1）程序窗体中“排序”按钮的对象名是 。
（2）程序代码中，加框处①有错，请改正；
（3）为实现上述功能，请在加框处②填入合适的代码：
（4）要想生成范围是1~20的随机整数，VB表达式是 。
16．（2022·浙江模拟）有多人在不同楼层要乘坐同一部电梯，所有人都是去往更高楼层，电梯初始位置为第一批用户出发的楼层位置。电梯在运行时，上升一层需耗时3秒，在某一层停留时(含电梯初始位置和电梯结束位置)，不论有多少人进出都算8秒。小马同学利用，上述算法编写了一个VB程序，在列表框list1中显示所有人的出发与到达楼层，按照出发楼层升序(出发楼层相同按到达楼层升序)排序，在列表框list2中输出排序后结果，最后在文本框Text1 中输出电梯本次运行的总时间。程序运行界面如图所示，回答下列问题：
（1）若有5批用户出发与到达楼层分别是“10-25、5-15、15-20、15-30、5-10”，按照上述电梯运行规则，则电梯本次运行的总时间为 秒，
（2）给划线处填上合适代码，使程序完整。
Dim a(1 To 10) As Integer, b(1 To 10) As Integer
Private Sub Command1_Click( )
Dim i As Integer, time As Integer, k As Integer
Dim c(1 To 20) As Integer, nc As Integer
c(1)=a(1) ：nc= 1
For i=1 To 9 '删除起点重复数据后添加到数组c
If a(i)<>a(i+1) Then
nc=nc+1
End If
Next i
For i=1 To 10 '删除终点重复数据后添加到数组c
k= nc
Do While b(i) < c(k)
k=k- 1
Loop
If Then '非重复 数据(新停靠楼层)添加到数组c
For j=nc To k+1 Step -1
c(j+1)=c(j)
Next j
nc=nc+1
c(j+1)=b(i)
End If
Next i
time=(c(nc)-c(1)) *3+nc*8
Text1. Text="总时间--"+Str( time)+ "秒"
End Sub
Private Sub Form_ Load( )
'生成10批入的起止楼层，分别给数组a和b，并在列表框list1输出,代码略。
For i=1 To 9
For j=10 To i+1 Step -1
If a(j)t=a(j) : a(j)=a(j-1) : a(j-1)=t
t=b(j) : b(j)=b(j - 1) : b(j-1)=t
End If
Next j
Next i
For i=1 To 10
List2. AddItem Str(a(i))+Str(b(i))
Next i
End Sub
答案解析部分
1．【答案】C
【知识点】信息获取的环节与方法；信息技术的应用；因特网信息资源评价
【解析】【解答】评价因特网信息资源有三种主要方式：
(1)统计评价：从统计角度来评价网站的可信度；
(2)专家或核心刊物评价：通过专家学术专著或核心期刊上罗列的一些专业学术网站的资源表，来选择或者评价所需的网站。该方法参考价值较高。
(3)个人推荐：凭借个人对因特网资源的了解和主观认识进行的评价。该方法参考价值较低。
点赞“浙江教育”公众号中的文章不属于核心刊物评价，属于个人评价。故答案选C。
【分析】本题考查的是信息的获取、评价以及信息技术的应用。
2．【答案】B
【知识点】网络协议；浏览器
3．【答案】C
【知识点】图片加工常用工具的使用；图层及图层的基本操作
【解析】【解答】选项A：RGB/8表示每个像素占用24位二进制空间；选项B：将“不透明度”设置会影响整个图层而不是图层中的选区部分；选项C：自由变换命令只影响图层中的选区部分；选项D：“诗句”为文字图层，无法将其他图层的内容仿制到该图层中。故答案选C。
【分析】本题主要考查的是Photoshop图层的处理。
4．【答案】B
【知识点】数据表、字段、记录的编辑
5．【答案】D
【知识点】声音、图像、视频编码
【解析】【解答】原AVI格式的视频存储容量为：512*288*24/8*25*4=44236800B=43200KB，43200KB：4320KB=10:1，故答案选D。
【分析】本题考查的是视频存储容量的计算公式。视频存储容量的计算公式为：视频文件存储容量=（水平像素×垂直像素×每个像素所需位数／8）*帧频*时长（字节）。
6．【答案】D
【知识点】进制及数制转换；字符编码
7．【答案】B
【知识点】流程图识读
【解析】【解答】当a=2时，b= 20/2=10，当a=5时，b=10/5=2，当a=4时，条件“a【分析】本题考查的是流程图的分析。
8．【答案】B
【知识点】查找算法及程序实现
9．【答案】B
【知识点】查找算法及程序实现
10．【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
11．【答案】A
【知识点】排序算法及程序实现
12．【答案】A
【知识点】常见数据类型、数组；分支结构语句及程序实现；循环结构语句及程序实现
13．【答案】（1）= SUM(D15：M15)
（2）B2： B5，D2：M5
（3）行
（4）A2：N15或A3：N15
【知识点】表格数据的处理与计算
14．【答案】（1）BC
（2）C
（3）是
（4）A；D
（5）在“按钮”图层第1帧中删除“玉兔”元件实例
【知识点】多媒体作品的规划和设计；图形与图像、位图与矢量图的概念；时间轴、帧、图层、库的概念及基本操作；元件的类型与应用；二维动画实例属性的设置
15．【答案】（1）Cmd1
（2）a(j) < a(i)
（3）a(j) = a( bottom)
（4）Int(Rnd* 20)+1
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；分支结构语句及程序实现；循环结构语句及程序实现
16．【答案】（1）123
（2）c(nc)=a(i+1)；b(i) <> c(k)或b(i)>c(k)；a(j)=a(j -1) And b(j) < b(j -1)
【知识点】常见数据类型、数组；排序算法及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1登录二一教育在线组卷平台 助您教考全无忧
浙江省普通高校招生选考技术科目考试信息技术模拟试卷二
一、选择题(本大题共12小题，每小题2分，共24分。)
1．（2021高三上·新余期中）下列关于信息的说法，不正确的是（）
A．微信的“扫一扫”功能属于信息的获取过程
B．将微信中的语音转换为文本属于人工智能技术的应用
C．点赞“浙江教育”公众号中的文章属于核心刊物评价
D．使用户体验到“身临其境”的感觉，它采用的是虚拟现实技术
【答案】C
【知识点】信息获取的环节与方法；信息技术的应用；因特网信息资源评价
【解析】【解答】评价因特网信息资源有三种主要方式：
(1)统计评价：从统计角度来评价网站的可信度；
(2)专家或核心刊物评价：通过专家学术专著或核心期刊上罗列的一些专业学术网站的资源表，来选择或者评价所需的网站。该方法参考价值较高。
(3)个人推荐：凭借个人对因特网资源的了解和主观认识进行的评价。该方法参考价值较低。
点赞“浙江教育”公众号中的文章不属于核心刊物评价，属于个人评价。故答案选C。
【分析】本题考查的是信息的获取、评价以及信息技术的应用。
2．（2020高二上·台州月考）下列关于网页和网络协议的说法，正确的是（ ）
A．SMTP协议用于接收E-Mail
B．将网页添加到收藏夹时名称可以重命名
C．IE浏览器可浏览和直接编辑网页文件
D．在IE浏览器中清空历史纪录时需要使用HTTP协议
【答案】B
【知识点】网络协议；浏览器
3．（2022·浙江模拟）用Photoshop软件制作“端午节”作品，在“粽子”图层中已选择矩形区域，如图所示。
下列说法正确的是( )
A．该psd文件采用RGB/8模式，即每个像素占用8位二进制数
B．将“不透明度”设置为0%，“粽子”图层中只有右上角粽子会变为不可见
C．当前“自由变换”命令的操作对象是“粽子”图层右上角的粽子
D．使用仿制图章工具可以实现将“端午”图层中文字仿制到“诗句”图层中
【答案】C
【知识点】图片加工常用工具的使用；图层及图层的基本操作
【解析】【解答】选项A：RGB/8表示每个像素占用24位二进制空间；选项B：将“不透明度”设置会影响整个图层而不是图层中的选区部分；选项C：自由变换命令只影响图层中的选区部分；选项D：“诗句”为文字图层，无法将其他图层的内容仿制到该图层中。故答案选C。
【分析】本题主要考查的是Photoshop图层的处理。
4．（2022·浙江模拟）有一Access数据表，表的结构如图1所示，在数据录入时截图如图2所示，下列说法正确的是( )
A．“ID”字段值一定是连续的
B．“生日”字段可以输入“1998-8-25”
C．“入学成绩”字段中可以输入“Pass”
D．删除第2条记录后，可以在该位置插入一条记录
【答案】B
【知识点】数据表、字段、记录的编辑
5．（2016高二下·杭州期中）有一段以每秒25帧播放，每帧画面为512*288像素、24位彩色，且未经压缩的AVI格式无声视频，视频时间为4秒，将其转换成MP4后其存储容量为4320KB，则压缩比约为（ ）
A．100:1 B．50:1 C．20:1 D．10:1
【答案】D
【知识点】声音、图像、视频编码
【解析】【解答】原AVI格式的视频存储容量为：512*288*24/8*25*4=44236800B=43200KB，43200KB：4320KB=10:1，故答案选D。
【分析】本题考查的是视频存储容量的计算公式。视频存储容量的计算公式为：视频文件存储容量=（水平像素×垂直像素×每个像素所需位数／8）*帧频*时长（字节）。
6．（2022·浙江模拟）如图所示为在UltraEdit软件中观察字符内码的部分界面：
下列说法中，不正确的是( )
A．共占用16个字节存储空间
B．全部字符中只有3个采用全角编码
C．字符“G”的二进制码为1000111B
D．大写字母“P”的十六进制编码为38H
【答案】D
【知识点】进制及数制转换；字符编码
7．（2022·浙江模拟）某算法的部分流程图如图所示。
执行该算法，依次输入a的值为2，5，4后，变量b的值为( )
A．0.5 B．2 C．4 D．5
【答案】B
【知识点】流程图识读
【解析】【解答】当a=2时，b= 20/2=10，当a=5时，b=10/5=2，当a=4时，条件“a【分析】本题考查的是流程图的分析。
8．（2022·浙江模拟）下列关于数列查找说法，正确的是（ ）
A．使用对分查找，数列中每个元素对象不能是字符串类型的数据
B．使用对分查找数列，数列中每个元素要求必须是经过排序的
C．对于规模为1000万项数的数列，不能使用顺序查找
D．使用顺序查找，只能从第1个元素依次向后进行查找
【答案】B
【知识点】查找算法及程序实现
9．（2022·浙江模拟）有如下VB程序段：
n=0
Key = Val(Text1. Text)
i = 1 : j= 10 : f= False
Do While i<= j And f = False
n=n+1
m=(i+j+1)\2
If a(m)=Key Then f=True
If a(m)>Key Then j=m-1 Else i=m+1
Loop
Text1. Text = Str(n)
数组元素a(1)到a(10)的值依次为“14，17，30，42，55，69，80，83，88，90”，执行该程序段，输入key的值为a(1)到a(10)中的某一个值，文本框Text2中显示的值为3，则key位可能是( )
A．14 B．55 C．69 D．88
【答案】B
【知识点】查找算法及程序实现
10．有如下VB程序段：
Dim i As Integer,c As String,s As String,t As Integer
Dim s2 As String,pwd As String
s=Text1.Text:pwd="71zhYEAR":s2="":t=0
For i = 1 To Len(s)
c=Mid(s,i,1)
If c>="0" And c<="9"Then
t=t*10+Val(c)
Else
s2=s2+Mid(pwd,t Mod 8+1,1)
End If
Next i
Text2.Text=s2
运行该程序段，在文本框Text1中输入“20B13A8”，文本框Text2输出的是（ ）
A．hY B．YE C．YE7 D．Hya
【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
11．（2022·浙江模拟）有如下程序段：
For i=1 To 2
For j=5 To i+1 Step-1
If a(j)t=a(j) : a(j)=a(j-1) : a(j- 1)=t
End If
Next j
Next i
数组元素a(1)到a(5)的值依次为“95，88，66，80，75”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为( )
A．66，75，95，88， 80 B．66，75，80，95，88
C．95，88，66，80，75 D．95，88，80，75，66
【答案】A
【知识点】排序算法及程序实现
12．（2022·浙江模拟）有如下VB程序段：
For i=1 To 6
If i Mod 2<>0 Then
If a(i) Mod 10>5 Then
a(i)=a(i) \ 10
Else
a(i)=a(i) Mod 10
End If
Else
a(i)=a(i- 1)+1
End If
Next i
程序运行后a(1)到a(6)的值分别是2，3，4，5，0，1，则a(1)到a(6)各元素的初始值可能是( )
A．26，1，4，2，8，3 B．12，1，14，2，11，3
C．15，1，2，3，4，5 D．29，1，40，2，3，30
【答案】A
【知识点】常见数据类型、数组；分支结构语句及程序实现；循环结构语句及程序实现
二、非选择题(本大题共4小题，其中第13小题4分，第14小题8分，第15小题7分，第16小题7分，共26分)
13．（2022·浙江模拟）小李针对各城市的宜居状况做了一项调查，统计情况见下表。请回答下列问题：
（1）如图a所示，求N列的综合得分时，先在N3单元格中输入公式“= SUM(D3：M3)”，然后将该公式复制粘贴到N15单元格，则该单元格式中的公式为 。
（2）小李利用单元格中的数据建立了一张各项指标的得分情况。如图b所示，则该图表的数据区域为 。
（3）如图b所示，该图表系列产生在 (选填：行/列)。
（4）若要按“空气质量”对这些城市进行降序排名，则需要选择的数据区域是 。
【答案】（1）= SUM(D15：M15)
（2）B2： B5，D2：M5
（3）行
（4）A2：N15或A3：N15
【知识点】表格数据的处理与计算
14．（2020高三上·绍兴月考）使用Flash软件制作“中秋佳节”多媒体作品，部分界面如图所示。
回答下列问题：
（1）关于多媒体作品的设计，以下说法正确的是 (多选，填字母：A .分析用户情况属于创作需求分析/B .确定作品为演示型属于创作需求分析/C .在应用需求分析阶段完成作品经济效益的预设/D .在规划设计阶段应完成作品的媒体元素分解)。
（2）“嫦娥”在飞升过程中会重复做一些舞蹈动作，这说明关键帧中的“嫦娥”属于 （单选，填字母： A .形状/B .位图 /C .影片剪辑元件实例/D .图形元件实例)。
（3）图a中右下角的“玉兔”是一个按钮实例，若该按钮元件的编辑界面如图b所示，则测试影片，当鼠标指针经过该按钮时，按钮 (选填：是/否)可见。
（4）“孔明灯”图层的第1-12帧、第25-36帧都制作了“孔明灯”实例向左上飞行的动画，其中第12帧和第25帧的孔明灯位置、大小等属性均相同，以下说法正确的是 (多选，填字母)。
A．孔明灯上升过程中，X和Y的坐标值都将不断变小
B．在“孔明灯”图层第13帧设置脚本“stopAllSounds()；"，不会改变动画效果
C．将第一段动画缓动值设置为100，该段动画中“孔明灯”的上升速度将加快
D．在“孔明灯”图层第20帧设置补间属性为“动画”，不会影响动画效果
E．在“孔明灯”图层第37帧插入帧，只会影响本图层效果
（5）修复“玉兔”元件后，测试场景，该按钮一开始就出现，但只有当该场景运行4.1s后点击该按钮才能跳转到新场景。若要求“玉兔”按钮只在该场景最后出现并点击有效，则应做的修改是 。
【答案】（1）BC
（2）C
（3）是
（4）A；D
（5）在“按钮”图层第1帧中删除“玉兔”元件实例
【知识点】多媒体作品的规划和设计；图形与图像、位图与矢量图的概念；时间轴、帧、图层、库的概念及基本操作；元件的类型与应用；二维动画实例属性的设置
15．（2022·浙江模拟）小王基于选择排序算法编写了一个VB程序，功能如下：在文本框Text1中显示排序前的数据，单击“排序”按钮，在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如图所示。
实现上述功能的VB代码如下，请回答下列问题：
Const n= 10
Dim a(1 To n) As Integer
Private Sub Form_ load( )
'数组初始化，生成1~20之间的随机整数并赋值给数组a，代码略
End Sub
Private Sub Cmd1_Click()
Dim i As Integer, j As Integer, t As Integer
Dim bottom As Integer
bottom= n
For i=1 To bottom-1
For j= bottom To i+1 Step -1
If Then '①改错
t=a(j) : a(j)=a(i) : a(i)=t
ElselIf a(j)=a(i) Then
'②填空
bottom= bottom- 1
End If
Next j
Next i
Text2. Text=" "
For i=1 To bottom
Text2. Text= Text2. Text+Str(a(i))
Next i
End Sub
（1）程序窗体中“排序”按钮的对象名是 。
（2）程序代码中，加框处①有错，请改正；
（3）为实现上述功能，请在加框处②填入合适的代码：
（4）要想生成范围是1~20的随机整数，VB表达式是 。
【答案】（1）Cmd1
（2）a(j) < a(i)
（3）a(j) = a( bottom)
（4）Int(Rnd* 20)+1
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；分支结构语句及程序实现；循环结构语句及程序实现
16．（2022·浙江模拟）有多人在不同楼层要乘坐同一部电梯，所有人都是去往更高楼层，电梯初始位置为第一批用户出发的楼层位置。电梯在运行时，上升一层需耗时3秒，在某一层停留时(含电梯初始位置和电梯结束位置)，不论有多少人进出都算8秒。小马同学利用，上述算法编写了一个VB程序，在列表框list1中显示所有人的出发与到达楼层，按照出发楼层升序(出发楼层相同按到达楼层升序)排序，在列表框list2中输出排序后结果，最后在文本框Text1 中输出电梯本次运行的总时间。程序运行界面如图所示，回答下列问题：
（1）若有5批用户出发与到达楼层分别是“10-25、5-15、15-20、15-30、5-10”，按照上述电梯运行规则，则电梯本次运行的总时间为 秒，
（2）给划线处填上合适代码，使程序完整。
Dim a(1 To 10) As Integer, b(1 To 10) As Integer
Private Sub Command1_Click( )
Dim i As Integer, time As Integer, k As Integer
Dim c(1 To 20) As Integer, nc As Integer
c(1)=a(1) ：nc= 1
For i=1 To 9 '删除起点重复数据后添加到数组c
If a(i)<>a(i+1) Then
nc=nc+1
End If
Next i
For i=1 To 10 '删除终点重复数据后添加到数组c
k= nc
Do While b(i) < c(k)
k=k- 1
Loop
If Then '非重复 数据(新停靠楼层)添加到数组c
For j=nc To k+1 Step -1
c(j+1)=c(j)
Next j
nc=nc+1
c(j+1)=b(i)
End If
Next i
time=(c(nc)-c(1)) *3+nc*8
Text1. Text="总时间--"+Str( time)+ "秒"
End Sub
Private Sub Form_ Load( )
'生成10批入的起止楼层，分别给数组a和b，并在列表框list1输出,代码略。
For i=1 To 9
For j=10 To i+1 Step -1
If a(j)t=a(j) : a(j)=a(j-1) : a(j-1)=t
t=b(j) : b(j)=b(j - 1) : b(j-1)=t
End If
Next j
Next i
For i=1 To 10
List2. AddItem Str(a(i))+Str(b(i))
Next i
End Sub
【答案】（1）123
（2）c(nc)=a(i+1)；b(i) <> c(k)或b(i)>c(k)；a(j)=a(j -1) And b(j) < b(j -1)
【知识点】常见数据类型、数组；排序算法及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1