资源简介

浙江省“山水联盟”2020届高三信息技术高考模拟考试卷
一、选择题（本大题共12小题，每小题2分，共24分，每小题列出的四个备选项中只有一个是符合题目要求的。）
1．（2020·浙江模拟）下列关于信息的说法，不正确的是（　　）。
A．信息必须依附于载体，但可以脱离它所反映的事物被存储、保存和传播
B．信息可以从一种形态转换为另一种形态
C．信息在传递和共享过程中可以重复使用，不会产生损耗
D．信息具有时效性，过期的信息没有任何价值
2．（2020·浙江模拟）小齐起床后先后做了下列事情，其中体现人工智能技术应用的是（　　）。
A．打开智能手环，查看晚上的睡眠质量
B．通过刷脸在路边自动售货机买了一瓶牛奶
C．经过自动测温仪检测温度后进入校园
D．在实践课上，用3D打印机打印出卡通人物“大头儿子”
3．（2020·浙江模拟）使用Access打开数据库，部分界面如下图所示，下列说法正确的是（　　）。
A．无法在“出生日期”字段输入“2002.5.11”字段值
B．“ID”字段类型可能是文本型
C．可以将“性别”字段类型改为“文本”类型，修改后字段值显示为“Yes”或“No”
D．删除当前记录后，该删除操作可以撤销
4．（2020·浙江模拟）使用 UltraEdit软件查看字符内码，部分界面如图所示。下列说法正确的是（　　）。
A．共有 5 个 ASCII 码字符
B．若用不同输入法输入汉字“高”，将产生不同的汉字内码
C．字符“高”的内码二进制表示为“10111000 11011111”
D．字符“!”的十六进制码是“20 21”
5．（2020·浙江模拟）用GoldWave软件编辑音频，部分界面如图所示。下列说法正确的（　　）。
A．先执行“删除”命令，再执行“插入15秒静音”操作，保存后音频文件存储容量与原来一样
B．当前状态下直接保存文件，音频文件存储容量约为1.3MB
C．执行“剪裁”命令后直接保存，音频文件存储容量大小为原来的1/4
D．执行“选定部分另存为”命令，按默认格式保存，生成的文件为单声道格式
6．（2020·浙江模拟）将一个未经压缩的1366*768像素、16色的BMP图像文件，转换成JPG格式图像文件。若该JPG格式图像存储容量为51KB，则压缩比约为（　　）。
A．20:1 B．40:1 C．10:1 D．8:1
7．（2020·浙江模拟）判断整数n能否被m整除，下列哪个选项表达式功能错误的是（　　）。
A．n \ m = 1 B．n Mod m = 0
C．n / m = Int(n / m) D．n \ m = n / m
8．（2020·浙江模拟）某算法部分流程图如图所示。执行这部分流程，依次输入2、-5、12、-4、11、-3，则输出ans的值为（　　）。
A．16 B．19 C．23 D．25
9．（2020·浙江模拟）有如下程序段：
For i = 1 To 2
For j = i + 1 To 6
If a(i) > a(j) Then
t = a(j): a(j) = a(i): a(i) = t
End If
Next j
Next i
数组元素 a(1)到 a(6)的值依次为“3，4，2，1，5，0”，经过该程序段“加工”后，数组元素 a(1)到 a(6)的值依次为（　　）。
A．0，1，4，3，5，2 B．0，1，2，3，4，5
C．0，1，2，4，5，3 D．5，4，2，1，3，0
10．（2020·浙江模拟）有如下 VB 程序段：
Function t(x As Integer) As Long
If x = 1 Then t = 1
ElseIf x = 2 Then
t = 2
Else
t = t(x - 1) + t(x - 2)
End If
End Function
Text1.Text = Str(t(8))
执行该程序段后，文本框 Text1 中显示的内容是（　　）。
A．21 B．34 C．55 D．89
11．（2020·浙江模拟）有如下 VB 程序段：
s1 = "Shui"
For i = 1 To Len(s1)
ch = Mid(s1, i, 1)
If ch >= "a" And ch <= "z" Then
ch = Chr((Asc(ch) - Asc("a") + 23) Mod 26 + Asc("A"))
End If
s2 = ch + s2
Next i
Label1.Caption = s2
执行该程序段后，标签Label1中显示的内容是（　　）。
A．FRES B．Serf C．freS D．SERF
12．（2020·浙江模拟）某对分查找算法的 VB 程序段如下:
n = 0: i = 1: j = 6
Key = Val(Text1.Text)
Do While i <= j
m = (i + j) \ 2
n = n + 1
If Key = d(m) Then Exit Do
If Key < d(m) Then j = m - 1 Else i = m + 1
Loop
If i <= j Then s = m - n Else s = n
数组d(1)到d(6)的值依次为“4，6，9，13，20，25”，输入某个Key值后，运行该程序段后，变量s结果为3，则输入key的值不可能是（　　）。
A．25 B．20 C．5 D．3
二、非选择题（本大题共4小题，4+8+7+7，共26分）
13．（2020·浙江模拟）小明收集了2020年6月3日的全球新冠肺炎疫情最新动态的数据，并将其中累计确诊人数超过5万的国家汇总成了一张表格，用Excel软件进行数据处理，如图a所示。
图 a
请回答下列问题：
（1）如图a所示，“排名”列的数据有Rank函数对“死亡率”列数据进行降序排名。小明通过H3单元格的公式对区域H4:H23进行自动填充，则H23单元格中显示结果是　 　 （单选，填字母： A . # VALUE! / B . 17/ C . #DIV/0! / D . 1）。
（2）若要正确计算“排名”列的数据，可对H3单元格中的公式进行修改，对H4:H23进行自动填充，则H3单元格中的是　 　。
（3）小明在完成计算后，若要对欧洲地区的国家以“累计确诊人数”为关键字进行降序排序，则排序时选择的数据区域是　 　 。
（4）根据图a中的数据制作的图表如图b所示，创建该图表的数据区域是　 　。
图 b
14．（2020·浙江模拟）小齐制作主题为“端午节”的多媒体作品。她首先使用Photoshop制作了一张背景图片，然后用Flash制作动画。请回答下列问题：
（1）使用Photoshop软件编辑“端午.psd”，如图a所示，在当前状态下，下列操作可行的是
　 　（多选，填字母: A . 更改“背景”图层的不透明度/B . 可以用“自由变化”命令 改变“五月五日”图层的文字大小/C . 直接给“小粽子”图层添加滤镜效果/D . 将“龙舟”图层移至“背景”图层下方）。
图a
（2）在制作作品前，小齐规划该作品是面向小学生演示播放，这属于　 　（单选，填字 母：A .应用需求分析/B .创作需求分析/C
.系统结构设计/D .媒体元素分解）。
（3）使用Flash软件编辑“端午节.fla”，“端午”场景的部分制作界面如图b所示。
图b
将图中“端午佳节”图层第1帧到第19帧实现了“端午佳节”实例从舞台外进入舞台的动画，则该动画类型是　 　。（单选， 填字母：A .形状补间动画/B . 动画补间动画
（4）“背景”图层的内容到最后一帧才出现，若要使“背景”图层的图片一开始就出现在舞台上，在不影响其他动画效果的前提下，则对“背景”图层进行的操作是　 　。
（5）测试影片时，单击“粽享美味”按钮，实现在浏览器中打开域名为“wufangzhai.” 网页的内容，则“粽享美味”按钮的动作脚本为：　 　。
15．（2020·浙江模拟）小章想将a数组中n个元素排列成合唱队列形态，具体方法如下：
①如果n是奇数，选出所有数据中最大元素，将其放在a数组正中间位置。
②从剩下待处理数据中选出最大的两个元素，同时将较大元素放在已处理数据段的右侧，较小元素放在已处理数据段的左侧。
③反复执行操作②，直到所有数据处理完毕。按上述要求，小章编写一个VB程序，功能如下：
在文本框Text1中输入n，单击“生成”按钮Command1，并在文本框List1中显示排序前数据；单击“排序”按钮Command2，在列表框List2中输出处理后的结果。程序运行界面如下图所示。
（1）下列哪个选项，可以将窗体Form1标题改为：“生成合唱队列”　 　 （单选，填字 母：A . Form．Caption=“生成合唱队列”/ B . Label1．Caption =“生成合唱队列”/ C . Form1．Caption=“生成合唱队列”）
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Dim a(1 To 100) As Integer
Dim n As Integer
Private Sub Command1_Click()
'在文本框Text1中输入n(n<=100)
'排序前数据存储在数组a中，并在文本框List1中显示
'代码略
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, t As Integer
Dim pMax1 As Integer, pMax2 As Integer
pMax1 = n \ 2 + 1: pMax2 = n \ 2
If 　 　
Then
For i = 1 To n
If a(i) > a(pMax1) Then t = a(pMax1): a(pMax1) = a(i): a(i) = t
Next i
pMax1 = pMax1 + 1
End If
For i = 1 To n \ 2
If 　 　 Then t = a(pMax1): a(pMax1) = a(pMax2): a(pMax2) = t
j = pMax1 Mod n + 1
Do While j <> pMax2
If a(j) > a(pMax1) Then
t = a(pMax1): a(pMax1) = a(j): a(j) = t
t = a(pMax2): a(pMax2)= a(j): a(j) = t
t = a(pMax2): a(pMax2) = a(j): a(j) = t
End If
　 　Loop
pMax1 = pMax1 + 1
pMax2 = pMax2 – 1
Next i
For i = 1 To n
List2.AddItem Str(a(i))
Next i
End Sub
（3）程序加框处代码有错，请改正。
16．（2020·浙江模拟）为促进学生学习中互帮互助，每次考后章老师都会按成绩重新编排机房上课位置，编排要求如下：
①按分数从高到低排序。若分数相同，则按学号进行升序排序。
②以班级为单位，排出从1号开始的机房座位表。章老师编写了一个位置编排功能的VB程序，在文本框Text1中输入班级名称，单击“读数据库”按钮Command1后，从数据库读取数据并显示在列表框List1中；单击“编排”按钮Command2，在列表框List2中输出学号、姓名、成绩和位置信息。运行界面如下图所示。
实现以上功能的 VB 程序如下，请回答下列问题：
（1）分析程序，可知数据库的文件名为　 　。
（2）请在划线处填入合适的代码。
Dim n As Integer
Dim xh(1 To 40) As Integer, xm(1 To 40) As String, cj(1 To 40) As Integer
Private Sub Command1_Click()
'本过程在文本框 Text1 中输入班级名称，从数据库中读取指定班级的学号、姓名和成绩的'数据分别存储在数组 xh,xm 和 cj 中
Dim conn As New ADODB.Connection
conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source="
+ App.Path + "\js.accdb"
conn.Open
Dim rs As New ADODB.Recordset rs.ActiveConnection = conn
rs.Open "select * from 技术"
'本过程的其他语句略
End Sub
Private Sub Command2_Click()
Dim wz(1 To 40) As Integer
Dim i As Integer, j As Integer
List2.AddItem "学号" & " " & "姓名" & " " & "成绩" & " " & "位置"
For i = 1 To n
①
Next i
For i = 1 To n
For j = 1 To n
If ② Then wz(i) = wz(i) + 1
End If
Next j
List2.AddItem adj(Str(xh(i))) + adj(xm(i)) + adj(Str(cj(i))) + adj(Str(wz(i)))
Next i
End Sub
Function adj(c As String) As String '固定输出5个字符长度
Dim i As Integer
③
For i = 1 To 5 - Len(c)
adj = adj + " "
Next i
End Function
①　 　②　 　③　 　
答案解析部分
1．【答案】D
【知识点】信息及其特征
【解析】【解答】选项A：信息具有依附性所以信息离不开载体，但信息具有共享性和传递性 可以脱离它所反映的事物被存储、保存和传播 ，本项对。选项B：信息具有传递性可以由一种载体传给另一种载体即载体的形状发生变化，本项对。选项C：信息具有共享性，信息的价值不会因为重复使用而产生损耗，本项对。选硕D：信息具有时效性，信息的价值会随着时间的变化而变化，可以将过去的信息进行分类整理后产生新的价值，本项错。故答案选D。
【分析】本题考查的是信息的价值。信息有五个基本特征和五个一般特征。基本特征：普遍性、依附性、传递性、价值性、时效性；一般特征：共享性、真伪性、不完全性、价值相对性、可处理性。
2．【答案】B
【知识点】人工智能的应用
【解析】【解答】选项A： 打开智能手环，查看晚上的睡眠质量属于综合数据分析技术不属于人工智能技术。选项B：通过刷脸在路边自动售货机上买牛奶属于人脸识别技术，人脸识别技术属于人工智能技术。选项C：自动测温仪检测温度属于红外线感应技术，不属于人工智能技术。选项D：3D打印技术不属于人工智能技术。故答案选B。
【分析】本题考查的是人工智能技术的范畴。人工智能是研究、开发用于模拟、延伸和扩展人的智能的理论、方法、技术及应用系统的一门新的技术科学。人工智能包括机器人、语音识别、图像识别、生物识别、自然语言处理和专家系统等。
3．【答案】C
【知识点】数据表、字段、记录的概念；数据表、字段、记录的编辑
【解析】【解答】选项A：由图可知“出生日期”字段为“日期/时间型”可以输入日期字段值，本项错。选项B：由图知“ID”为右对齐，而文本类型为左对齐，本项错。选项C：由图知“性别”字段为“是/否"类型，”是/否“类型转为文本型后自动转为”Yes“或No”，本项对。选项D：Access与Excel不同记录删除后不能恢复，本项错。故答案选C。
【分析】本题考查的是Access的字段与记录的概念及编辑。Access允许九种数据类型：文本、备注、数值、日期/时间、货币、自动编号、是/否、OLE对象、超级链接、查询向导。在表的设计视图中，每一个字段都有设计类型。日期/时间：这种类型是用来存储日期、时间或日期时间一起的，每个日期/时间字段需要8个字节来存储空间。文本：这种类型允许最大255个字符或数字，Access默认的大小是50个字符，而且系统只保存输入到字段中的字符，而不保存文本字段中未用位置上的空字符。可以设置“字段大小”属性控制可输入的最大字符长度。是/否：这种字段是针对于某一字段中只包含两个不同的可选值而设立的字段，占用一个字节的存储空间。通过是/否数据类型的格式特性，用户可以对是/否字段进行选择。该类型转为文本后，其值为“Yes/No”，转为数值型后为-1或0，导出为Excel后为True或False。Access与Excel不同记录删除后不能恢复。
4．【答案】C
【知识点】信息的编码；进制及数制转换
【解析】【解答】选项A：由图可知本题共有“1”、“1”、空格、“！”四个ASCII字符，本项错。选项B：输入法是外码，在内存中同一汉字的内码是相同的，本项错。选项C：由图知，字符“高”的内码为B8 DF，转为二进制为1011 1000 1101 1111，本项对。选项D：由图知“！”的内码为“21”。故答案选C。
【分析】本题考查的是中英文内码的知识一个中文或中文字符在内存中占二个字节、4个十六进制数、16位二进制数，而一个英文占有一个字节、2个十六进制数、8位二进制数。十六进制转为二进制时将每位十六进制数转为四位二进制数。若某个字节十六进制数的第1位是0-7的数字，则该字节表示的是ASCⅡ字符，且占一个字节；某个字节的第1位是A-F的字母，则表示的是汉字等内码，需两个字节。
5．【答案】D
【知识点】声音素材的基本处理；声音、图像、视频编码
【解析】【解答】选项A：由于选中的为单声道，所以执行“删除”命令后原音频文件只是将选中的部分设置为静音，故此时原音频文件存储容量不变，再执行“插入静音”操作则使音频文件的时长变长，存储容量变大，本项错。选项B：由音频文件的存储容量计算公式知该音频文件的存储容量为：（44100*16*2*60）/8=10584000B=10335.9375KB=10.09368896484375MB，本项错。选项C：由图可知选中部分为原来单声道的1/4，执行“剪裁”命令后，音频文件为原来的1/8而不是1/4。本项错。选项D：由图可知选中部分为左声道，执行“选定部分另存为”命令后则生成的文件为单声道格式，本项对。故答案选D。
【分析】本题考查的是音频文件的删除、剪裁、另存为操作以主音频文件存储容量的计算公式。剪裁是保留选中部分而删除其余部分的操作，但如果是双声道只选中了一个声道则是将其它部分设置为静音而不是删除，如选择了两个声道则会彻底删除未选中的音频从而减少时长。静音是将选中部分设置为静音但并没有减少时长，而删除看选中的声道数，如只选一个声道则其操作相当于静音操作不会减少时长，如选择了两个声道则会彻底删除选中的音频从而减少时长。插入静音是在选中部分的后面插入一段静音从而造成音频文件变长而增加存储容量。音频文件存储容量=(采样频率× 量化位数× 声道数× 时间) / 8（字节）或音频文件存储容量=（播放速率*音频文件时长）/8（字节）。
6．【答案】C
【知识点】声音、图像、视频编码
【解析】【解答】16色就是二进制的位数能表示16个值，故二进制位数为4位，由图像文件的存储容量计算公式知，该图像文件的存储容量为：1366*768*（4/8)=524544B=512.25KB，现在压缩为51KB，其压缩比大约为10:1。故答案选C。
【分析】本题考查的是图像文件存储容量的计算公式。图像文件存储容量=水平像素×垂直像素×每个像素所需位数／8 （字节）。
7．【答案】A
【知识点】运算符、基本运算与表达式
【解析】【解答】选项A：n\m=1表求n除以m的商为1，即两者相差不足2倍。选项B： n Mod m = 0 表示n除m的余数为0，即n能被m整除。选项C： n / m = Int(n / m) 表示n除以m的商与n除以m的商取整除后相同，即n除以m为一个整数表示n能被m整除。选项D： n \ m = n / m 表示n除以m后的整数商与n除m的商相同，与选项C意义相同意为n能整除以m。故答案选A。
【分析】本题考查的是判断一个数能被另一个数整除的方法。判断一个数是否能被另一个数整除可以从两者相除所得到的余数为0上来判断即 n Mod m = 0 ，也可以从两者的商上来判断: n / m = Int(n / m) 或 n \ m = n / m 。
8．【答案】B
【知识点】常量、变量及变量的赋值；流程图识读
【解析】【解答】由流程图做a、s和ans值表如下：
　 循环前 第一次循环后 第二次循环后 第三次循环后 第四次循环后 第五次循环后 第六次循环后
i 1 2 3 4 5 6 7
a 　 2 -5 12 -4 11 -3
s 0 2 0 12 8 19 16
ans 0 2 2 12 12 19 19
最后ans的值为19。故答案选B。
【分析】本题考查的是对流程图的识读。由流程图可知，本题先将i、s、ans的值初始化为1、0和0，然后由循环变量i来控制循环6次，在每次循环中根据输入a的值判断s+a的值是否小于0，如果小于0则将s值设为0，否则再判断s+a值是否大于ans的值，如果大于则将s值增加a后重新赋给a同时将s值赋给ans，否则只将s值增a，循环6次后输出ans值。
9．【答案】A
【知识点】排序算法及程序实现
【解析】【解答】本题程序分析如下：
For i = 1 To 2 ‘使用i来控制外层循环，i代表数据的比较轮数，本题只进行两轮的比较
For j = i + 1 To 6 ‘使用j来控制内层循环，j代表每轮的比较次数，j由小到到代表每轮从左向右进行比较
If a(i) > a(j) Then ‘ 如果每轮最左侧元素比其后的元素大时进行如下处理
t = a(j): a(j) = a(i): a(i) = t ‘借助第三变量t交换两个变量的值
End If ‘结束条件判断
Next j ‘结束内层循环
Next i ‘结束外层循环
由以上程序分析知该排序方法为选择排序法。第一次循环后数组的值为：0，4，3，2，5，1。第二次循环后数组的值为：0，1，4，3，5，2。故本题答案选A。
【分析】本题考查的是选择排序法。选择排序法的基本思想：第1轮，在待排序记录r[1]~r[n]中选出最小的记录，将它与r[1]交换；第2轮，在待排序记录r[2]~r[n]中选出最小的记录，将它与r[2]交换；以此类推，第i轮在待排序记录r[i]~r[n]中选出最小的记录，将它与r[i]交换，使有序序列不断增长直到全部排序完毕。
10．【答案】B
【知识点】过程与自定义函数；递归算法
【解析】【解答】本题程序分析如下：
Function t(x As Integer) As Long ‘自定义函数t的开始，t为一个长整型，其参数x为整型
If x = 1 Then t = 1 ‘如果参数x的值为1则函数值t为1
ElseIf x = 2 Then ‘否则如果x的值为2则进行如下处理
t = 2 ‘t值为2
Else ‘否则（即t值既不是1也不是2时）进行如下处理
t = t(x - 1) + t(x - 2) ‘使用递归算法求t值
End If ‘结束条件判断
End Function ‘结束函数过程
Text1.Text = Str(t(8)) ‘在文本框1中输出参数为8的自定义函数t的值
由以是算法知t(8)=t(7)+t(6)=t（6）+t（5）+t（5）+t（4）=t（5）+t（4）+t（4）+t（3）+t（4）+t（3）+t（3）+t（2）=t（4）+t（3）+t（3）+t（2）+t（3）+t（2）+t（2）+t（1）+t（3）+t（2）+t（2）+t（1）+t（2）+t（1）+2=34，故本题答案选B。
【分析】本题考查的是递归算法。递归算法是指一种通过重复将问题分解为同类的子问题而解决问题的方法。理论可以证明递归的作用可以完全取代循环，因此在很多函数编程语言中习惯用递归来实现循环。
11．【答案】A
【知识点】运算符、基本运算与表达式
【解析】【解答】本题程序分析如下：
s1 = "Shui" ‘将字符Shui赋给变量s1
For i = 1 To Len(s1) ‘使用i来控制循环，i的初值为1，终值为字符串变量s1的长度，步长为1
ch = Mid(s1, i, 1) ‘按i值从字符串s1中中取一个字符并赋给变量ch
If ch >= "a" And ch <= "z" Then ‘如果ch为小写字母则进行如下处理
ch = Chr((Asc(ch) - Asc("a") + 23) Mod 26 + Asc("A")) ‘将小写字母向后平移23位（向前平移3位）后转为大写字母
End If ‘结束条件判断
s2 = ch + s2 ‘将得到的字母存储到字符串变量s2的左侧
Next i ‘结束条件判断
Label1.Caption = s2 ‘使用标签1输出新字符串s2
本题相当于组字符串进行加密，加密算法为大写字母不变，小写字母平移23位后转为大写字母并将整个字符串倒过来显示，故原串为“Shui”转为大写字母后为“SERF”，倒过来显示为“FRES”。故本题答案选A。
【分析】本题考查的是字母的加密算法。一般字母加密算法都是在字母表的基础上通过平移n个字母或将字母逆向对应，然后再正常显示或倒序显示，在转换时使用asc函数将字符转为数值，再进行数值运算，将结果再使用chr转为字符型即可实现字符的平移。
12．【答案】D
【知识点】查找算法及程序实现
【解析】【解答】本题程序分析如下：
n = 0: i = 1: j = 6 ‘初始化变量n、i、j的值为0、1、6，其中n代表查找次数，i为要查找数组下标的下限，j为上限
Key = Val(Text1.Text) ‘将从文本框1中输入的要查找的值转为数值型并赋给变量key
Do While i <= j ‘如果i值小于j值时进行循环
m = (i + j) \ 2 ‘求要查找数组的中值下标并赋给变量m
n = n + 1 ‘将n值增1
If Key = d(m) Then Exit Do ‘如果key值等于中值元素的值则退出循环
If Key < d(m) Then j = m - 1 Else i = m + 1 ‘如果要查找的值小于中值时将上限值设为中值下标小1否则将下限值设为中值下标多1
Loop ‘结束循环
If i <= j Then s = m - n Else s = n ‘如果i值小于j值时将m-n值赋给s否则将n值赋给s。
选项A：key值为25时，查找3次，m=6，n=3且i=j=6，故s=6-3=3。选项B：当key值等于20时，m=5，n=2，此时i=5，j=7，故s=5-2=3。选项C：当key值等于5时，i=3，j=2，m=2，n=3，此时i>j故s=n=3。选项D：当key值等于3时，i=1，j=-1，m=1，n=4，s=n=4。故答案选D。
【分析】本题考查的是对分法查找数据的方法，对分法查找过程是先将一个数列放于一个有序数组中，然后比较中间数组元素的值与要查找的值，或中间数组的值比要查找的值大，则在前半个数组中查找，若中间数组的值比要查找的值小则在后半个数组中查找。查找方法仍是比较中间数组元素的值和要查找的值。以此类推直到查到或下限大于了上限（没查找）为止。
13．【答案】（1）D
（2）=RANK(G3,$G$3:$G$23) 或 =RANK(G3,G$3:G$23) 或其它等价答案
（3）B11:H17或B11:G17
（4）B2:C2,B21:C23,F2,F21:F23
【知识点】表格数据的基本操作；表格数据的处理与计算；数据分析
【解析】【解答】（1）由图a中的H3公式“=Rank（G3，G3：G23）”知当公式复制到H23时，公式变为=Rank（G23，G23：G43），而从G24到G43中没有数据默认为0，故G23数据最大排名第一，故本题答案选D。
（2）由1小题分知，由于排名参考区域为相对引用，造成该区域会随着公式单元格的变化而变化，若想正确排名该区域应使用绝对引用或相对引用地址，故本小题答案应填写： =RANK(G3,$G$3:$G$23) 或 =RANK(G3,G$3:G$23) 或其它等价答案 。
（3）对欧洲国家进行排序则需选中欧洲国家所在的区域，注意不能选“欧洲”所在的这个大单元格，因为它是一个合并单元格，故本小题答案填写： B11:H17或B11:G17 。
（4）由图b可知横坐标为美洲三个国家的名称所在区域为B21到B23，而纵坐标为新增确诊人数和死亡人数区域在C21到C23以及F21到F23，加上有图例故包含B2、C2和F2三个单元格，故本小题答案填写： B2:C2,B21:C23,F2,F21:F23 。
【分析】本题考查的是Excel的公式的填写、单元格地址的引用、排序数据区域的选择以及图表数据区域的选择。Excel的公式要根据实际情况选择需要的函数以及单元格数据区域，另外还要根据公式中的单元格是否变化来选择单元格引用为相对引用还是绝对引用或混合引用；在选择排序关键字时要根据某列数据是否有序（长序或降序）来确定主关键字，如果主关键字相同的，再根据相同记录哪列有序再确定次要关键字，依次类推来找出第三关键字、第四关键字等，注意选择排序区域时不要选合并单元格区域；选择图表数据区域时要先看图表类型，如果图表为柱形图、折线图、条形图则看其横坐标、纵坐标数据来确定图表的数据区域，如果为饼图、面积图、圆环图等则根据其序列名称来确定数据区域。
14．【答案】（1）BC
（2）A
（3）B
（4）将“背景”图层第60帧内容复制到第1帧或其它等价答案
（5）on(press){getURL(“http://wufangzhai.”);} 或 on(release){getURL(“http://wufangzhai.”);}
【知识点】多媒体作品的规划和设计；图层及图层的基本操作；动画的类型；常用影片控制函数的应用
【解析】【解答】（1）选项A：背景图层在所有图层的最下方不能修改透明度，本项错。选项B：文字图层可以使用“自由变化”工具来改变该图层对象的大小，本项对。选项C：尽管“小粽子”图层为链接图层，但在复制、移动图层时起作用，在编辑图像时可以作为一个独立图层来处理所以可以单独给该图层添加滤镜，本项对。选项D：背景图层在所有图层的最下方，不能 将“龙舟”图层移至“背景”图层下方 ，本项错。故本小题答案选择BC。
（2） 在制作作品前，小齐规划该作品是面向小学生演示播放 ，这是用户情况分析，该分析属于应用需求分析。故本小题答案选A。
（3）由图b可知“端午佳节”图层的第1帧到第19帧为紫色底纹加一黑色箭头属于动画补间，故本小题答案选B。
（4）由图b可知“背景"图层的第一帧为空白关键帧所以从第一帧到第59帧不显示背景，若想一直显示背景则需将第60帧的图像复制到第上帧，故本小题答案填写： 将“背景”图层第60帧内容复制到第1帧或其它等价答案 。
（5） 测试影片时，单击“粽享美味”按钮，实现在浏览器中打开域名为“wufangzhai.” 网页的内容 ，其实质为按下或释放”粽享美味“按钮时实现网页的跳转，故本小题答案应填写： on(press){getURL(“http://wufangzhai.”);} 或 on(release){getURL(“http://wufangzhai.”);} 。
【分析】本题考查的是多媒体作品的应用需求分析、文字图层和背景图层的特点以及Flash的动画补间类型、空白关键帧的作用和动作脚本。应用需求分析包括：1、社会需求分析；2、作品效益分析；3、用户情况分析三部分内容。 背景图层不可以调节图层顺序，永远在最下边，不可以调节不透明度和加图层样式，以及蒙版。可以使用画笔，渐变，滤镜，图章和修饰工具。通过文字工具来创建文字图层，文字图层可以使用文字工具来调整文字图层的字体、文字颜色等，不能使用油漆桶工具修改文字图层的文字颜色，文字层不可以进行滤镜，但可以使用图层样式等的操作。补间动画有二种：动画补间和形状补间。形状补间是由一个物体到另一个物体间的变化过程，像由三角形变成四方形等。时间轴上形状补间是淡绿色底加一个黑色箭头组成的。动画补间是由一个形态到另一个形态的变化过程，像移动位置，改变角度等。时间轴上动画补间是淡紫色底加一个黑色箭头组成的。多媒体作品加入动作脚本可以增强多媒体作品的人机交互功能。
15．【答案】（1）C
（2）n Mod 2 = 1 或 n mod 2 <> 0；a(pMax1) < a(pMax2)；j = j Mod n + 1
（3）ElseIf a(j) > a(pMax2) Then
【知识点】常量、变量及变量的赋值；排序算法及程序实现
【解析】【解答】（1）选项A中form为类名而不是对象名；选项B是标签1的标题属性值设为”生产合唱队列“；选项C是将窗体form1的标题设置为 “生成合唱队列” ，故本小题答案选C。
（2）本题程序分析如下：
Dim a(1 To 100) As Integer '定义整型数组a，a用于存储队员的排序值
Dim n As Integer '定义整型变量n，n用于存储队员人数
Private Sub Command1_Click() '命令按钮1单击事件过程开始
'在文本框Text1中输入n(n<=100)
'排序前数据存储在数组a中，并在文本框List1中显示
'代码略
End Sub '命令按钮1单击事件过程结束
Private Sub Command2_Click() '命令按钮2单击事件过程开始
Dim i As Integer, j As Integer, t As Integer '定义整型变量i、j和t
Dim pMax1 As Integer, pMax2 As Integer '定义整型变量pmax1、pmax2，这两个变量存储第二次开始的最大值及次大值
pMax1 = n \ 2 + 1: pMax2 = n \ 2 '假设最大值在中间元素的右侧，次大元素为中间元素
If '如果n值为奇数时则进行如下处理，故本处答案应填写： n Mod 2 = 1 或 n mod 2 <> 0
Then
For i = 1 To n '使用i来控制循环
If a(i) > a(pMax1) Then t = a(pMax1): a(pMax1) = a(i): a(i) = t '如果第i个元素大于最大元素值（由pmax1批示的元素）时借助第三变量t交换两个元素的值，保证中间元素值最大
Next i '结束循环
pMax1 = pMax1 + 1 '将pmax1值增1，即设中间元素后面的值为最大元素
End If '结束条件判断
For i = 1 To n \ 2 '使用i来控制循环，i的初值为1，终值为队员个数的一半
If Then t = a(pMax1): a(pMax1) = a(pMax2): a(pMax2) = t '如果最大元素值小于次大元素值时借助第三变量将两个值交换，故本处答案应填写： a(pMax1) < a(pMax2)
j = pMax1 Mod n + 1 '将j值设为最大元素值下标除以n的余数多1
Do While j <> pMax2 '在j值不等于第二元素值进行如下处理
If a(j) > a(pMax1) Then '如果第j个元素大于最大元素值时进行如下处理
t = a(pMax1): a(pMax1) = a(j): a(j) = t '借助第三变量t交换第j个元素和假设最大元素值，使本轮pmax1指向本轮最大的元素
t = a(pMax2): a(pMax2)= a(j): a(j) = t '再将第j个元素值与次大元素值进行交换
'否则如果第j个元素值比最大元素值小比次大元素值大时进行如下处理，故本处将else改为： ElseIf a(j) > a(pMax2) Then
t = a(pMax2): a(pMax2) = a(j): a(j) = t '借助第三变量t交换第j个元素和假设本轮次大元素值，使本轮pmax2指向本轮次大的元素
End If '结束条件判断
'将j值除以n值的余数进行增1，故本处答案应填写： j = j Mod n + 1
Loop
pMax1 = pMax1 + 1 '将指向最大元素值的元素增1即指针向右移动
pMax2 = pMax2 – 1 '将指向次大元素值的元素减少1即指针向左移动
Next i '结束条件判断
For i = 1 To n '使用i来控制循环
List2.AddItem Str(a(i)) '在列表框2中输出排好序的元素值
Next i '结束循环
End Sub '结束命令按钮2单击事件过程
由以上分析知：1处为如果n值为奇数时则进行如下处理，故本处答案应填写： n Mod 2 = 1 或 n mod 2 <> 0。2处为如果最大元素值小于次大元素值时借助第三变量将两个值交换，故本处答案应填写： a(pMax1) < a(pMax2)。3处为将j值除以n值的余数进行增1，故本处答案应填写： j = j Mod n + 1。
（3）加框处为否则如果第j个元素值比最大元素值小比次大元素值大时进行如下处理，故本处将else改为： ElseIf a(j) > a(pMax2) Then。
【分析】本题考查的从中间到两边由大到小排序的算法，这种算法其实质为选择排序法。选择排序法的基本思想：第1轮，在待排序记录r[1]~r[n]中选出最小的记录，将它与r[1]交换；第2轮，在待排序记录r[2]~r[n]中选出最小的记录，将它与r[2]交换；以此类推，第i轮在待排序记录r[i]~r[n]中选出最小的记录，将它与r[i]交换，使有序序列不断增长直到全部排序完毕。
16．【答案】（1）js.accdb
（2）wz(i) = 1；cj(i) < cj(j) Or cj(i) = cj(j) And xh(i) > xh(j) 或 cj(i) < cj(j) Or cj(i) = cj(j) And i > j；adj = c
【知识点】排序算法及程序实现；程序访问数据库
【解析】【解答】（1）由语句”
conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source="
+ App.Path + "\js.accdb"“知其数据源为js.accdb。故本小题答案填写： js.accdb 。
（2）本题程序分析如下：
Dim n As Integer '定义整型变量n，n代表学生个数
Dim xh(1 To 40) As Integer, xm(1 To 40) As String, cj(1 To 40) As Integer '定义整整型数组xh，字符型数据xm，整型数组cj，其中xh存储学生的学号、xm存储学生的姓名，cj存储学生的成绩
Private Sub Command1_Click() '命令按钮1单击事件过程开始
'本过程在文本框 Text1 中输入班级名称，从数据库中读取指定班级的学号、姓名和成绩的'数据分别存储在数组 xh,xm 和 cj 中
Dim conn As New ADODB.Connection '定义数据库连接对象conn
conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source="
+ App.Path + "\js.accdb" ' 设置连接字符串，使用数据连接对象连接数据库js.accdb
conn.Open '进行对象连接
Dim rs As New ADODB.Recordset '定义一个记录查询对象rs
rs.ActiveConnection = conn '将记录查询对象rs与数据连接对象进行连接
rs.Open "select * from 技术" '在“技术”数据表查询所有记录
'本过程的其他语句略
End Sub '结束事件过程
Private Sub Command2_Click() '命令按钮2单击事件过程开始
Dim wz(1 To 40) As Integer '定义整型数组wz，该数据用于存储学生的上机位置
Dim i As Integer, j As Integer '定义整型变量i和j
List2.AddItem "学号" & " " & "姓名" & " " & "成绩" & " " & "位置" '在列表框2中输出表头
For i = 1 To n '使用i来控制循环，i的初值为1，终值为n
① '先给数组wz每个元素赋值为1，故本处答案填写： wz(i) = 1
Next i '结束循环
For i = 1 To n '使用i来控制外层循环，i代表需要排名（排位置）的学生所在的元素的下标
For j = 1 To n '使用j来控制内层循环，j从1到n代表全班，将每个学生成绩者进行比较
If ② Then wz(i) = wz(i) + 1 '如果需排名的第i个学生与其他学生（第j个学生）的成绩少时则将所占位置（即名次）向后排1位（即将名次加上1),故本处答案应填写： cj(i) < cj(j) Or cj(i) = cj(j) And xh(i) > xh(j) 或 cj(i) < cj(j) Or cj(i) = cj(j) And i > j
End If '结束条件判断
Next j '结束内层循环
List2.AddItem adj(Str(xh(i))) + adj(xm(i)) + adj(Str(cj(i))) + adj(Str(wz(i))) '在列表框2中输出一个学生的学号、姓名、成绩和位置
Next i '结束外层循环
End Sub '结束事件过程
Function adj(c As String) As String '自定义函数adj开始，该函数用于固定输出5个字符长度，其值为字符串，参数c的类型也为字符串
Dim i As Integer '定义整型变量i
③ '将参数赋给函数，故本处答案应填写： adj = c
For i = 1 To 5 - Len(c) '使用i来控制循环，i的初值为1终值为5减去参数c的长度值，步长为1
adj = adj + " " '在字符串的右侧加上空格
Next i '结束条件判断
End Function '结束自定义函数过程
由以上程序分析知 ① 处为先给数组wz每个元素赋值为1，故本处答案填写： wz(i) = 1 。 ② 处为如果需排名的第i个学生与其他学生（第j个学生）的成绩少时则将所占位置（即名次）向后排1位（即将名次加上1),故本处答案应填写： cj(i) < cj(j) Or cj(i) = cj(j) And xh(i) > xh(j) 或 cj(i) < cj(j) Or cj(i) = cj(j) And i > j。③ 处为将参数赋给函数，故本处答案应填写： adj = c。
【分析】本题考查的是使用程序在数据库中查询数据、排名算法以及自定义函数。本题的排名算法较简单就是将一个学生的成绩和全班所有学生的成绩进行比较如果比某个同学的成绩少则将排名向后排1位，直到全班所有学生比较排名完为止。在数据库中进行查找时首先连接数据库然后将连接对象和记录集进和关联，最后使用查找字符串在表中进行查找。自定义函数使用function来定义，使用同标准函数。
1 / 1浙江省“山水联盟”2020届高三信息技术高考模拟考试卷
一、选择题（本大题共12小题，每小题2分，共24分，每小题列出的四个备选项中只有一个是符合题目要求的。）
1．（2020·浙江模拟）下列关于信息的说法，不正确的是（　　）。
A．信息必须依附于载体，但可以脱离它所反映的事物被存储、保存和传播
B．信息可以从一种形态转换为另一种形态
C．信息在传递和共享过程中可以重复使用，不会产生损耗
D．信息具有时效性，过期的信息没有任何价值
【答案】D
【知识点】信息及其特征
【解析】【解答】选项A：信息具有依附性所以信息离不开载体，但信息具有共享性和传递性 可以脱离它所反映的事物被存储、保存和传播 ，本项对。选项B：信息具有传递性可以由一种载体传给另一种载体即载体的形状发生变化，本项对。选项C：信息具有共享性，信息的价值不会因为重复使用而产生损耗，本项对。选硕D：信息具有时效性，信息的价值会随着时间的变化而变化，可以将过去的信息进行分类整理后产生新的价值，本项错。故答案选D。
【分析】本题考查的是信息的价值。信息有五个基本特征和五个一般特征。基本特征：普遍性、依附性、传递性、价值性、时效性；一般特征：共享性、真伪性、不完全性、价值相对性、可处理性。
2．（2020·浙江模拟）小齐起床后先后做了下列事情，其中体现人工智能技术应用的是（　　）。
A．打开智能手环，查看晚上的睡眠质量
B．通过刷脸在路边自动售货机买了一瓶牛奶
C．经过自动测温仪检测温度后进入校园
D．在实践课上，用3D打印机打印出卡通人物“大头儿子”
【答案】B
【知识点】人工智能的应用
【解析】【解答】选项A： 打开智能手环，查看晚上的睡眠质量属于综合数据分析技术不属于人工智能技术。选项B：通过刷脸在路边自动售货机上买牛奶属于人脸识别技术，人脸识别技术属于人工智能技术。选项C：自动测温仪检测温度属于红外线感应技术，不属于人工智能技术。选项D：3D打印技术不属于人工智能技术。故答案选B。
【分析】本题考查的是人工智能技术的范畴。人工智能是研究、开发用于模拟、延伸和扩展人的智能的理论、方法、技术及应用系统的一门新的技术科学。人工智能包括机器人、语音识别、图像识别、生物识别、自然语言处理和专家系统等。
3．（2020·浙江模拟）使用Access打开数据库，部分界面如下图所示，下列说法正确的是（　　）。
A．无法在“出生日期”字段输入“2002.5.11”字段值
B．“ID”字段类型可能是文本型
C．可以将“性别”字段类型改为“文本”类型，修改后字段值显示为“Yes”或“No”
D．删除当前记录后，该删除操作可以撤销
【答案】C
【知识点】数据表、字段、记录的概念；数据表、字段、记录的编辑
【解析】【解答】选项A：由图可知“出生日期”字段为“日期/时间型”可以输入日期字段值，本项错。选项B：由图知“ID”为右对齐，而文本类型为左对齐，本项错。选项C：由图知“性别”字段为“是/否"类型，”是/否“类型转为文本型后自动转为”Yes“或No”，本项对。选项D：Access与Excel不同记录删除后不能恢复，本项错。故答案选C。
【分析】本题考查的是Access的字段与记录的概念及编辑。Access允许九种数据类型：文本、备注、数值、日期/时间、货币、自动编号、是/否、OLE对象、超级链接、查询向导。在表的设计视图中，每一个字段都有设计类型。日期/时间：这种类型是用来存储日期、时间或日期时间一起的，每个日期/时间字段需要8个字节来存储空间。文本：这种类型允许最大255个字符或数字，Access默认的大小是50个字符，而且系统只保存输入到字段中的字符，而不保存文本字段中未用位置上的空字符。可以设置“字段大小”属性控制可输入的最大字符长度。是/否：这种字段是针对于某一字段中只包含两个不同的可选值而设立的字段，占用一个字节的存储空间。通过是/否数据类型的格式特性，用户可以对是/否字段进行选择。该类型转为文本后，其值为“Yes/No”，转为数值型后为-1或0，导出为Excel后为True或False。Access与Excel不同记录删除后不能恢复。
4．（2020·浙江模拟）使用 UltraEdit软件查看字符内码，部分界面如图所示。下列说法正确的是（　　）。
A．共有 5 个 ASCII 码字符
B．若用不同输入法输入汉字“高”，将产生不同的汉字内码
C．字符“高”的内码二进制表示为“10111000 11011111”
D．字符“!”的十六进制码是“20 21”
【答案】C
【知识点】信息的编码；进制及数制转换
【解析】【解答】选项A：由图可知本题共有“1”、“1”、空格、“！”四个ASCII字符，本项错。选项B：输入法是外码，在内存中同一汉字的内码是相同的，本项错。选项C：由图知，字符“高”的内码为B8 DF，转为二进制为1011 1000 1101 1111，本项对。选项D：由图知“！”的内码为“21”。故答案选C。
【分析】本题考查的是中英文内码的知识一个中文或中文字符在内存中占二个字节、4个十六进制数、16位二进制数，而一个英文占有一个字节、2个十六进制数、8位二进制数。十六进制转为二进制时将每位十六进制数转为四位二进制数。若某个字节十六进制数的第1位是0-7的数字，则该字节表示的是ASCⅡ字符，且占一个字节；某个字节的第1位是A-F的字母，则表示的是汉字等内码，需两个字节。
5．（2020·浙江模拟）用GoldWave软件编辑音频，部分界面如图所示。下列说法正确的（　　）。
A．先执行“删除”命令，再执行“插入15秒静音”操作，保存后音频文件存储容量与原来一样
B．当前状态下直接保存文件，音频文件存储容量约为1.3MB
C．执行“剪裁”命令后直接保存，音频文件存储容量大小为原来的1/4
D．执行“选定部分另存为”命令，按默认格式保存，生成的文件为单声道格式
【答案】D
【知识点】声音素材的基本处理；声音、图像、视频编码
【解析】【解答】选项A：由于选中的为单声道，所以执行“删除”命令后原音频文件只是将选中的部分设置为静音，故此时原音频文件存储容量不变，再执行“插入静音”操作则使音频文件的时长变长，存储容量变大，本项错。选项B：由音频文件的存储容量计算公式知该音频文件的存储容量为：（44100*16*2*60）/8=10584000B=10335.9375KB=10.09368896484375MB，本项错。选项C：由图可知选中部分为原来单声道的1/4，执行“剪裁”命令后，音频文件为原来的1/8而不是1/4。本项错。选项D：由图可知选中部分为左声道，执行“选定部分另存为”命令后则生成的文件为单声道格式，本项对。故答案选D。
【分析】本题考查的是音频文件的删除、剪裁、另存为操作以主音频文件存储容量的计算公式。剪裁是保留选中部分而删除其余部分的操作，但如果是双声道只选中了一个声道则是将其它部分设置为静音而不是删除，如选择了两个声道则会彻底删除未选中的音频从而减少时长。静音是将选中部分设置为静音但并没有减少时长，而删除看选中的声道数，如只选一个声道则其操作相当于静音操作不会减少时长，如选择了两个声道则会彻底删除选中的音频从而减少时长。插入静音是在选中部分的后面插入一段静音从而造成音频文件变长而增加存储容量。音频文件存储容量=(采样频率× 量化位数× 声道数× 时间) / 8（字节）或音频文件存储容量=（播放速率*音频文件时长）/8（字节）。
6．（2020·浙江模拟）将一个未经压缩的1366*768像素、16色的BMP图像文件，转换成JPG格式图像文件。若该JPG格式图像存储容量为51KB，则压缩比约为（　　）。
A．20:1 B．40:1 C．10:1 D．8:1
【答案】C
【知识点】声音、图像、视频编码
【解析】【解答】16色就是二进制的位数能表示16个值，故二进制位数为4位，由图像文件的存储容量计算公式知，该图像文件的存储容量为：1366*768*（4/8)=524544B=512.25KB，现在压缩为51KB，其压缩比大约为10:1。故答案选C。
【分析】本题考查的是图像文件存储容量的计算公式。图像文件存储容量=水平像素×垂直像素×每个像素所需位数／8 （字节）。
7．（2020·浙江模拟）判断整数n能否被m整除，下列哪个选项表达式功能错误的是（　　）。
A．n \ m = 1 B．n Mod m = 0
C．n / m = Int(n / m) D．n \ m = n / m
【答案】A
【知识点】运算符、基本运算与表达式
【解析】【解答】选项A：n\m=1表求n除以m的商为1，即两者相差不足2倍。选项B： n Mod m = 0 表示n除m的余数为0，即n能被m整除。选项C： n / m = Int(n / m) 表示n除以m的商与n除以m的商取整除后相同，即n除以m为一个整数表示n能被m整除。选项D： n \ m = n / m 表示n除以m后的整数商与n除m的商相同，与选项C意义相同意为n能整除以m。故答案选A。
【分析】本题考查的是判断一个数能被另一个数整除的方法。判断一个数是否能被另一个数整除可以从两者相除所得到的余数为0上来判断即 n Mod m = 0 ，也可以从两者的商上来判断: n / m = Int(n / m) 或 n \ m = n / m 。
8．（2020·浙江模拟）某算法部分流程图如图所示。执行这部分流程，依次输入2、-5、12、-4、11、-3，则输出ans的值为（　　）。
A．16 B．19 C．23 D．25
【答案】B
【知识点】常量、变量及变量的赋值；流程图识读
【解析】【解答】由流程图做a、s和ans值表如下：
　 循环前 第一次循环后 第二次循环后 第三次循环后 第四次循环后 第五次循环后 第六次循环后
i 1 2 3 4 5 6 7
a 　 2 -5 12 -4 11 -3
s 0 2 0 12 8 19 16
ans 0 2 2 12 12 19 19
最后ans的值为19。故答案选B。
【分析】本题考查的是对流程图的识读。由流程图可知，本题先将i、s、ans的值初始化为1、0和0，然后由循环变量i来控制循环6次，在每次循环中根据输入a的值判断s+a的值是否小于0，如果小于0则将s值设为0，否则再判断s+a值是否大于ans的值，如果大于则将s值增加a后重新赋给a同时将s值赋给ans，否则只将s值增a，循环6次后输出ans值。
9．（2020·浙江模拟）有如下程序段：
For i = 1 To 2
For j = i + 1 To 6
If a(i) > a(j) Then
t = a(j): a(j) = a(i): a(i) = t
End If
Next j
Next i
数组元素 a(1)到 a(6)的值依次为“3，4，2，1，5，0”，经过该程序段“加工”后，数组元素 a(1)到 a(6)的值依次为（　　）。
A．0，1，4，3，5，2 B．0，1，2，3，4，5
C．0，1，2，4，5，3 D．5，4，2，1，3，0
【答案】A
【知识点】排序算法及程序实现
【解析】【解答】本题程序分析如下：
For i = 1 To 2 ‘使用i来控制外层循环，i代表数据的比较轮数，本题只进行两轮的比较
For j = i + 1 To 6 ‘使用j来控制内层循环，j代表每轮的比较次数，j由小到到代表每轮从左向右进行比较
If a(i) > a(j) Then ‘ 如果每轮最左侧元素比其后的元素大时进行如下处理
t = a(j): a(j) = a(i): a(i) = t ‘借助第三变量t交换两个变量的值
End If ‘结束条件判断
Next j ‘结束内层循环
Next i ‘结束外层循环
由以上程序分析知该排序方法为选择排序法。第一次循环后数组的值为：0，4，3，2，5，1。第二次循环后数组的值为：0，1，4，3，5，2。故本题答案选A。
【分析】本题考查的是选择排序法。选择排序法的基本思想：第1轮，在待排序记录r[1]~r[n]中选出最小的记录，将它与r[1]交换；第2轮，在待排序记录r[2]~r[n]中选出最小的记录，将它与r[2]交换；以此类推，第i轮在待排序记录r[i]~r[n]中选出最小的记录，将它与r[i]交换，使有序序列不断增长直到全部排序完毕。
10．（2020·浙江模拟）有如下 VB 程序段：
Function t(x As Integer) As Long
If x = 1 Then t = 1
ElseIf x = 2 Then
t = 2
Else
t = t(x - 1) + t(x - 2)
End If
End Function
Text1.Text = Str(t(8))
执行该程序段后，文本框 Text1 中显示的内容是（　　）。
A．21 B．34 C．55 D．89
【答案】B
【知识点】过程与自定义函数；递归算法
【解析】【解答】本题程序分析如下：
Function t(x As Integer) As Long ‘自定义函数t的开始，t为一个长整型，其参数x为整型
If x = 1 Then t = 1 ‘如果参数x的值为1则函数值t为1
ElseIf x = 2 Then ‘否则如果x的值为2则进行如下处理
t = 2 ‘t值为2
Else ‘否则（即t值既不是1也不是2时）进行如下处理
t = t(x - 1) + t(x - 2) ‘使用递归算法求t值
End If ‘结束条件判断
End Function ‘结束函数过程
Text1.Text = Str(t(8)) ‘在文本框1中输出参数为8的自定义函数t的值
由以是算法知t(8)=t(7)+t(6)=t（6）+t（5）+t（5）+t（4）=t（5）+t（4）+t（4）+t（3）+t（4）+t（3）+t（3）+t（2）=t（4）+t（3）+t（3）+t（2）+t（3）+t（2）+t（2）+t（1）+t（3）+t（2）+t（2）+t（1）+t（2）+t（1）+2=34，故本题答案选B。
【分析】本题考查的是递归算法。递归算法是指一种通过重复将问题分解为同类的子问题而解决问题的方法。理论可以证明递归的作用可以完全取代循环，因此在很多函数编程语言中习惯用递归来实现循环。
11．（2020·浙江模拟）有如下 VB 程序段：
s1 = "Shui"
For i = 1 To Len(s1)
ch = Mid(s1, i, 1)
If ch >= "a" And ch <= "z" Then
ch = Chr((Asc(ch) - Asc("a") + 23) Mod 26 + Asc("A"))
End If
s2 = ch + s2
Next i
Label1.Caption = s2
执行该程序段后，标签Label1中显示的内容是（　　）。
A．FRES B．Serf C．freS D．SERF
【答案】A
【知识点】运算符、基本运算与表达式
【解析】【解答】本题程序分析如下：
s1 = "Shui" ‘将字符Shui赋给变量s1
For i = 1 To Len(s1) ‘使用i来控制循环，i的初值为1，终值为字符串变量s1的长度，步长为1
ch = Mid(s1, i, 1) ‘按i值从字符串s1中中取一个字符并赋给变量ch
If ch >= "a" And ch <= "z" Then ‘如果ch为小写字母则进行如下处理
ch = Chr((Asc(ch) - Asc("a") + 23) Mod 26 + Asc("A")) ‘将小写字母向后平移23位（向前平移3位）后转为大写字母
End If ‘结束条件判断
s2 = ch + s2 ‘将得到的字母存储到字符串变量s2的左侧
Next i ‘结束条件判断
Label1.Caption = s2 ‘使用标签1输出新字符串s2
本题相当于组字符串进行加密，加密算法为大写字母不变，小写字母平移23位后转为大写字母并将整个字符串倒过来显示，故原串为“Shui”转为大写字母后为“SERF”，倒过来显示为“FRES”。故本题答案选A。
【分析】本题考查的是字母的加密算法。一般字母加密算法都是在字母表的基础上通过平移n个字母或将字母逆向对应，然后再正常显示或倒序显示，在转换时使用asc函数将字符转为数值，再进行数值运算，将结果再使用chr转为字符型即可实现字符的平移。
12．（2020·浙江模拟）某对分查找算法的 VB 程序段如下:
n = 0: i = 1: j = 6
Key = Val(Text1.Text)
Do While i <= j
m = (i + j) \ 2
n = n + 1
If Key = d(m) Then Exit Do
If Key < d(m) Then j = m - 1 Else i = m + 1
Loop
If i <= j Then s = m - n Else s = n
数组d(1)到d(6)的值依次为“4，6，9，13，20，25”，输入某个Key值后，运行该程序段后，变量s结果为3，则输入key的值不可能是（　　）。
A．25 B．20 C．5 D．3
【答案】D
【知识点】查找算法及程序实现
【解析】【解答】本题程序分析如下：
n = 0: i = 1: j = 6 ‘初始化变量n、i、j的值为0、1、6，其中n代表查找次数，i为要查找数组下标的下限，j为上限
Key = Val(Text1.Text) ‘将从文本框1中输入的要查找的值转为数值型并赋给变量key
Do While i <= j ‘如果i值小于j值时进行循环
m = (i + j) \ 2 ‘求要查找数组的中值下标并赋给变量m
n = n + 1 ‘将n值增1
If Key = d(m) Then Exit Do ‘如果key值等于中值元素的值则退出循环
If Key < d(m) Then j = m - 1 Else i = m + 1 ‘如果要查找的值小于中值时将上限值设为中值下标小1否则将下限值设为中值下标多1
Loop ‘结束循环
If i <= j Then s = m - n Else s = n ‘如果i值小于j值时将m-n值赋给s否则将n值赋给s。
选项A：key值为25时，查找3次，m=6，n=3且i=j=6，故s=6-3=3。选项B：当key值等于20时，m=5，n=2，此时i=5，j=7，故s=5-2=3。选项C：当key值等于5时，i=3，j=2，m=2，n=3，此时i>j故s=n=3。选项D：当key值等于3时，i=1，j=-1，m=1，n=4，s=n=4。故答案选D。
【分析】本题考查的是对分法查找数据的方法，对分法查找过程是先将一个数列放于一个有序数组中，然后比较中间数组元素的值与要查找的值，或中间数组的值比要查找的值大，则在前半个数组中查找，若中间数组的值比要查找的值小则在后半个数组中查找。查找方法仍是比较中间数组元素的值和要查找的值。以此类推直到查到或下限大于了上限（没查找）为止。
二、非选择题（本大题共4小题，4+8+7+7，共26分）
13．（2020·浙江模拟）小明收集了2020年6月3日的全球新冠肺炎疫情最新动态的数据，并将其中累计确诊人数超过5万的国家汇总成了一张表格，用Excel软件进行数据处理，如图a所示。
图 a
请回答下列问题：
（1）如图a所示，“排名”列的数据有Rank函数对“死亡率”列数据进行降序排名。小明通过H3单元格的公式对区域H4:H23进行自动填充，则H23单元格中显示结果是　 　 （单选，填字母： A . # VALUE! / B . 17/ C . #DIV/0! / D . 1）。
（2）若要正确计算“排名”列的数据，可对H3单元格中的公式进行修改，对H4:H23进行自动填充，则H3单元格中的是　 　。
（3）小明在完成计算后，若要对欧洲地区的国家以“累计确诊人数”为关键字进行降序排序，则排序时选择的数据区域是　 　 。
（4）根据图a中的数据制作的图表如图b所示，创建该图表的数据区域是　 　。
图 b
【答案】（1）D
（2）=RANK(G3,$G$3:$G$23) 或 =RANK(G3,G$3:G$23) 或其它等价答案
（3）B11:H17或B11:G17
（4）B2:C2,B21:C23,F2,F21:F23
【知识点】表格数据的基本操作；表格数据的处理与计算；数据分析
【解析】【解答】（1）由图a中的H3公式“=Rank（G3，G3：G23）”知当公式复制到H23时，公式变为=Rank（G23，G23：G43），而从G24到G43中没有数据默认为0，故G23数据最大排名第一，故本题答案选D。
（2）由1小题分知，由于排名参考区域为相对引用，造成该区域会随着公式单元格的变化而变化，若想正确排名该区域应使用绝对引用或相对引用地址，故本小题答案应填写： =RANK(G3,$G$3:$G$23) 或 =RANK(G3,G$3:G$23) 或其它等价答案 。
（3）对欧洲国家进行排序则需选中欧洲国家所在的区域，注意不能选“欧洲”所在的这个大单元格，因为它是一个合并单元格，故本小题答案填写： B11:H17或B11:G17 。
（4）由图b可知横坐标为美洲三个国家的名称所在区域为B21到B23，而纵坐标为新增确诊人数和死亡人数区域在C21到C23以及F21到F23，加上有图例故包含B2、C2和F2三个单元格，故本小题答案填写： B2:C2,B21:C23,F2,F21:F23 。
【分析】本题考查的是Excel的公式的填写、单元格地址的引用、排序数据区域的选择以及图表数据区域的选择。Excel的公式要根据实际情况选择需要的函数以及单元格数据区域，另外还要根据公式中的单元格是否变化来选择单元格引用为相对引用还是绝对引用或混合引用；在选择排序关键字时要根据某列数据是否有序（长序或降序）来确定主关键字，如果主关键字相同的，再根据相同记录哪列有序再确定次要关键字，依次类推来找出第三关键字、第四关键字等，注意选择排序区域时不要选合并单元格区域；选择图表数据区域时要先看图表类型，如果图表为柱形图、折线图、条形图则看其横坐标、纵坐标数据来确定图表的数据区域，如果为饼图、面积图、圆环图等则根据其序列名称来确定数据区域。
14．（2020·浙江模拟）小齐制作主题为“端午节”的多媒体作品。她首先使用Photoshop制作了一张背景图片，然后用Flash制作动画。请回答下列问题：
（1）使用Photoshop软件编辑“端午.psd”，如图a所示，在当前状态下，下列操作可行的是
　 　（多选，填字母: A . 更改“背景”图层的不透明度/B . 可以用“自由变化”命令 改变“五月五日”图层的文字大小/C . 直接给“小粽子”图层添加滤镜效果/D . 将“龙舟”图层移至“背景”图层下方）。
图a
（2）在制作作品前，小齐规划该作品是面向小学生演示播放，这属于　 　（单选，填字 母：A .应用需求分析/B .创作需求分析/C
.系统结构设计/D .媒体元素分解）。
（3）使用Flash软件编辑“端午节.fla”，“端午”场景的部分制作界面如图b所示。
图b
将图中“端午佳节”图层第1帧到第19帧实现了“端午佳节”实例从舞台外进入舞台的动画，则该动画类型是　 　。（单选， 填字母：A .形状补间动画/B . 动画补间动画
（4）“背景”图层的内容到最后一帧才出现，若要使“背景”图层的图片一开始就出现在舞台上，在不影响其他动画效果的前提下，则对“背景”图层进行的操作是　 　。
（5）测试影片时，单击“粽享美味”按钮，实现在浏览器中打开域名为“wufangzhai.” 网页的内容，则“粽享美味”按钮的动作脚本为：　 　。
【答案】（1）BC
（2）A
（3）B
（4）将“背景”图层第60帧内容复制到第1帧或其它等价答案
（5）on(press){getURL(“http://wufangzhai.”);} 或 on(release){getURL(“http://wufangzhai.”);}
【知识点】多媒体作品的规划和设计；图层及图层的基本操作；动画的类型；常用影片控制函数的应用
【解析】【解答】（1）选项A：背景图层在所有图层的最下方不能修改透明度，本项错。选项B：文字图层可以使用“自由变化”工具来改变该图层对象的大小，本项对。选项C：尽管“小粽子”图层为链接图层，但在复制、移动图层时起作用，在编辑图像时可以作为一个独立图层来处理所以可以单独给该图层添加滤镜，本项对。选项D：背景图层在所有图层的最下方，不能 将“龙舟”图层移至“背景”图层下方 ，本项错。故本小题答案选择BC。
（2） 在制作作品前，小齐规划该作品是面向小学生演示播放 ，这是用户情况分析，该分析属于应用需求分析。故本小题答案选A。
（3）由图b可知“端午佳节”图层的第1帧到第19帧为紫色底纹加一黑色箭头属于动画补间，故本小题答案选B。
（4）由图b可知“背景"图层的第一帧为空白关键帧所以从第一帧到第59帧不显示背景，若想一直显示背景则需将第60帧的图像复制到第上帧，故本小题答案填写： 将“背景”图层第60帧内容复制到第1帧或其它等价答案 。
（5） 测试影片时，单击“粽享美味”按钮，实现在浏览器中打开域名为“wufangzhai.” 网页的内容 ，其实质为按下或释放”粽享美味“按钮时实现网页的跳转，故本小题答案应填写： on(press){getURL(“http://wufangzhai.”);} 或 on(release){getURL(“http://wufangzhai.”);} 。
【分析】本题考查的是多媒体作品的应用需求分析、文字图层和背景图层的特点以及Flash的动画补间类型、空白关键帧的作用和动作脚本。应用需求分析包括：1、社会需求分析；2、作品效益分析；3、用户情况分析三部分内容。 背景图层不可以调节图层顺序，永远在最下边，不可以调节不透明度和加图层样式，以及蒙版。可以使用画笔，渐变，滤镜，图章和修饰工具。通过文字工具来创建文字图层，文字图层可以使用文字工具来调整文字图层的字体、文字颜色等，不能使用油漆桶工具修改文字图层的文字颜色，文字层不可以进行滤镜，但可以使用图层样式等的操作。补间动画有二种：动画补间和形状补间。形状补间是由一个物体到另一个物体间的变化过程，像由三角形变成四方形等。时间轴上形状补间是淡绿色底加一个黑色箭头组成的。动画补间是由一个形态到另一个形态的变化过程，像移动位置，改变角度等。时间轴上动画补间是淡紫色底加一个黑色箭头组成的。多媒体作品加入动作脚本可以增强多媒体作品的人机交互功能。
15．（2020·浙江模拟）小章想将a数组中n个元素排列成合唱队列形态，具体方法如下：
①如果n是奇数，选出所有数据中最大元素，将其放在a数组正中间位置。
②从剩下待处理数据中选出最大的两个元素，同时将较大元素放在已处理数据段的右侧，较小元素放在已处理数据段的左侧。
③反复执行操作②，直到所有数据处理完毕。按上述要求，小章编写一个VB程序，功能如下：
在文本框Text1中输入n，单击“生成”按钮Command1，并在文本框List1中显示排序前数据；单击“排序”按钮Command2，在列表框List2中输出处理后的结果。程序运行界面如下图所示。
（1）下列哪个选项，可以将窗体Form1标题改为：“生成合唱队列”　 　 （单选，填字 母：A . Form．Caption=“生成合唱队列”/ B . Label1．Caption =“生成合唱队列”/ C . Form1．Caption=“生成合唱队列”）
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Dim a(1 To 100) As Integer
Dim n As Integer
Private Sub Command1_Click()
'在文本框Text1中输入n(n<=100)
'排序前数据存储在数组a中，并在文本框List1中显示
'代码略
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, t As Integer
Dim pMax1 As Integer, pMax2 As Integer
pMax1 = n \ 2 + 1: pMax2 = n \ 2
If 　 　
Then
For i = 1 To n
If a(i) > a(pMax1) Then t = a(pMax1): a(pMax1) = a(i): a(i) = t
Next i
pMax1 = pMax1 + 1
End If
For i = 1 To n \ 2
If 　 　 Then t = a(pMax1): a(pMax1) = a(pMax2): a(pMax2) = t
j = pMax1 Mod n + 1
Do While j <> pMax2
If a(j) > a(pMax1) Then
t = a(pMax1): a(pMax1) = a(j): a(j) = t
t = a(pMax2): a(pMax2)= a(j): a(j) = t
t = a(pMax2): a(pMax2) = a(j): a(j) = t
End If
　 　Loop
pMax1 = pMax1 + 1
pMax2 = pMax2 – 1
Next i
For i = 1 To n
List2.AddItem Str(a(i))
Next i
End Sub
（3）程序加框处代码有错，请改正。
【答案】（1）C
（2）n Mod 2 = 1 或 n mod 2 <> 0；a(pMax1) < a(pMax2)；j = j Mod n + 1
（3）ElseIf a(j) > a(pMax2) Then
【知识点】常量、变量及变量的赋值；排序算法及程序实现
【解析】【解答】（1）选项A中form为类名而不是对象名；选项B是标签1的标题属性值设为”生产合唱队列“；选项C是将窗体form1的标题设置为 “生成合唱队列” ，故本小题答案选C。
（2）本题程序分析如下：
Dim a(1 To 100) As Integer '定义整型数组a，a用于存储队员的排序值
Dim n As Integer '定义整型变量n，n用于存储队员人数
Private Sub Command1_Click() '命令按钮1单击事件过程开始
'在文本框Text1中输入n(n<=100)
'排序前数据存储在数组a中，并在文本框List1中显示
'代码略
End Sub '命令按钮1单击事件过程结束
Private Sub Command2_Click() '命令按钮2单击事件过程开始
Dim i As Integer, j As Integer, t As Integer '定义整型变量i、j和t
Dim pMax1 As Integer, pMax2 As Integer '定义整型变量pmax1、pmax2，这两个变量存储第二次开始的最大值及次大值
pMax1 = n \ 2 + 1: pMax2 = n \ 2 '假设最大值在中间元素的右侧，次大元素为中间元素
If '如果n值为奇数时则进行如下处理，故本处答案应填写： n Mod 2 = 1 或 n mod 2 <> 0
Then
For i = 1 To n '使用i来控制循环
If a(i) > a(pMax1) Then t = a(pMax1): a(pMax1) = a(i): a(i) = t '如果第i个元素大于最大元素值（由pmax1批示的元素）时借助第三变量t交换两个元素的值，保证中间元素值最大
Next i '结束循环
pMax1 = pMax1 + 1 '将pmax1值增1，即设中间元素后面的值为最大元素
End If '结束条件判断
For i = 1 To n \ 2 '使用i来控制循环，i的初值为1，终值为队员个数的一半
If Then t = a(pMax1): a(pMax1) = a(pMax2): a(pMax2) = t '如果最大元素值小于次大元素值时借助第三变量将两个值交换，故本处答案应填写： a(pMax1) < a(pMax2)
j = pMax1 Mod n + 1 '将j值设为最大元素值下标除以n的余数多1
Do While j <> pMax2 '在j值不等于第二元素值进行如下处理
If a(j) > a(pMax1) Then '如果第j个元素大于最大元素值时进行如下处理
t = a(pMax1): a(pMax1) = a(j): a(j) = t '借助第三变量t交换第j个元素和假设最大元素值，使本轮pmax1指向本轮最大的元素
t = a(pMax2): a(pMax2)= a(j): a(j) = t '再将第j个元素值与次大元素值进行交换
'否则如果第j个元素值比最大元素值小比次大元素值大时进行如下处理，故本处将else改为： ElseIf a(j) > a(pMax2) Then
t = a(pMax2): a(pMax2) = a(j): a(j) = t '借助第三变量t交换第j个元素和假设本轮次大元素值，使本轮pmax2指向本轮次大的元素
End If '结束条件判断
'将j值除以n值的余数进行增1，故本处答案应填写： j = j Mod n + 1
Loop
pMax1 = pMax1 + 1 '将指向最大元素值的元素增1即指针向右移动
pMax2 = pMax2 – 1 '将指向次大元素值的元素减少1即指针向左移动
Next i '结束条件判断
For i = 1 To n '使用i来控制循环
List2.AddItem Str(a(i)) '在列表框2中输出排好序的元素值
Next i '结束循环
End Sub '结束命令按钮2单击事件过程
由以上分析知：1处为如果n值为奇数时则进行如下处理，故本处答案应填写： n Mod 2 = 1 或 n mod 2 <> 0。2处为如果最大元素值小于次大元素值时借助第三变量将两个值交换，故本处答案应填写： a(pMax1) < a(pMax2)。3处为将j值除以n值的余数进行增1，故本处答案应填写： j = j Mod n + 1。
（3）加框处为否则如果第j个元素值比最大元素值小比次大元素值大时进行如下处理，故本处将else改为： ElseIf a(j) > a(pMax2) Then。
【分析】本题考查的从中间到两边由大到小排序的算法，这种算法其实质为选择排序法。选择排序法的基本思想：第1轮，在待排序记录r[1]~r[n]中选出最小的记录，将它与r[1]交换；第2轮，在待排序记录r[2]~r[n]中选出最小的记录，将它与r[2]交换；以此类推，第i轮在待排序记录r[i]~r[n]中选出最小的记录，将它与r[i]交换，使有序序列不断增长直到全部排序完毕。
16．（2020·浙江模拟）为促进学生学习中互帮互助，每次考后章老师都会按成绩重新编排机房上课位置，编排要求如下：
①按分数从高到低排序。若分数相同，则按学号进行升序排序。
②以班级为单位，排出从1号开始的机房座位表。章老师编写了一个位置编排功能的VB程序，在文本框Text1中输入班级名称，单击“读数据库”按钮Command1后，从数据库读取数据并显示在列表框List1中；单击“编排”按钮Command2，在列表框List2中输出学号、姓名、成绩和位置信息。运行界面如下图所示。
实现以上功能的 VB 程序如下，请回答下列问题：
（1）分析程序，可知数据库的文件名为　 　。
（2）请在划线处填入合适的代码。
Dim n As Integer
Dim xh(1 To 40) As Integer, xm(1 To 40) As String, cj(1 To 40) As Integer
Private Sub Command1_Click()
'本过程在文本框 Text1 中输入班级名称，从数据库中读取指定班级的学号、姓名和成绩的'数据分别存储在数组 xh,xm 和 cj 中
Dim conn As New ADODB.Connection
conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source="
+ App.Path + "\js.accdb"
conn.Open
Dim rs As New ADODB.Recordset rs.ActiveConnection = conn
rs.Open "select * from 技术"
'本过程的其他语句略
End Sub
Private Sub Command2_Click()
Dim wz(1 To 40) As Integer
Dim i As Integer, j As Integer
List2.AddItem "学号" & " " & "姓名" & " " & "成绩" & " " & "位置"
For i = 1 To n
①
Next i
For i = 1 To n
For j = 1 To n
If ② Then wz(i) = wz(i) + 1
End If
Next j
List2.AddItem adj(Str(xh(i))) + adj(xm(i)) + adj(Str(cj(i))) + adj(Str(wz(i)))
Next i
End Sub
Function adj(c As String) As String '固定输出5个字符长度
Dim i As Integer
③
For i = 1 To 5 - Len(c)
adj = adj + " "
Next i
End Function
①　 　②　 　③　 　
【答案】（1）js.accdb
（2）wz(i) = 1；cj(i) < cj(j) Or cj(i) = cj(j) And xh(i) > xh(j) 或 cj(i) < cj(j) Or cj(i) = cj(j) And i > j；adj = c
【知识点】排序算法及程序实现；程序访问数据库
【解析】【解答】（1）由语句”
conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source="
+ App.Path + "\js.accdb"“知其数据源为js.accdb。故本小题答案填写： js.accdb 。
（2）本题程序分析如下：
Dim n As Integer '定义整型变量n，n代表学生个数
Dim xh(1 To 40) As Integer, xm(1 To 40) As String, cj(1 To 40) As Integer '定义整整型数组xh，字符型数据xm，整型数组cj，其中xh存储学生的学号、xm存储学生的姓名，cj存储学生的成绩
Private Sub Command1_Click() '命令按钮1单击事件过程开始
'本过程在文本框 Text1 中输入班级名称，从数据库中读取指定班级的学号、姓名和成绩的'数据分别存储在数组 xh,xm 和 cj 中
Dim conn As New ADODB.Connection '定义数据库连接对象conn
conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source="
+ App.Path + "\js.accdb" ' 设置连接字符串，使用数据连接对象连接数据库js.accdb
conn.Open '进行对象连接
Dim rs As New ADODB.Recordset '定义一个记录查询对象rs
rs.ActiveConnection = conn '将记录查询对象rs与数据连接对象进行连接
rs.Open "select * from 技术" '在“技术”数据表查询所有记录
'本过程的其他语句略
End Sub '结束事件过程
Private Sub Command2_Click() '命令按钮2单击事件过程开始
Dim wz(1 To 40) As Integer '定义整型数组wz，该数据用于存储学生的上机位置
Dim i As Integer, j As Integer '定义整型变量i和j
List2.AddItem "学号" & " " & "姓名" & " " & "成绩" & " " & "位置" '在列表框2中输出表头
For i = 1 To n '使用i来控制循环，i的初值为1，终值为n
① '先给数组wz每个元素赋值为1，故本处答案填写： wz(i) = 1
Next i '结束循环
For i = 1 To n '使用i来控制外层循环，i代表需要排名（排位置）的学生所在的元素的下标
For j = 1 To n '使用j来控制内层循环，j从1到n代表全班，将每个学生成绩者进行比较
If ② Then wz(i) = wz(i) + 1 '如果需排名的第i个学生与其他学生（第j个学生）的成绩少时则将所占位置（即名次）向后排1位（即将名次加上1),故本处答案应填写： cj(i) < cj(j) Or cj(i) = cj(j) And xh(i) > xh(j) 或 cj(i) < cj(j) Or cj(i) = cj(j) And i > j
End If '结束条件判断
Next j '结束内层循环
List2.AddItem adj(Str(xh(i))) + adj(xm(i)) + adj(Str(cj(i))) + adj(Str(wz(i))) '在列表框2中输出一个学生的学号、姓名、成绩和位置
Next i '结束外层循环
End Sub '结束事件过程
Function adj(c As String) As String '自定义函数adj开始，该函数用于固定输出5个字符长度，其值为字符串，参数c的类型也为字符串
Dim i As Integer '定义整型变量i
③ '将参数赋给函数，故本处答案应填写： adj = c
For i = 1 To 5 - Len(c) '使用i来控制循环，i的初值为1终值为5减去参数c的长度值，步长为1
adj = adj + " " '在字符串的右侧加上空格
Next i '结束条件判断
End Function '结束自定义函数过程
由以上程序分析知 ① 处为先给数组wz每个元素赋值为1，故本处答案填写： wz(i) = 1 。 ② 处为如果需排名的第i个学生与其他学生（第j个学生）的成绩少时则将所占位置（即名次）向后排1位（即将名次加上1),故本处答案应填写： cj(i) < cj(j) Or cj(i) = cj(j) And xh(i) > xh(j) 或 cj(i) < cj(j) Or cj(i) = cj(j) And i > j。③ 处为将参数赋给函数，故本处答案应填写： adj = c。
【分析】本题考查的是使用程序在数据库中查询数据、排名算法以及自定义函数。本题的排名算法较简单就是将一个学生的成绩和全班所有学生的成绩进行比较如果比某个同学的成绩少则将排名向后排1位，直到全班所有学生比较排名完为止。在数据库中进行查找时首先连接数据库然后将连接对象和记录集进和关联，最后使用查找字符串在表中进行查找。自定义函数使用function来定义，使用同标准函数。
1 / 1

展开更多......

收起↑