资源简介

浙江省杭州地区(含周边)重点中学2021届高三上学期信息技术期中考试试卷
一、选择题（本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求）
1．（2020高三上·杭州期中）下列说法中正确的是（　　）
A．计算机中所有的字符都采用ASCII编码
B．“UOS(unity operating system)”是中文国产操作系统”
C．5G技术是指网络连接速度能达到5Gbps的新一代通信技术
D．经数字化后的声音所承载的信息是没有价值的
【答案】B
【知识点】信息及其特征；信息的编码；网络操作系统；网络新技术
2．（2020高三上·杭州期中）以下应用中没有使用人工智能技术的是（　　）
A．手机语音拨号
B．利用光学字符识别技术从图像中识别文字
C．通过超链接实现不同幻灯片之间的跳转
D．某网站提供的在线全文翻译和网页翻译
【答案】C
【知识点】人工智能的应用
3．（2020高三上·杭州期中）某Access数据表的设计视图和数据表视图界面如下图所示，以下说法正确的是（　　）
A．该数据表的名称为“兴趣特色课程.accdb”，共有12条记录
B．被指定为主键的字段，其字段类型一定为自动编号
C．在数据表视图中，不能在已有记录之前插入新的记录
D．在数据表视图中，可以把第9条记录“课程序号”字段的值改为“9”
【答案】C
【知识点】数据表、字段、记录的编辑；数据表视图与设计视图
4．（2020高三上·杭州期中）下列有关进制与字符编码的描述，正确的是（　　）
A．十进制数98，转为七进制数表示为：170
B．任意进制的一个数n，若末尾为0，该数转为十进制一定是偶数
C．用n位二进制数给m种不同的信息编码，则必满足2＾n≥m
D．汉字和英文字符在计算机内部编码均采用十六进制编码
【答案】C
【知识点】信息的编码；进制及数制转换
5．（2020高三上·杭州期中）利用Photoshop制作“土地生命线.psd”作品，编辑界面如下图所示
下列描述正确的是（　　）
A．可以对背景图层设置图层样式
B．选中“定价”文字图层，自由变换命令可以改变“定价”文字大小
C．“封面”图层不可以移至“封面设计”图层上方
D．将文件另存为JPG，“封面封底”图层投影效果将丢失
【答案】B
【知识点】图层及图层的基本操作
6．（2020高三上·杭州期中）一个时长为10秒、1920×1080像素、24位真彩色、30帧/秒的未经压缩的AVI格式无声视频文件，压缩为MP4格式后的文件大小约为23.7MB，则其压缩比约为（　　）
A．4:1 B．15:1 C．130:1 D．75:1
【答案】D
【知识点】声音、图像、视频编码
7．（2020高三上·杭州期中）某算法的流程图如图，以下说法中不正确的是（　　）
A．程序运行结束后，s的值是945 B．循环共进行了5次
C．程序结束后，i的值是12 D．i<=10执行的次数是6次
【答案】C
【知识点】常量、变量及变量的赋值；流程图识读
8．（2020高三上·杭州期中）有如下程序段，在Text1中输入1001011，Text2中输出的结果为（　　）
Private Sub Command1_Click()
Dim s As String, i As Integer, d As Integer
d=0
s = Text1.Text
For i = Len(s) To 1 Step -1
d = (d \ 2 + Val(Mid(s, i, 1)) * 2 ^ (Len(s) - 1))
Next i
Text2.Text = Str(100-d)
End Sub
A．75 B．25 C．-25 D．50
【答案】B
【知识点】运算符、基本运算与表达式；循环结构语句及程序实现
9．（2020高三上·杭州期中）使用 Nilakantha 级数可用于计算 Pi(π) 的无穷级数，它的计算机结果比莱布尼茨公式更快地接近 Pi(π)的近似值。 有下列代码，通过前n项的计算，求Pi近似值，下列选项中正确的是（　　）
Private Sub Command2_Click(　　)
Dim f As Integer, i As Long, n As Long
Dim pi As Double, s As Double
s = 0: n = Val(Text1.Text)
For i = 2 To 2*n ①
s = s + ②
Next i
pi = 3 + s * 4
Label2.Caption = Str(pi)
End Sub
A．① step 1 ② (-1)^(i\2+1) / (i * (i + 1) * (i + 2))
B．① step 1 ② (-1)^(i\2) / (i * (i + 1) * (i + 2))
C．① step 2 ② (-1)^(i\2+1) /(i * (i + 1) * (i + 2))
D．① step 2 ② (-1)^(i\2) / (i * (i + 1) * (i + 2))
【答案】C
【知识点】运算符、基本运算与表达式；循环结构语句及程序实现
10．（2020高三上·杭州期中）将一组数据（共n*n个数）,分别存放在a(1)…a(n*n)中，通过下面程序实现n段有序（升序），例如：当n=4时，排序结果如图所示：
有如下VB程序段：
For i = 1 To n
For j = n * (i - 1) + 1 To ①
For k = ② To ③
If a(k) > a(k + 1) Then
t =a(k): a(k) = a(k + 1): a(k + 1) = t
End If
Next k
Next j
Next i
上述程序段划线处的表达式正确的是（　　）
A．① n * i – 1 ② n * (i - 1) + 1 ③ n * (2 * i - 1) – j
B．① n * (i - 1) ② n * i – 1 ③ n * i - j
C．① n * i – 1 ② n * i + j ③ n * (2 * i - 1)
D．① n * i ② n * (i - 1) + 1 ③ n * i - j
【答案】A
【知识点】运算符、基本运算与表达式；分支结构语句及程序实现；循环结构语句及程序实现
11．（2020高三上·杭州期中）某 VB 程序段如下：
Dim a（1 To 6）As Integer
Randomize
a(1)=Int（Rnd*2）+1
For i=2 To 6
a(i)=Int（Rnd*i）*2+1
If a(i)< a(i-1)Then
a(i)= a(i)+ a(i-1)
End If
Next i
执行该程序段后，数组元素a(1)到a(6)的值可能是（　　）
A．2，4，6，8，10，12 B．1，1，3，7，12，23
C．2，5，9，11，10，15 D．1，3，15，16，20，23
【答案】B
【知识点】常见数据类型、数组；分支结构语句及程序实现；循环结构语句及程序实现
12．（2020高三上·杭州期中）有如下VB程序段：
i=1：j=8：k=0
Key=Int（Rnd*50）*2+3
Do While i<=j
m=（i+j+1）\2
If Key=a（m）Then
Exit Do
ElseIf Key i=m+1：k=k+1
Else
j=m-1：k=k-1
End If
Loop
Text1.Text=Str（k）
数组元素a（1）到a（8）的值依次为“88，66，50，46，24，20，18，6”,执行该程序段后，k的值不可能是（　　）
A．-1或-2 B．1或-1 C．-3或2 D．-2或3
【答案】C
【知识点】常见数据类型、数组；分支结构语句及程序实现；循环结构语句及程序实现
二、非选择题（本题共四大题，共计 26 分，4+8+7+7）
13．（2020高三上·杭州期中）小赵收集了近三年浙江省接待入境旅游者人数的数据，并使用Excel软件进行数据处理：
图 a
（1）在M4单元格中使用AVERAGEIF函数计算2017年亚洲所有国家的平均入境人数，然后通过自动填充得到M5:M7的公式，则M4单元格中的公式为　 　 (提示:AVERAGEIF
函数用于对区域中满足条件的单元格求平均。例如：=AVERAGEIF(A4:A18,J4,E4:E18)表示 2016 年所有亚洲国家的入境人数平均数)
（2）根据图a中数据制作的图表如图b所示，创建该图表的数据区域是：　 　
图 b
（3）在图a所示的工作表中对数据作进一步操作，下列说法正确的是 （多选：填字母）
A．对表格数据区域A4:H18按“列A”为主要关键字升序排序，则图b中所示的图表不会发生变化。
B．若要筛选出2016年欧洲入境旅游者人数同比增长最多的国家，可以选择A2：H18区域，以地区为“欧洲”、2016年“同比（%）”为最大1项进行筛选。
C．若要筛选出2016年欧洲入境旅游者人数同比增长最多的国家，可以选择A2：H18区域，以地区为“欧洲”进行筛选，再以2016年“同比（%）”为关键字进行降序排序，选取排在最前面的国家。
D．在正确完成M4：M7计算后，小赵不小心将B列删除，则原 M4:M7 单元格中的数据不会发生变化。
【答案】（1）=AVERAGEIF(A$4:A$18,J4,G$4:G$18)或=AVERAGEIF($A$4: $A$18,J4, $G$4: $G$18)
（2）B2:B5,B7:B8,H2:H5,H7:H8
（3）C；D
【知识点】表格数据的基本操作；表格数据的处理与计算
14．（2020高三上·杭州期中）某同学制作了“抗击疫情迎接春天”的FLASH多媒体作品，请回答下列问题：
（1）关于多媒体作品设计，以下说法正确的是　 　 。 （多选，填字母：A . Flash 是以时间序列为基础的多媒体合成软件/B . 在创作需求分析阶段应做的是分析作品效益/C . 文字脚本是制作动画的直接依据/D . 结构设计阶段需要描述整个作品的组成部分、工作流程、主要界面）。
（2）当前状态下执行测试影片命令，首先播放的场景是　 　。
（3）“继续”按钮在场景一开始就出现，要实现该按钮在本场景最后一帧再出现，应如何修正　 　。
（4）“明天依然最美”图层第20帧到第50帧实现了文字实例“明天依然最美”由小到大且由透明到完全显示的变化效果，则该动画的类型是　 　。(选填字母：A . 逐帧动画；B . 动画补间；C . 形状补间)。
（5）“音乐”图层添加了一段时长为61秒的音频文件，小李发现当前场景动画结束后声音仍在播放，由此可判断当前音频的同步方式为　 　。 (选填字母:A . 数据流；B . 事件)
（6）测试影片时，单击“继续”按钮，自动跳转到“主交互界面”场景的第1帧播放，则需在按钮上加入的脚本命令为　 　。
【答案】（1）AD
（2）封面
（3）选中按钮图层的第一帧，移至最后一帧或其他等同正确答案
（4）B
（5）B
（6）on （press）{gotoandstop(“主交互界面”,1)};或 on （release）{ gotoandstop(“主交互界面”,1)};
【知识点】动画的类型；时间轴、帧、图层、库的概念及基本操作；动画的实现；常用影片控制函数的应用；多媒体数据采集与编辑软件
15．（2020高三上·杭州期中）有如下程序，从数据库获取成绩，单击“读取数据”按钮将n个非降序数保存在数组cj(1)～cj(n)中，并将成绩显示在列表框中。在文本框中输入成绩key，单击“查找”按钮，在标签中显示大于等于该成绩的学生人数。
（1）界面中“查找”按钮的对象名为　 　。
（2）实现上述功能的
VB 程序如下，请在划线处填入合适的代码
Dim cj(1000) As Integer, n As Integer
Private Sub btncmd1_Click(　　)
Dim i As Integer, j As Integer
Dim k As Integer ,tmp As Integer
For i = 2 To n
tmp = cj(i)
j = BinarySearch　 　
For k = i To j + 1 Step -1
cj(k) = cj(k - 1)
Next k
cj(k) = tmp
Next i
For i = 1 To n
List1.AddItem
Str(cj(i))
Next i
End Sub
Private Sub btncmd2_Click()
Dim i As Integer
i = BinarySearch(Val(Text1.Text), 1, n)
Label2.Caption = "共有" +　 　+ "位同学大于等于该成绩。"
End Sub
Function BinarySearch(key As Integer,i As Integer,j
As Integer) As Integer
Dim m As Integer
Do While i <= j
m = (i + j) \ 2
If cj(m)
>= key Then
j = m - 1
Else
i = m + 1
End If
Loop
BinarySearch =　 　
End Function
Private Sub Form_Load()
'从数据库获取n个成绩存储在 cj(1) ～cj(n)组中，代码略
End Sub
【答案】（1）btncmd2
（2）tmp, 1, i - 1 或其他等同正确答案；Str(n - i + 1) 或其他等同正确答案；i 或其他等同正确答案
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
16．（2020高三上·杭州期中）某单位拟进行人事招聘，根据“笔试”和“面试”成绩计算最后名次。规则如下：
记录各个考生的笔试和面试得分，根据得分分别计算笔试和面试的名次（得分越高排名越前，得分相同，名次也相同）；再根据笔试和面试的名次计算总分（总分=笔试名次+面试名次）；最后计算总分的名次（总分越低排名越前，得分相同，名次相同）。程序设计过程中，为节省内存，尽可能少使用数组，编程实现上述功能：窗体加载时，自动从数据库读取考生的笔试和面试得分，显示在列表框 List1 中；在文本框 Text1 中输入录取人数 n，单击“统计”按钮 Command1，在标签 Label1、Label2 和
Label3 中分别输出笔试、面试、总分前 n 名的考生编号。程序运行界面如图所示。
（1）根据评比规则和图中数据，1号考生的两项竞赛的总分是　 　
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Const n = 9
'数组 xh、df 和 mc 分别存储选手编号、得分和名次；df 数组的 1～n 元素存储笔试相关数据；n+1～2n 元素存储对应选手的面试相关数据；2n+1～3n 元素存放两项考试总分相关数据
Dim xh(1 To n * 3) As Integer, df(1 To n * 3) As
Integer, mc(1 To n * 3) As Integer
Dim i As Integer, j As Integer, t As Integer
'本过程从数据库读取各选手的选手编号、得分数据，分别存储在数组 xh、df 中
Private Sub Form_Load(　　)
List1.Clear
List1.AddItem
"选手" + " " + "笔试" + " " + "面试"
For i = 1 To
n
xh(i) = i: xh(n + i) = i
Next i
For i = 1 To
n
List1.AddItem Str(xh(i)) + " " +
Str(df(i)) + " " + Str(df(n + i))
Next i
End Sub
Private Sub Command1_Click()
Dim c As
Integer
c =
Val(Text1.Text)
Label1.Caption = "笔试前" & Str(c) & "名：" & pm(1, n, c, False)
Label2.Caption = "面试前" & Str(c) & "名：" & pm(n + 1, 2 * n, c, False)
For i = 1 To
n
xh(2 * n + i) = i: df(2 * n + i) = 0: mc(2 * n
+ i) = 0
Next i
For i = 1 To
2 * n
df(2 *
n + xh(i)) = df(2 * n + xh(i)) + mc(i)
Next i
Label3.Caption = "总分前" & Str(c) & "名：" & pm　 　
End Sub
Function pm(ks As Integer, js As Integer, num As
Integer, fx As Boolean) As String
For i = ks To
js - 1
For j = js To ks + 1 Step -1
If (fx And df(j) < df(j - 1)) Or　 　Then
t = df(j): df(j) = df(j - 1): df(j - 1) = t
t = xh(j): xh(j) = xh(j - 1): xh(j - 1) = t
End If
Next j
Next i
mc(ks) = 1:
pm = Str(xh(ks))
For i = ks +
1 To js
If df(i) = df(i - 1) Then
　 　
Else
mc(i) = i - ks + 1
End If
If mc(i)
<= num Then pm = pm & "," & Str(xh(i))
Next i
End Function
【答案】（1）5
（2）2 * n + 1, 3 * n ，c,True；Not fx And df(j) > df(j - 1) 或其他等同正确答案；mc(i) = mc(i - 1)
【知识点】运算符、基本运算与表达式；过程与自定义函数；排序算法及程序实现；分支结构语句及程序实现；循环结构语句及程序实现
1 / 1浙江省杭州地区(含周边)重点中学2021届高三上学期信息技术期中考试试卷
一、选择题（本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求）
1．（2020高三上·杭州期中）下列说法中正确的是（　　）
A．计算机中所有的字符都采用ASCII编码
B．“UOS(unity operating system)”是中文国产操作系统”
C．5G技术是指网络连接速度能达到5Gbps的新一代通信技术
D．经数字化后的声音所承载的信息是没有价值的
2．（2020高三上·杭州期中）以下应用中没有使用人工智能技术的是（　　）
A．手机语音拨号
B．利用光学字符识别技术从图像中识别文字
C．通过超链接实现不同幻灯片之间的跳转
D．某网站提供的在线全文翻译和网页翻译
3．（2020高三上·杭州期中）某Access数据表的设计视图和数据表视图界面如下图所示，以下说法正确的是（　　）
A．该数据表的名称为“兴趣特色课程.accdb”，共有12条记录
B．被指定为主键的字段，其字段类型一定为自动编号
C．在数据表视图中，不能在已有记录之前插入新的记录
D．在数据表视图中，可以把第9条记录“课程序号”字段的值改为“9”
4．（2020高三上·杭州期中）下列有关进制与字符编码的描述，正确的是（　　）
A．十进制数98，转为七进制数表示为：170
B．任意进制的一个数n，若末尾为0，该数转为十进制一定是偶数
C．用n位二进制数给m种不同的信息编码，则必满足2＾n≥m
D．汉字和英文字符在计算机内部编码均采用十六进制编码
5．（2020高三上·杭州期中）利用Photoshop制作“土地生命线.psd”作品，编辑界面如下图所示
下列描述正确的是（　　）
A．可以对背景图层设置图层样式
B．选中“定价”文字图层，自由变换命令可以改变“定价”文字大小
C．“封面”图层不可以移至“封面设计”图层上方
D．将文件另存为JPG，“封面封底”图层投影效果将丢失
6．（2020高三上·杭州期中）一个时长为10秒、1920×1080像素、24位真彩色、30帧/秒的未经压缩的AVI格式无声视频文件，压缩为MP4格式后的文件大小约为23.7MB，则其压缩比约为（　　）
A．4:1 B．15:1 C．130:1 D．75:1
7．（2020高三上·杭州期中）某算法的流程图如图，以下说法中不正确的是（　　）
A．程序运行结束后，s的值是945 B．循环共进行了5次
C．程序结束后，i的值是12 D．i<=10执行的次数是6次
8．（2020高三上·杭州期中）有如下程序段，在Text1中输入1001011，Text2中输出的结果为（　　）
Private Sub Command1_Click()
Dim s As String, i As Integer, d As Integer
d=0
s = Text1.Text
For i = Len(s) To 1 Step -1
d = (d \ 2 + Val(Mid(s, i, 1)) * 2 ^ (Len(s) - 1))
Next i
Text2.Text = Str(100-d)
End Sub
A．75 B．25 C．-25 D．50
9．（2020高三上·杭州期中）使用 Nilakantha 级数可用于计算 Pi(π) 的无穷级数，它的计算机结果比莱布尼茨公式更快地接近 Pi(π)的近似值。 有下列代码，通过前n项的计算，求Pi近似值，下列选项中正确的是（　　）
Private Sub Command2_Click(　　)
Dim f As Integer, i As Long, n As Long
Dim pi As Double, s As Double
s = 0: n = Val(Text1.Text)
For i = 2 To 2*n ①
s = s + ②
Next i
pi = 3 + s * 4
Label2.Caption = Str(pi)
End Sub
A．① step 1 ② (-1)^(i\2+1) / (i * (i + 1) * (i + 2))
B．① step 1 ② (-1)^(i\2) / (i * (i + 1) * (i + 2))
C．① step 2 ② (-1)^(i\2+1) /(i * (i + 1) * (i + 2))
D．① step 2 ② (-1)^(i\2) / (i * (i + 1) * (i + 2))
10．（2020高三上·杭州期中）将一组数据（共n*n个数）,分别存放在a(1)…a(n*n)中，通过下面程序实现n段有序（升序），例如：当n=4时，排序结果如图所示：
有如下VB程序段：
For i = 1 To n
For j = n * (i - 1) + 1 To ①
For k = ② To ③
If a(k) > a(k + 1) Then
t =a(k): a(k) = a(k + 1): a(k + 1) = t
End If
Next k
Next j
Next i
上述程序段划线处的表达式正确的是（　　）
A．① n * i – 1 ② n * (i - 1) + 1 ③ n * (2 * i - 1) – j
B．① n * (i - 1) ② n * i – 1 ③ n * i - j
C．① n * i – 1 ② n * i + j ③ n * (2 * i - 1)
D．① n * i ② n * (i - 1) + 1 ③ n * i - j
11．（2020高三上·杭州期中）某 VB 程序段如下：
Dim a（1 To 6）As Integer
Randomize
a(1)=Int（Rnd*2）+1
For i=2 To 6
a(i)=Int（Rnd*i）*2+1
If a(i)< a(i-1)Then
a(i)= a(i)+ a(i-1)
End If
Next i
执行该程序段后，数组元素a(1)到a(6)的值可能是（　　）
A．2，4，6，8，10，12 B．1，1，3，7，12，23
C．2，5，9，11，10，15 D．1，3，15，16，20，23
12．（2020高三上·杭州期中）有如下VB程序段：
i=1：j=8：k=0
Key=Int（Rnd*50）*2+3
Do While i<=j
m=（i+j+1）\2
If Key=a（m）Then
Exit Do
ElseIf Key i=m+1：k=k+1
Else
j=m-1：k=k-1
End If
Loop
Text1.Text=Str（k）
数组元素a（1）到a（8）的值依次为“88，66，50，46，24，20，18，6”,执行该程序段后，k的值不可能是（　　）
A．-1或-2 B．1或-1 C．-3或2 D．-2或3
二、非选择题（本题共四大题，共计 26 分，4+8+7+7）
13．（2020高三上·杭州期中）小赵收集了近三年浙江省接待入境旅游者人数的数据，并使用Excel软件进行数据处理：
图 a
（1）在M4单元格中使用AVERAGEIF函数计算2017年亚洲所有国家的平均入境人数，然后通过自动填充得到M5:M7的公式，则M4单元格中的公式为　 　 (提示:AVERAGEIF
函数用于对区域中满足条件的单元格求平均。例如：=AVERAGEIF(A4:A18,J4,E4:E18)表示 2016 年所有亚洲国家的入境人数平均数)
（2）根据图a中数据制作的图表如图b所示，创建该图表的数据区域是：　 　
图 b
（3）在图a所示的工作表中对数据作进一步操作，下列说法正确的是 （多选：填字母）
A．对表格数据区域A4:H18按“列A”为主要关键字升序排序，则图b中所示的图表不会发生变化。
B．若要筛选出2016年欧洲入境旅游者人数同比增长最多的国家，可以选择A2：H18区域，以地区为“欧洲”、2016年“同比（%）”为最大1项进行筛选。
C．若要筛选出2016年欧洲入境旅游者人数同比增长最多的国家，可以选择A2：H18区域，以地区为“欧洲”进行筛选，再以2016年“同比（%）”为关键字进行降序排序，选取排在最前面的国家。
D．在正确完成M4：M7计算后，小赵不小心将B列删除，则原 M4:M7 单元格中的数据不会发生变化。
14．（2020高三上·杭州期中）某同学制作了“抗击疫情迎接春天”的FLASH多媒体作品，请回答下列问题：
（1）关于多媒体作品设计，以下说法正确的是　 　 。 （多选，填字母：A . Flash 是以时间序列为基础的多媒体合成软件/B . 在创作需求分析阶段应做的是分析作品效益/C . 文字脚本是制作动画的直接依据/D . 结构设计阶段需要描述整个作品的组成部分、工作流程、主要界面）。
（2）当前状态下执行测试影片命令，首先播放的场景是　 　。
（3）“继续”按钮在场景一开始就出现，要实现该按钮在本场景最后一帧再出现，应如何修正　 　。
（4）“明天依然最美”图层第20帧到第50帧实现了文字实例“明天依然最美”由小到大且由透明到完全显示的变化效果，则该动画的类型是　 　。(选填字母：A . 逐帧动画；B . 动画补间；C . 形状补间)。
（5）“音乐”图层添加了一段时长为61秒的音频文件，小李发现当前场景动画结束后声音仍在播放，由此可判断当前音频的同步方式为　 　。 (选填字母:A . 数据流；B . 事件)
（6）测试影片时，单击“继续”按钮，自动跳转到“主交互界面”场景的第1帧播放，则需在按钮上加入的脚本命令为　 　。
15．（2020高三上·杭州期中）有如下程序，从数据库获取成绩，单击“读取数据”按钮将n个非降序数保存在数组cj(1)～cj(n)中，并将成绩显示在列表框中。在文本框中输入成绩key，单击“查找”按钮，在标签中显示大于等于该成绩的学生人数。
（1）界面中“查找”按钮的对象名为　 　。
（2）实现上述功能的
VB 程序如下，请在划线处填入合适的代码
Dim cj(1000) As Integer, n As Integer
Private Sub btncmd1_Click(　　)
Dim i As Integer, j As Integer
Dim k As Integer ,tmp As Integer
For i = 2 To n
tmp = cj(i)
j = BinarySearch　 　
For k = i To j + 1 Step -1
cj(k) = cj(k - 1)
Next k
cj(k) = tmp
Next i
For i = 1 To n
List1.AddItem
Str(cj(i))
Next i
End Sub
Private Sub btncmd2_Click()
Dim i As Integer
i = BinarySearch(Val(Text1.Text), 1, n)
Label2.Caption = "共有" +　 　+ "位同学大于等于该成绩。"
End Sub
Function BinarySearch(key As Integer,i As Integer,j
As Integer) As Integer
Dim m As Integer
Do While i <= j
m = (i + j) \ 2
If cj(m)
>= key Then
j = m - 1
Else
i = m + 1
End If
Loop
BinarySearch =　 　
End Function
Private Sub Form_Load()
'从数据库获取n个成绩存储在 cj(1) ～cj(n)组中，代码略
End Sub
16．（2020高三上·杭州期中）某单位拟进行人事招聘，根据“笔试”和“面试”成绩计算最后名次。规则如下：
记录各个考生的笔试和面试得分，根据得分分别计算笔试和面试的名次（得分越高排名越前，得分相同，名次也相同）；再根据笔试和面试的名次计算总分（总分=笔试名次+面试名次）；最后计算总分的名次（总分越低排名越前，得分相同，名次相同）。程序设计过程中，为节省内存，尽可能少使用数组，编程实现上述功能：窗体加载时，自动从数据库读取考生的笔试和面试得分，显示在列表框 List1 中；在文本框 Text1 中输入录取人数 n，单击“统计”按钮 Command1，在标签 Label1、Label2 和
Label3 中分别输出笔试、面试、总分前 n 名的考生编号。程序运行界面如图所示。
（1）根据评比规则和图中数据，1号考生的两项竞赛的总分是　 　
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Const n = 9
'数组 xh、df 和 mc 分别存储选手编号、得分和名次；df 数组的 1～n 元素存储笔试相关数据；n+1～2n 元素存储对应选手的面试相关数据；2n+1～3n 元素存放两项考试总分相关数据
Dim xh(1 To n * 3) As Integer, df(1 To n * 3) As
Integer, mc(1 To n * 3) As Integer
Dim i As Integer, j As Integer, t As Integer
'本过程从数据库读取各选手的选手编号、得分数据，分别存储在数组 xh、df 中
Private Sub Form_Load(　　)
List1.Clear
List1.AddItem
"选手" + " " + "笔试" + " " + "面试"
For i = 1 To
n
xh(i) = i: xh(n + i) = i
Next i
For i = 1 To
n
List1.AddItem Str(xh(i)) + " " +
Str(df(i)) + " " + Str(df(n + i))
Next i
End Sub
Private Sub Command1_Click()
Dim c As
Integer
c =
Val(Text1.Text)
Label1.Caption = "笔试前" & Str(c) & "名：" & pm(1, n, c, False)
Label2.Caption = "面试前" & Str(c) & "名：" & pm(n + 1, 2 * n, c, False)
For i = 1 To
n
xh(2 * n + i) = i: df(2 * n + i) = 0: mc(2 * n
+ i) = 0
Next i
For i = 1 To
2 * n
df(2 *
n + xh(i)) = df(2 * n + xh(i)) + mc(i)
Next i
Label3.Caption = "总分前" & Str(c) & "名：" & pm　 　
End Sub
Function pm(ks As Integer, js As Integer, num As
Integer, fx As Boolean) As String
For i = ks To
js - 1
For j = js To ks + 1 Step -1
If (fx And df(j) < df(j - 1)) Or　 　Then
t = df(j): df(j) = df(j - 1): df(j - 1) = t
t = xh(j): xh(j) = xh(j - 1): xh(j - 1) = t
End If
Next j
Next i
mc(ks) = 1:
pm = Str(xh(ks))
For i = ks +
1 To js
If df(i) = df(i - 1) Then
　 　
Else
mc(i) = i - ks + 1
End If
If mc(i)
<= num Then pm = pm & "," & Str(xh(i))
Next i
End Function
答案解析部分
1．【答案】B
【知识点】信息及其特征；信息的编码；网络操作系统；网络新技术
2．【答案】C
【知识点】人工智能的应用
3．【答案】C
【知识点】数据表、字段、记录的编辑；数据表视图与设计视图
4．【答案】C
【知识点】信息的编码；进制及数制转换
5．【答案】B
【知识点】图层及图层的基本操作
6．【答案】D
【知识点】声音、图像、视频编码
7．【答案】C
【知识点】常量、变量及变量的赋值；流程图识读
8．【答案】B
【知识点】运算符、基本运算与表达式；循环结构语句及程序实现
9．【答案】C
【知识点】运算符、基本运算与表达式；循环结构语句及程序实现
10．【答案】A
【知识点】运算符、基本运算与表达式；分支结构语句及程序实现；循环结构语句及程序实现
11．【答案】B
【知识点】常见数据类型、数组；分支结构语句及程序实现；循环结构语句及程序实现
12．【答案】C
【知识点】常见数据类型、数组；分支结构语句及程序实现；循环结构语句及程序实现
13．【答案】（1）=AVERAGEIF(A$4:A$18,J4,G$4:G$18)或=AVERAGEIF($A$4: $A$18,J4, $G$4: $G$18)
（2）B2:B5,B7:B8,H2:H5,H7:H8
（3）C；D
【知识点】表格数据的基本操作；表格数据的处理与计算
14．【答案】（1）AD
（2）封面
（3）选中按钮图层的第一帧，移至最后一帧或其他等同正确答案
（4）B
（5）B
（6）on （press）{gotoandstop(“主交互界面”,1)};或 on （release）{ gotoandstop(“主交互界面”,1)};
【知识点】动画的类型；时间轴、帧、图层、库的概念及基本操作；动画的实现；常用影片控制函数的应用；多媒体数据采集与编辑软件
15．【答案】（1）btncmd2
（2）tmp, 1, i - 1 或其他等同正确答案；Str(n - i + 1) 或其他等同正确答案；i 或其他等同正确答案
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
16．【答案】（1）5
（2）2 * n + 1, 3 * n ，c,True；Not fx And df(j) > df(j - 1) 或其他等同正确答案；mc(i) = mc(i - 1)
【知识点】运算符、基本运算与表达式；过程与自定义函数；排序算法及程序实现；分支结构语句及程序实现；循环结构语句及程序实现
1 / 1

展开更多......

收起↑