资源简介

登录二一教育在线组卷平台 助您教考全无忧
浙江省百校2021届高三上学期信息技术12月联考试卷
一、选择题(本大题共12小题，每小题2分，共24分。)
1．（2021高三上·浙江月考）下列有关信息与信息处理的说法，错误的是(　　)
A．搜索引擎运用了全文检索技术
B．古人“事大，大结其绳，事小，小结其绳，结之多少，随物众寡”，属于信息编码
C．鲲鹏云手机摆脱了对芯片的依赖，不再需要CPU支持
D．计算机感知现实世界需要用到传感器技术
2．（2021高三上·浙江月考）下列应用中，没有体现人工智能技术的是(　　)
A．停车管理系统通过识别车牌进行计费
B．“识花”软件通过识别花草图像显示花草名称
C．自动翻译机将普通话翻译成英语
D．佩戴智能导游进人预设无线发射点后自动播放讲解
3．（2021高三上·浙江月考）用Access软件设计某图书管理信息系统的数据库，其中“图书登记表”中需要存储如图所示的数据。
序号 图书编号 书名 作者 入库日期 借阅状态
27 BK001 113 安娜·卡列尼娜 列夫·托尔斯泰 2014-07-31 是
28 BK003839 城南旧事 林海英 2016-08-01 否
29 BK002028 时间简史 霍金 2020-08-02 是
… … … … … …
下列关于该图书管理信息系统的描述，正确的是（　　）
A．“图书登记表”中存在如图数据，不可以将“序号”字段改为“自动编号”
B．“图书登记表”的字段顺序与图中数据的列顺序需要一致
C．“图书登记表”中借阅状态数据的字段类型不可以设置为“数字”类型
D．同一数据表中各记录的字段数可以不同
4．要表示100种不同的信息，需要的二进制位数至少为(　　)
A．5 B．6 C．7 D．8
5．（2021高三上·浙江月考）用Photoshop软件制作“足球”宣传海报，如图所示，下列说法正确的是（　　）
A．可以对“F OT BALL"图层使用“自由变换”命令调节文字大小
B．调换“球员”图层与“F OT BALL"图层顺序作品显示效果不变
C．可直接用“油漆桶”工具改变“F OT BALL"图层的字体颜色
D．对“F OT BALL"图层执行修改字号命令无法单独将“O”字母变大
6．（2021高三上·浙江月考）尺寸为1280×720像素、颜色位深度为24位的图像，要求其上传大小不超过450KB。根据一要求，压缩为JPG格式其压缩比至少为（　　）
A．3：1 B．4：1 C．5：1 D．6：1
7．（2021高三上·浙江月考）符合产生随机整数n，其范围为(100≤n≤200)的VB表达式是（　　）
A．int(Rnd * 100)+ 100 B．int(Rnd * 100)+101
C．int(Rnd* 101)+100 D．int(Rnd* 101)+101
8．（2020高二上·宁波期中）某算法的部分流程图如图所示，执行这部分流程，若输入a值为2020，则输出i的值为（　　）
A．7 B．8 C．9 D．11
9．（2021高三上·浙江月考）有如下VB程序段：
s= "abcde"
m=0
L=Len(s) ：n=L
Do While n>0
m=(m+3) Mod n+1
s=Mid(s，1，m-1)+ Mid(s，m+1，L) +Mid(s，m，1)
n= n-1
Loop
执行该程序段后，变量s的值是（　　）
A．edcba B．debca C．dbeca D．Edbac
10．（2021高三上·浙江月考）有如下VB程序段：
s=0：t=0
For i=1 To 5
If a(i)-a(i+1)t=a(i)-a(i+l)
s=s+1
End If
Next i
数组元素a(1)到a(6)的值依次为“4，5，3，2，7，5”，执行该程序段后，变量s的值为（　　）
A．1 B．2 C．3 D．4
11．（2021高三上·浙江月考）统计字符串s中的升序段个数(例如47923123 ，则满足条件的升序段是479，23，123)。编写的部分VB程序段如下：
s= "47923123"
f=True ： n=Len(s) ： m=0
For i=2 To n
If Mid(s， i， 1)> >Mid(s， i - 1， 1) Then
Else
End If
Next i
Print "升序段个数有"十Str(m)
上述程序段中方框处可选语句为：
①f= True
②f= False
③If f Then m=m+1
则(1)(2)(3)处语句依次为（　　）
A．①②③ B．②③① C．③②① D．②③①
12．（2021高三上·浙江月考）某对分查找算法的VB程序段如下：
Key= Val(Text1.Text)
i=1： j=10： n=0
Do While i<=j
m=(i+j)\2
n=n+1
If a(m) ： > Key Then
j=m-1
Else
i=m+ 1
End If
Loop
Text2.Text=str(n)
数组元素a(1)到a(10)的值依次为“2，3，5，8，9，10，13，17，19，25”。在文本框Text1中输入待查找的整数，执行该程序段，则文本框Text2中显示3，待查找数不可能是（　　）
A．2 B．4 C．9 D．i9
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2021高三上·浙江月考）小张收集了2020美国大选8个摇摆州民调数据，并用EXCEL软件进行处理，如图所示。
（1）支持率大于50的总统候选人获得该州的选票，如拜登获得了佛罗里达州(FL)、亚利桑那州(AZ)、北卡罗来纳州(NC)．俄亥俄州(OH)的选票，并将预计得票显示在G3、G4中。G3单元格是使用SUMIF函数计算得到的，其公式是　 　。
(提示：SUMIF(条件区域，求和条件，实际求和区域)，第二个求和条件参数作用在第一个条件区域里。SUMIF(A2：A13，“>50"，B2：B13)表示A2：A13区域大于50的对应实际求和区域B2：B13数据求和)
（2）H4单元格是通过H3自动填充得到的，现在出现了“#DIV/0！”错误，请分析原因，并修改H3公式：　 　。
（3）根据图a数据，制作图b所示图表(2020美国大选摇摆州民调情况)，则该图表的数据源是　 　。
14．（2021高三上·浙江月考）使用Flash软件制作“流感常识宣传”动画：
（1）创作多媒体作品需要进行需求分析和规划设计。下列属于应用需求分析的是　 　(多选，填字母：A .了解用户的计算机应用水平/B .考虑作品创作及运行需要的硬件设施/C .分析该作品的受欢迎程度及教育意义/D .设计作品的主要界面/E．确定作品的发布方式)。
（2）测试该场景时，“按钮”图层内容直到45帧才出现，要使按钮从第1帧就出现并延续到第45帧，下列操作可行的是 。(多选题，填字母)
A．选中“按钮”图层第1帧执行“清除关键帧”操作
B．选中“按钮”图层第45帧执行“清除关键帧”操作
C．删除“按钮”图层第1至44帧
D．选中“按钮”图层第45帧执行“复制帧”操作，在第1帧执行“粘贴帧”操作
E．选中“按钮”图层第45帧，并移动到第1帧
（3）“教师”图层中的“人物”实例实现了由透明逐渐显示的动画效果，该图层第一帧“人物”实例的Alpha属性值为　 　。
（4）删除“音效”图层，第40帧到第45帧，对动画整体音效　 　(有/无)影响。
（5）单击“play”按钮，跳转到“第一幕”场景第1帧并开始播放，该按钮上的动作脚本命令是　 　。
15．（2021高三上·浙江月考）某网站注册密码需要符合以下两点条件：①密码不少于4位字符组成；②必须同时包含4种字符，大写字母“A-Z”，小写字母“a-z”，数字“0-9”，特殊符号“！ @# $%~&．*”，为了方便批量注册，小迪同学编写了自动生成密码的VB程序，程序运行界面如图所示，当在文本框Text1中输人需生成密码长度，点击“生成密码”按钮(Command1)，在文本框Text2中输出符合要求的密码串。
（1）下列对象不具有Caption属性的是　 　(单选，填字母：A.Command1/B.Form1/C.Text1/D.Label1)
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_ Click(　　)
Dim a(0 To 4) As Integer， b(1 To 4) As Integer
Dim key As String， s As String， n As Integer， k As Integer， i As Integer， j As Integer， sum As Integer
key="ABCDEFGHJKIMNC)PQRSTUVWXYZabdefghijklmnopqrstuvwxyz0123456789！ @# $ %&．*"
Randomize
n= Val(Text1.Text)
a(0)=0：a(1)=26 ：a(2)=52 ：a(3)=62：a(4)=70 '记录每种符号的结束位置
s= ""
For i=1 To 4
b(i) =0 'b数组记录某类符号是否使用
Next i
sum=4 '当前未使用字符类型，初始为4种
Do While Len(s)+sum< n
k=　 　 '随机选择一个密码序号
s=s+ Mid(key， k， 1)
i= 1
Do While
i=i+ 1
Loop
b(i)= 1
sum=4-b(1)-b(2)-b(3)-b(4)
Loop
'生成剩余未出现元素密码，保证4种符号均有出现
For i=1 To sum
j=Int(Rnd*4)十1
Do While (　 　 )
j=j Mod 4+1
Loop
b(j)=1
k=Int(Rnd * (a(j)-a(j- 1)))+a(j-1)+1
s=s+Mid(key， k， 1)
Next i
Text2.Text=s
End Sub
（3）程序代码中的加框处代码有误，请改正。
（4）如果文本框Text1中输入值2，文本框Text2中输出字符长度为　 　(单选，填字母：A . 2/ B . 4 /C .运行错误/D .没有输出)
16．（2021高三上·浙江月考）现需要对某企业大型招聘活动面试成绩进行排名，面试数据包含专业编号(整数，顺序编号)、专业名称、姓名(字母编写)和面试分。整理面试数据的要求是：先按专业编号从小到大排列；然后，同专业的面试者按面试成绩从大到小排列(同分同名次)。按上述要求，编写一个VB程序，功能如下：在列表List1中显示整理前的数据，单击“整理”按钮Command1，整理结果显示在列表框List2中，程序运行界面如图所示。
（1）n个元素两两比较大小，需要比较的次数是　 　
（2）请在划线处填入合适的代码。
Const n=200 '报名人数
Const nz=10 '专业数
Dim zybh(1 To n) As Integer， zyname(1 To n) As String， sname(1 To n) As String， zymark(1 To n) As Integer
Dim b(1 To nz) As Integer '存储每个专业的人数
Dim c(1 To nz) As Integer
Dim d(1 To n) As Integer
Dim q(1 To n) As Integer
Private Sub Form_ Load()
'本过程读取专业编号、专业名称、姓名和面试分的数据分别存储在数组zybh，zyname，sname， zymark中，并在List1中显示，代码略
End Sub
Private Sub Command1_ Click(　　)
Dim i As Integer， j As Integer， k As Integer， t As Integer， pos As Integer
For i=1 To nz
b(i)=0
Next i
For i=1 To n
d(i)=0 ： q(i)=0
Next i
For i=1 To n
k= zybh(i)
b(k)=b(k) + 1
Next i
k=1
For i=1 To nz
c(i)=k
　 　
Next i
For i=1 To n-1
For j=i+1 To n
If zybh(i)= zybh(j) And zymark(i) < <> zymark(j) Then
If 　 　 Then
d(j)=d(j)+1
Else
d(i)=d(i)+1
End If
End If
Next j
Next i
For i=1 To n
j=0
Do While 　 　
j=j+1
Loop
q(c(zybh(i))+d(i)+j)=i
Next i
For i=1 To n
List2.AddItem "" & zybh(q(i)) & " " & zyname(q()) & " " & sname(q(i))& "" & zymark(q(i) & "" & d(q(i)) + 1
Next i
End Sub
答案解析部分
1．【答案】C
【知识点】信息技术的概念与关键技术；网络资源的检索；计算机、移动终端的工作原理
2．【答案】D
【知识点】人工智能的应用
3．【答案】A
【知识点】数据表、字段、记录的编辑
4．【答案】C
【知识点】字符编码
5．【答案】A
【知识点】图片加工常用工具的使用；图层及图层的基本操作
6．【答案】D
【知识点】声音、图像、视频编码
7．【答案】C
【知识点】运算符、基本运算与表达式；常用标准函数
8．【答案】A
【知识点】流程图识读
9．【答案】B
【知识点】循环结构语句及程序实现
10．【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
11．【答案】C
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
12．【答案】D
【知识点】查找算法及程序实现
13．【答案】（1）= SUMIF(C3 ： C10，">50"，B3 ： B10)或=SUMIF(D3 ： D10，"<50"，B3 ： B10)
（2）自动填充后H4公式为=G4/G6，G6内容为空发生除0错误，需要将H3公式修改为=G3/G$ 6或=G3/$G$ 6
（3）A2：A10，C2：D10
【知识点】表格数据的处理与计算
14．【答案】（1）AC
（2）A；D；E
（3）0%或0
（4）无
（5）on( release) {gotoAndPlay(“第一幕”，1)；}或on( press) {gotoAndPlay(“第一幕” ，1)；}或等价表述
【知识点】多媒体作品的规划和设计；时间轴、帧、图层、库的概念及基本操作；二维动画实例属性的设置；常用影片控制函数的应用
15．【答案】（1）C
（2）Int(Rnd * 70) + 1；b(j)<> 0
（3）k>a(i)
（4）B
【知识点】常见数据类型、数组；循环结构语句及程序实现；常用标准函数
16．【答案】（1）n(n-1)/2
（2）k=k+b(i)；zymark(i)> zymark(j)；q(c(zybh(i)) + d(i) + j) <> 0
【知识点】排序算法及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1登录二一教育在线组卷平台 助您教考全无忧
浙江省百校2021届高三上学期信息技术12月联考试卷
一、选择题(本大题共12小题，每小题2分，共24分。)
1．（2021高三上·浙江月考）下列有关信息与信息处理的说法，错误的是(　　)
A．搜索引擎运用了全文检索技术
B．古人“事大，大结其绳，事小，小结其绳，结之多少，随物众寡”，属于信息编码
C．鲲鹏云手机摆脱了对芯片的依赖，不再需要CPU支持
D．计算机感知现实世界需要用到传感器技术
【答案】C
【知识点】信息技术的概念与关键技术；网络资源的检索；计算机、移动终端的工作原理
2．（2021高三上·浙江月考）下列应用中，没有体现人工智能技术的是(　　)
A．停车管理系统通过识别车牌进行计费
B．“识花”软件通过识别花草图像显示花草名称
C．自动翻译机将普通话翻译成英语
D．佩戴智能导游进人预设无线发射点后自动播放讲解
【答案】D
【知识点】人工智能的应用
3．（2021高三上·浙江月考）用Access软件设计某图书管理信息系统的数据库，其中“图书登记表”中需要存储如图所示的数据。
序号 图书编号 书名 作者 入库日期 借阅状态
27 BK001 113 安娜·卡列尼娜 列夫·托尔斯泰 2014-07-31 是
28 BK003839 城南旧事 林海英 2016-08-01 否
29 BK002028 时间简史 霍金 2020-08-02 是
… … … … … …
下列关于该图书管理信息系统的描述，正确的是（　　）
A．“图书登记表”中存在如图数据，不可以将“序号”字段改为“自动编号”
B．“图书登记表”的字段顺序与图中数据的列顺序需要一致
C．“图书登记表”中借阅状态数据的字段类型不可以设置为“数字”类型
D．同一数据表中各记录的字段数可以不同
【答案】A
【知识点】数据表、字段、记录的编辑
4．要表示100种不同的信息，需要的二进制位数至少为(　　)
A．5 B．6 C．7 D．8
【答案】C
【知识点】字符编码
5．（2021高三上·浙江月考）用Photoshop软件制作“足球”宣传海报，如图所示，下列说法正确的是（　　）
A．可以对“F OT BALL"图层使用“自由变换”命令调节文字大小
B．调换“球员”图层与“F OT BALL"图层顺序作品显示效果不变
C．可直接用“油漆桶”工具改变“F OT BALL"图层的字体颜色
D．对“F OT BALL"图层执行修改字号命令无法单独将“O”字母变大
【答案】A
【知识点】图片加工常用工具的使用；图层及图层的基本操作
6．（2021高三上·浙江月考）尺寸为1280×720像素、颜色位深度为24位的图像，要求其上传大小不超过450KB。根据一要求，压缩为JPG格式其压缩比至少为（　　）
A．3：1 B．4：1 C．5：1 D．6：1
【答案】D
【知识点】声音、图像、视频编码
7．（2021高三上·浙江月考）符合产生随机整数n，其范围为(100≤n≤200)的VB表达式是（　　）
A．int(Rnd * 100)+ 100 B．int(Rnd * 100)+101
C．int(Rnd* 101)+100 D．int(Rnd* 101)+101
【答案】C
【知识点】运算符、基本运算与表达式；常用标准函数
8．（2020高二上·宁波期中）某算法的部分流程图如图所示，执行这部分流程，若输入a值为2020，则输出i的值为（　　）
A．7 B．8 C．9 D．11
【答案】A
【知识点】流程图识读
9．（2021高三上·浙江月考）有如下VB程序段：
s= "abcde"
m=0
L=Len(s) ：n=L
Do While n>0
m=(m+3) Mod n+1
s=Mid(s，1，m-1)+ Mid(s，m+1，L) +Mid(s，m，1)
n= n-1
Loop
执行该程序段后，变量s的值是（　　）
A．edcba B．debca C．dbeca D．Edbac
【答案】B
【知识点】循环结构语句及程序实现
10．（2021高三上·浙江月考）有如下VB程序段：
s=0：t=0
For i=1 To 5
If a(i)-a(i+1)t=a(i)-a(i+l)
s=s+1
End If
Next i
数组元素a(1)到a(6)的值依次为“4，5，3，2，7，5”，执行该程序段后，变量s的值为（　　）
A．1 B．2 C．3 D．4
【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
11．（2021高三上·浙江月考）统计字符串s中的升序段个数(例如47923123 ，则满足条件的升序段是479，23，123)。编写的部分VB程序段如下：
s= "47923123"
f=True ： n=Len(s) ： m=0
For i=2 To n
If Mid(s， i， 1)> >Mid(s， i - 1， 1) Then
Else
End If
Next i
Print "升序段个数有"十Str(m)
上述程序段中方框处可选语句为：
①f= True
②f= False
③If f Then m=m+1
则(1)(2)(3)处语句依次为（　　）
A．①②③ B．②③① C．③②① D．②③①
【答案】C
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
12．（2021高三上·浙江月考）某对分查找算法的VB程序段如下：
Key= Val(Text1.Text)
i=1： j=10： n=0
Do While i<=j
m=(i+j)\2
n=n+1
If a(m) ： > Key Then
j=m-1
Else
i=m+ 1
End If
Loop
Text2.Text=str(n)
数组元素a(1)到a(10)的值依次为“2，3，5，8，9，10，13，17，19，25”。在文本框Text1中输入待查找的整数，执行该程序段，则文本框Text2中显示3，待查找数不可能是（　　）
A．2 B．4 C．9 D．i9
【答案】D
【知识点】查找算法及程序实现
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2021高三上·浙江月考）小张收集了2020美国大选8个摇摆州民调数据，并用EXCEL软件进行处理，如图所示。
（1）支持率大于50的总统候选人获得该州的选票，如拜登获得了佛罗里达州(FL)、亚利桑那州(AZ)、北卡罗来纳州(NC)．俄亥俄州(OH)的选票，并将预计得票显示在G3、G4中。G3单元格是使用SUMIF函数计算得到的，其公式是　 　。
(提示：SUMIF(条件区域，求和条件，实际求和区域)，第二个求和条件参数作用在第一个条件区域里。SUMIF(A2：A13，“>50"，B2：B13)表示A2：A13区域大于50的对应实际求和区域B2：B13数据求和)
（2）H4单元格是通过H3自动填充得到的，现在出现了“#DIV/0！”错误，请分析原因，并修改H3公式：　 　。
（3）根据图a数据，制作图b所示图表(2020美国大选摇摆州民调情况)，则该图表的数据源是　 　。
【答案】（1）= SUMIF(C3 ： C10，">50"，B3 ： B10)或=SUMIF(D3 ： D10，"<50"，B3 ： B10)
（2）自动填充后H4公式为=G4/G6，G6内容为空发生除0错误，需要将H3公式修改为=G3/G$ 6或=G3/$G$ 6
（3）A2：A10，C2：D10
【知识点】表格数据的处理与计算
14．（2021高三上·浙江月考）使用Flash软件制作“流感常识宣传”动画：
（1）创作多媒体作品需要进行需求分析和规划设计。下列属于应用需求分析的是　 　(多选，填字母：A .了解用户的计算机应用水平/B .考虑作品创作及运行需要的硬件设施/C .分析该作品的受欢迎程度及教育意义/D .设计作品的主要界面/E．确定作品的发布方式)。
（2）测试该场景时，“按钮”图层内容直到45帧才出现，要使按钮从第1帧就出现并延续到第45帧，下列操作可行的是 。(多选题，填字母)
A．选中“按钮”图层第1帧执行“清除关键帧”操作
B．选中“按钮”图层第45帧执行“清除关键帧”操作
C．删除“按钮”图层第1至44帧
D．选中“按钮”图层第45帧执行“复制帧”操作，在第1帧执行“粘贴帧”操作
E．选中“按钮”图层第45帧，并移动到第1帧
（3）“教师”图层中的“人物”实例实现了由透明逐渐显示的动画效果，该图层第一帧“人物”实例的Alpha属性值为　 　。
（4）删除“音效”图层，第40帧到第45帧，对动画整体音效　 　(有/无)影响。
（5）单击“play”按钮，跳转到“第一幕”场景第1帧并开始播放，该按钮上的动作脚本命令是　 　。
【答案】（1）AC
（2）A；D；E
（3）0%或0
（4）无
（5）on( release) {gotoAndPlay(“第一幕”，1)；}或on( press) {gotoAndPlay(“第一幕” ，1)；}或等价表述
【知识点】多媒体作品的规划和设计；时间轴、帧、图层、库的概念及基本操作；二维动画实例属性的设置；常用影片控制函数的应用
15．（2021高三上·浙江月考）某网站注册密码需要符合以下两点条件：①密码不少于4位字符组成；②必须同时包含4种字符，大写字母“A-Z”，小写字母“a-z”，数字“0-9”，特殊符号“！ @# $%~&．*”，为了方便批量注册，小迪同学编写了自动生成密码的VB程序，程序运行界面如图所示，当在文本框Text1中输人需生成密码长度，点击“生成密码”按钮(Command1)，在文本框Text2中输出符合要求的密码串。
（1）下列对象不具有Caption属性的是　 　(单选，填字母：A.Command1/B.Form1/C.Text1/D.Label1)
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_ Click(　　)
Dim a(0 To 4) As Integer， b(1 To 4) As Integer
Dim key As String， s As String， n As Integer， k As Integer， i As Integer， j As Integer， sum As Integer
key="ABCDEFGHJKIMNC)PQRSTUVWXYZabdefghijklmnopqrstuvwxyz0123456789！ @# $ %&．*"
Randomize
n= Val(Text1.Text)
a(0)=0：a(1)=26 ：a(2)=52 ：a(3)=62：a(4)=70 '记录每种符号的结束位置
s= ""
For i=1 To 4
b(i) =0 'b数组记录某类符号是否使用
Next i
sum=4 '当前未使用字符类型，初始为4种
Do While Len(s)+sum< n
k=　 　 '随机选择一个密码序号
s=s+ Mid(key， k， 1)
i= 1
Do While
i=i+ 1
Loop
b(i)= 1
sum=4-b(1)-b(2)-b(3)-b(4)
Loop
'生成剩余未出现元素密码，保证4种符号均有出现
For i=1 To sum
j=Int(Rnd*4)十1
Do While (　 　 )
j=j Mod 4+1
Loop
b(j)=1
k=Int(Rnd * (a(j)-a(j- 1)))+a(j-1)+1
s=s+Mid(key， k， 1)
Next i
Text2.Text=s
End Sub
（3）程序代码中的加框处代码有误，请改正。
（4）如果文本框Text1中输入值2，文本框Text2中输出字符长度为　 　(单选，填字母：A . 2/ B . 4 /C .运行错误/D .没有输出)
【答案】（1）C
（2）Int(Rnd * 70) + 1；b(j)<> 0
（3）k>a(i)
（4）B
【知识点】常见数据类型、数组；循环结构语句及程序实现；常用标准函数
16．（2021高三上·浙江月考）现需要对某企业大型招聘活动面试成绩进行排名，面试数据包含专业编号(整数，顺序编号)、专业名称、姓名(字母编写)和面试分。整理面试数据的要求是：先按专业编号从小到大排列；然后，同专业的面试者按面试成绩从大到小排列(同分同名次)。按上述要求，编写一个VB程序，功能如下：在列表List1中显示整理前的数据，单击“整理”按钮Command1，整理结果显示在列表框List2中，程序运行界面如图所示。
（1）n个元素两两比较大小，需要比较的次数是　 　
（2）请在划线处填入合适的代码。
Const n=200 '报名人数
Const nz=10 '专业数
Dim zybh(1 To n) As Integer， zyname(1 To n) As String， sname(1 To n) As String， zymark(1 To n) As Integer
Dim b(1 To nz) As Integer '存储每个专业的人数
Dim c(1 To nz) As Integer
Dim d(1 To n) As Integer
Dim q(1 To n) As Integer
Private Sub Form_ Load()
'本过程读取专业编号、专业名称、姓名和面试分的数据分别存储在数组zybh，zyname，sname， zymark中，并在List1中显示，代码略
End Sub
Private Sub Command1_ Click(　　)
Dim i As Integer， j As Integer， k As Integer， t As Integer， pos As Integer
For i=1 To nz
b(i)=0
Next i
For i=1 To n
d(i)=0 ： q(i)=0
Next i
For i=1 To n
k= zybh(i)
b(k)=b(k) + 1
Next i
k=1
For i=1 To nz
c(i)=k
　 　
Next i
For i=1 To n-1
For j=i+1 To n
If zybh(i)= zybh(j) And zymark(i) < <> zymark(j) Then
If 　 　 Then
d(j)=d(j)+1
Else
d(i)=d(i)+1
End If
End If
Next j
Next i
For i=1 To n
j=0
Do While 　 　
j=j+1
Loop
q(c(zybh(i))+d(i)+j)=i
Next i
For i=1 To n
List2.AddItem "" & zybh(q(i)) & " " & zyname(q()) & " " & sname(q(i))& "" & zymark(q(i) & "" & d(q(i)) + 1
Next i
End Sub
【答案】（1）n(n-1)/2
（2）k=k+b(i)；zymark(i)> zymark(j)；q(c(zybh(i)) + d(i) + j) <> 0
【知识点】排序算法及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1

展开更多......

收起↑