浙江省绍兴市2020届高三信息技术4月高考科目考试适应性（一模）试卷

浙江省绍兴市2020届高三信息技术4月高考科目考试适应性（一模）试卷
一、选择题(本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求)
1．（2020·绍兴模拟）下列关于信息的说法，正确的是（　　）
A．未经证实的消息不是信息
B．计算机只能存储数字化后的信息
C．信息的加工和处理必须使用计算机才能完成
D．信息的表示、传播、存储可以不依附于载体
【答案】B
【知识点】信息及其特征
【解析】【解答】选项A：信息有真信息和虚假信息之分，未经证实的信息也是信息，本项错。选项B：计算机内部是以二进制来表示和存储信息的，所以计算机存储的信息都是数字信息，本项对。选项C：信息的加工和处理工具很多，如电视、电报、电话等都是信息加工和处理的工具，本项错。选项D：信息离不开载体而独立存在，故信息的表示、传播、存储都必须依附于载体，本项错。故答案选B。
【分析】本题考查的是信息的特征和信息技术。信息有五个基本特征和五个一般特征。基本特征：普遍性、依附性、传递性、价值性、时效性；一般特征：共享性、真伪性、不完全性、价值相对性、可处理性。信息技术（Information Technology，缩写IT），是主要用于管理和处理信息所采用的各种技术的总称。它主要是应用计算机科学和通信技术来设计、开发、安装和实施信息系统及应用软件。它也常被称为信息和通信技术（Information and Communications Technology, ICT）。主要包括传感技术、计算机与智能技术、通信技术和控制技术。
2．（2020·绍兴模拟）下列应用中，使用了人工智能技术的是（　　）
A．通过远程摄像头查看景区人流情况
B．编写VB程序对一批数据进行排序
C．把手机拍摄的照片上传到“云相册”
D．停车管理系统拍摄并识别车牌号码
【答案】D
【知识点】人工智能的应用
【解析】【解答】选项A： 通过远程摄像头查看景区人流情况是对图像进行分析不是人工智能技术。选项B：编写VB程序对一批数据进行排序属于程序设计不是人工智能技术。选项C：把手机拍摄的照片上传到“云相册”属于图像处理和传递技术不是人工智能技术。选项D：停车管理系统拍摄并识别车牌号码属于图像识别技术是人工智能技术。故答案选D。
【分析】本题考查的是人工智能技术的范畴。人工智能（Artificial Intelligence），英文缩写为AI。它是研究、开发用于模拟、延伸和扩展人的智能的理论、方法、技术及应用系统的一门新的技术科学。人工智能包括机器人、语音识别、图像识别、生物识别、自然语言处理和专家系统等。
3．（2020·绍兴模拟）输入用户名和密码登录某网站的邮箱并发送邮件，下列说法正确的是（　　）
A．登录邮箱的网页属于数据库管理系统
B．记录用户信息的数据表中，“用户名”列的数据称为记录
C．登录邮箱的过程中，需要查询数据库中对应的用户名和密码
D．发送电子邮件到对方邮箱的过程需要使用POP3协议
【答案】C
【知识点】电子邮件，电子公告板等信息交流方式
【解析】【解答】选项A： 登录邮箱的网页是服务器对用户的合法性进行检测的网页属于Web服务器上的网页文件，本项错。选项B：记录用户信息的数据表中，“用户名”列的数据称为字段而不是记录，本项错。选项C：登录邮箱时核对用户名和密码需要在数据库中的用户名和密码表中进行查询，本项对。选项D：发送电子邮件采用SMTP协议，接受邮件才使用POP3协议，本项错。故答案选C。
【分析】本题考查的是邮箱的使用。登录邮箱时核对用户名和密码需要在数据库中的用户名和密码表中进行查询，其过程实质为数据库查询操作。发送电子邮件采用SMTP协议，接受邮件使用POP3协议。
4．（2020·绍兴模拟）下列关于数制的说法，正确的是（　　）
A．二进制数1010001转换为十六进制数是A1
B．二进制数1110中的末位数码0对应权值是21
C．若二进制数末位为0，则该数对应的十进制数一定是偶数
D．若二进制数1110去掉首位码1，则新数110是原数1110的1/2
【答案】C
【知识点】进制及数制转换
【解析】【解答】选项A： 二进制数1010001转换为十六进制数是 51，本项错。选项B： 二进制数1110中的末位数码0对应权值是20，本项错。选项C： 二进制数的奇偶性与末位有关，末位数为0则为偶数，末位数为1则为奇数，本项对。选项D：1110为十进制数14，110为十进制数6，两者不是2倍关系，本项错。故答案选C。
【分析】本题考查的是二进制转为十六进制的方法和二进制数的奇偶性。二进制数转为十六进制数是将二进制数从整数部分最右位开始向左四位四位划开，最左边不足四位的使用0来补足四位，小数部分是从小数点开始自左向右四位四位划开，最右边不足四位的右补0，按上边对应关系每四位二进制转为一个十六进制数。二进制数的奇偶性与末位有关，末位数为0则为偶数，末位数为1则为奇数。二进制数从右向左的权值为20、 21 、……2n。
5．（2020·绍兴模拟）使用Photoshop软件制作“抗击新型肺炎”作品，部分界面如图所示。下列说法正确的是（　　）
A．“战胜新型肺炎”图层没有设置滤镜效果
B．“心形”图层对象不可视的原因是不透明度为100%
C．可以使用文字工具修改“众志成城”图层的文字大小
D．左下角数值“15%”修改为“30%”，则图像大小变为原来的2倍
【答案】A
【知识点】图片加工常用工具的使用
【解析】【解答】选项A：由图可知“战胜新型脑炎”图层为文字图层，文字图层只能使用样式而不能使用滤镜，故本项对。选项B：由图可知“心形”图层前面的眼睛不显示说明心该图层设置为了不可见属性，本项错。选项C：由图知“众志成城”已经栅格化为普通图层不是文字图层所以不能使用文字工具修改该图层的文字大小，本项错。选项D：左下角的15%，是显示比例只是显示时使用不影响图像的实际大小，本项错。故答案选A。
【分析】本题考查的是文字图层的特点、不可见图层的特点以及显示比例。文字图层只能通过“文字”工具来设置文字的大小、颜色和字体等信息且“文字”图层可以设置图层样式但不能设置滤镜效果。在“文字”图层被删格化后，不能使用“文字”工具设置文字的字体、大小或颜色等。为了防止图层被误删除或修改可以将图层设置为不可见或锁定状态，在设置为不可见或锁定时不可以修改图层的名称、图层样式和滤镜效果，但可以复制和删除图层。显示比例只是显示时使用不影响图像的实际大小。
6．（2020·绍兴模拟）将一个时长2分钟，采样频率44.1KHz，量化位数16、单声道未经压缩Wave音频文件压缩为MP3格式，压缩后MP3格式文件的大小为470KB，则音频的压缩比约为（　　）
A．11：1 B．11：2 C．22：1 D．176：1
【答案】C
【知识点】声音、图像、视频编码
【解析】【解答】压缩前的音频文件的大小为：（44100*16*120）/8=10584000B=10335.9375KB, 10335.9375/470=21.99135638297872，其值接近于22。故答案选C。
【分析】本题考查的是音频文件的存储容量计算公式。其公式为：音频文件存储容量=(采样频率× 量化位数× 声道数× 时间) / 8（字节）或音频文件存储容量=（播放速率*音频文件时长）/8（字节）。在本题中先计算出压缩前的存储容量再计算其和压缩后的比例。
7．（2020·绍兴模拟）某算法的部分流程图如图所示。执行这部分流程，变量c和s的值分别为（　　）
A．5 13 B．5 12 C．8 12 D．8 20
【答案】B
【知识点】算法的常用表示方法；算法的控制结构
【解析】【解答】先将a、b、s的值赋为1、1、2，然后判断s值是否小于等于10，如果小于等于10则执行循环，在循环体中将a和b的值赋给c，再将b的值赋给a，将c的值赋给b，再累加c的值到s中，再去判断s的值，如果s值仍小于等于10则再次执行循环体，直到s值大于10为止然后输出变量c和s的值，由流程图可知第一次循环：c=1+1=2，a=b=1，b=c=2，s=s+c=2+2=4，4<=10成立执行第二次循环：c=1+2=3，a=2，b=3，s=4+3=7，7<=10仍成立则执行第三次循环：c=2+3=5，a=3，b=5，s=7+5=12，12<=10不成立退出循环，输入c和s值：c=5，s=12。故答案选B。
【分析】本题考查的是使用流程图来表示算法。流程图是一种用规定的图形、指向线及文字说明来准确表示算法的图形，具有直观、形象的特点，能清楚地展现算法的逻辑结构。在分析算法时要由上到下由左到右分析并注意流程线的流向。
8．（2020·绍兴模拟）变量ch存储小写字母，下列VB表达式能表示其对应大写字母的是（　　）
A．Str(ch-32) B．Asc(Chr(ch)-32)
C．Chr(Abs(ch)-32) D．Chr(Asc(ch)-32)
【答案】D
【知识点】运算符、基本运算与表达式
【解析】【解答】选项A：ch中存储的是小写字母，ch-32是一个字符串减去一个数值型无意义，故str（）的参数错误。选项B：chr（）是将一个数值型转为对应的字符串，而ch为字符串，故chr函数的参数错误。选项C：abs是求绝对值其参数为数值型而ch为字符型故abs的参数错误。选项D：asc函数是求字符串参数对应的ASCII码，再减去32后求出其对应的大写字母的ASCII码值，再由asc函数求出其对应的字母，本项对。故答案选D。
【分析】本题是求将小写字母转为对应大字字母的表达式以及常用的函数的功能。在求小写字母对应的大写字母时先用asc函数是求字符串参数对应的ASCII码，再减去32后求出其对应的大写字母的ASCII码值，再由asc函数求出其对应的字母，其表达式为：CHR（ASC(CH)-32)。str是将数值型转为字符串，asc是求参数对应的ASCII值，chr是求参数对应的字符，abs是求参数的绝对值。
9．（2020·绍兴模拟）给定任意的查找键，在序列3，5，8，12，15，23中进行查找，下列说法不正确的是（　　）
A．若用顺序查找实现，则最少查找1次
B．若用对分查找实现，则最少查找1次
C．若用顺序查找实现，则最多查找6次
D．若用对分查找实现，则最多查找4次
【答案】D
【知识点】查找算法及程序实现
【解析】【解答】选项A：使用顺序查找法要一个一个数进行比较，若查找值为3则查找次数为1，本项对。选项B：对分查找法始终对比中间元素，如果要查找值为8则只查找1次，本项对。选项C：顺序查找法要一个一个比较，本题有6个元素故最坏算法为比较6次，本项对。选项D：对分查找法最大的查找次数为：最坏次数=int(log2x)+1=int（log 26)+1=int(2.58)+1=2+1=3，最坏次数为3次而不是4次，本项错。故答案选D。
【分析】本题考查的是顺序查找法和对分查找法的最小和最大比较次数。顺序比较法的比较次数范围为1-n，而对分查找法的比较次数范围为：1-int(log2x)+1。
10．（2020·绍兴模拟）有如下VB程序段：
c=0
k=1
For i= 2 To 8
If I Mod 2=1 And a(k)k=i
c=c+1
End If
Next i
数组元素a(1)到a(8)的值依次为“3，6，2，4，13，7，13，20”，执行该程序段后，变量k和c的值分别为（　　）
A．5 1 B．5 2 C．6 2 D．8 3
【答案】A
【知识点】查找算法及程序实现
【解析】【解答】本题程序分析如下：
c=0 ‘将c的值赋为0
k=1 ‘将k的值赋为1
For i= 2 To 8 ‘使用i来控制循环，i的初值为2，终值为8，步长为1
If I Mod 2=1 And a(k)k=i ‘将i值赋给变量k
c=c+1 ‘将c值增1
End If ‘结束判断
Next i ‘结束循环
由以上程序分析知，本题是找数组中奇数元素的最大值，c用于统计交换次数，由此可以看出第5个数组元素13为最大值，a（1）值为3，a（3）值为2不进行交换，只有在比较a（1）和a（5）值时交换1次，故c=1，k=5。故答案选A。
【分析】本题考查的是顺序比较查找法。顺序查找就是在数组中按数组的下标逐一将数组元素和要查找的数进行比较，数组即可以有顺序也可以没有顺序，查找速度较慢。
11．（2020·绍兴模拟）有如下VB程序段：
i= 1
Do While i<= 6
a(i) = Int(Rnd()*10)+ 1
If a(i) Mod 2=i Mod 2 Then
i=i- 1
ElseIf i Mod 2= 0 Then
a(i)=a(i- 1)+ a(i)
End If
i=i+ 1
Loop
执行该程序段后，a(1)～a(6)各元素可能的值是（　　）
A．4，9，2，13，8，11 B．3，11，6，11，8，15
C．6，13，8，11，6，15 D．2，6，8，13，2，7
【答案】C
【知识点】运算符、基本运算与表达式；常量、变量及变量的赋值
【解析】【解答】本题程序分析如下：
i= 1 ‘给i值赋初值1
Do While i<= 6 ‘在i小于等于6时进行循环
a(i) = Int(Rnd()*10)+ 1 ‘给数组元素a进行赋值，元素值的范围为1-10之间的整数
If a(i) Mod 2=i Mod 2 Then ‘如果元素值和所处的位置均为偶数或均为奇数时进行如下处理
i=i- 1 ‘将元素下标值减少1
ElseIf i Mod 2= 0 Then ‘否则在i值为偶数时进行如下处理
a(i)=a(i- 1)+ a(i) ‘将前一个元素值加上本元素值后赋给本元素值
End If ‘结束条件判断
i=i+ 1 ‘将i值增1
Loop ‘结束循环
由以上可以看出奇数元素的值不能是奇数且其值范围为1-10，偶数元素值不能为偶数，且偶数元素的值的范围为3-20且大于前面的元素的值且其与前面元素值的差在1-10范围内，选项A中第3个元素和第4个元素值之差为11，不在1-10之内错误，选项B：第一个元素值为奇数错误，选项C符合规则，选项D的第二个元素值为偶数错误。故答案选C。
【分析】本题考查的是产生指定范围内的随机整数的方法及判断数组可能值的方法。产生指定范围内的随机数公式为：int((上限-下限+1）*rnd）+下限。在判断一个数组可能的值要根据条件在整个数组中一一排除，如果有一个元素不合条件且排除该选项，剩余项即为答案。
12．（2020·绍兴模拟）有多组“123”连接的字符串，如“123123123”，若删除其中一个任意位置的字符，如第8位字符“2”，则得到新字符串“12312313”。编写一个如图所示的VB程序，实现以下功能：输入非空新字符串s，找出被删除字符在原字符串中的位置。如输入“12312313”，则输出“原字符串的第8个字符被删除”。
s= Text1.Text
For i= 1 To Len(s)
a(i) = Val(Mid(s, i, 1))
Next
L=1: R= Len(s) + 1
Do While Lm= (L+R) \2
If Then
R= m
Else
L=m+ 1
End If
Loop
Label1 .Caption = "原字符串的第"+ + "个字符被删除"
上述程序段2个方框处的代码分别为（　　）
A．⑴ (m- 1) Mod 3 +1<>a(m) ⑵ Str(L)
B．⑴ (m- 1) Mod 3+<>a(m) ⑵ Str(m)
C．⑴ m Mod 3= a(m) ⑵ Str(L)
D．⑴ m Mod 3 = a(m) ⑵ Str(m)
【答案】A
【知识点】常量、变量及变量的赋值；查找算法及程序实现
【解析】【解答】本题程序分析如下：
s= Text1.Text ‘将文本框中输入的字符串赋给变量s
For i= 1 To Len(s) ‘使用i来控制循环，i的初值为1，终值为字符串s的长度，步长为1，i代表字符串的位置
a(i) = Val(Mid(s, i, 1)) ‘在字符串s中按i值中取一个字符并存储在数组a对应的元素中
Next ‘结束循环
L=1: R= Len(s) + 1 ‘给变量l赋初值为1，给r赋初值为 字符串长度加1，l、r为要查找数组的下标的下限和上限
Do While Lm= (L+R) \2 ‘求要查找数组的中值元素下标
If Then ‘如果中值下标值m的前一个值除以3的余数加上1后与该元素中值不相等时，说明在中值前删除了一个字符，则进行如下处理，故本处答案应填写：（m-1） mod 3+1<>a(m)
R= m ‘将要查找数组元素的上限设为现中值
Else ‘否则进行如下处理
L=m+ 1 ‘将要查找数组元素的下限设为现中值
End If ‘结束条件判断
Loop ‘结束循环
Label1 .Caption = "原字符串的第"+ + "个字符被删除" ‘使用标签1输出被删除的原位置，原位置在要查找数组的下标上限中，故本处答案应填写str（L）。
由以上分析知（1）处为如果中值下标值m的前一个值除以3的余数加上1后与该元素中值不相等时，说明在中值前删除了一个字符，则进行如下处理，故本处答案应填写：（m-1） mod 3+1<>a(m)。（2）处为使用标签1输出被删除的原位置，原位置在要查找数组的下标上限中，故本处答案应填写str（L）。故答案选A。
【分析】本题考查的是对分查找算法。对分法查找过程是先将一个数列放于一个有序数组中，然后比较中间数组元素的值与要查找的值，或中间数组的值比要查找的值大，则在前半个数组中查找，若中间数组的值比要查找的值小则在后半个数组中查找。查找方法仍是比较中间数组元素的值和要查找的值。以此类推直到查到或下限大于了上限（没查找）为止。
二、非选择题(本题共4小题，4+8+7+7，共26分)
13．（2020·绍兴模拟）某慈善总会接收抗击新型冠状病毒感染肺炎的捐赠物资，使用Excel软件进行数据处理，如图所示。
请回答下列问题：
（1）F4单元格中的数据是使用SUMIF函数计算得到的，对G4：H4进行自动填充，G4单元格中的显示结果是　 　(单选，填字母：A .VALUE!/B ./C .DIV/0!/D .0)。(提示：SUMIF函数用于对区域中满足条件的单元格求和。
例如：=SUMIF(B3：B3126，F3，C3：C3126)表示求B3：B3126区域中所有“N95口罩”的总量)
（2）若要正确计算“分类捐助总量”的数据，可对F4单元格中的公式进行修改，再对G4：H4进行自动填充，则F4单元格中的公式是　 　。
（3）图中数据区域A2：C3126已进行了排序。排序时，选择的关键字为　 　。
（4）要筛选出所有口罩的数据，对“物资类别”列进行筛选，下列方法可行的是　 　(单选，填字母)。
【答案】（1）D
（2）=SUMIF($B$3:$B$3 126,F3,$C$3:$C$3126)或=SUMIF($B3:$B3126,F3,$C3:$C3126)
（3）日期
（4）A
【知识点】表格数据的基本操作；表格数据的处理与计算
【解析】【解答】（1）由图可知F3的公式为 =SUMIF(B3：B3126，F3，C3：C3126) ，复制到G4时由于为相对引用则其公式变为 =SUMIF(C3：C3126，G3，D3：D3126) ，由公式知C列不包括“84消毒液”，D列没有数据，故计算结果为0，故本小题答案选D。
（2）若想使用G4和F4计算公式正确，可将计算条件区域和数值计算区域使用绝对引用或混合引用（混合引用使用相对行绝对列，故本小题答案应填写： =SUMIF($B$3:$B$3 126,F3,$C$3:$C$3126)或=SUMIF($B3:$B3126,F3,$C3:$C3126) 。
（3）由图可以看出日期相同的如A3到A6时间均为“2020/2/15”，A3123到A3126时间均为“2020/2/6”可知按日期的降序进行的排列，故本小题答案填写：日期。
（4）若要筛选出所有口罩的数据，则对“物资类别”筛选时筛选该列的值包含“口罩”即可，故本小题答案选A。
【分析】本题考查的是Excel的公式填写、公式中单元格地址引用、排序关键字的判断以及自动筛选。Excel的公式要根据实际情况选择需要的函数以及单元格数据区域，另外还要根据公式中的单元格是否变化来选择单元格引用为相对引用还是绝对引用或混合引用；Excel的地址引用有相对地址引用和绝对地址引用及混合地址引用3种方式，相对地址引用就是单元格地址前不加任何东西，单元格地址会随单元格的变化而变化，绝对单元格地址引用就是在单元格地址前加$号，不会随单元格的变化而变化。混合引用是在行号或列标前加$号，另一个不加，在复制公式时加$号的不变，不加$号的变化。在已经排好序的数据清单中找出排序的字段则要一列一列的分析数据看其是否呈升序或降序排列从而判断出排序的字段。筛选有两种自动筛选和高级筛选，在对文本列进行筛选进往往使用包含或不包含某个关键字来进行筛选。
14．（2020·绍兴模拟）用Flash软件打开“鱼戏莲叶间.fla”文件，编辑界面如图所示。
请回答下列问题：
（1）以下步骤属于脚本编写阶段的是：　 　(多选，填字母：A .分析作品的社会效益和经济效益/B .根据主题思想和内容，制定该作品的脚本大纲/C .考虑作品创作及运 需要的硬件设施/D .确定原始素材的获取方式/E.确定作品的主要界面)。
（2）图中“鱼”图层创建了鱼戏荷花间的动画，各关键帧中的“鱼”实例均由库中“鱼”影片剪辑元件(仅含摆尾动作)创建，则“鱼”图层的动画类型是　 　。
（3）“鱼”图层从左至右，各关键帧中“鱼”实例的坐标(X，Y)依次为(80，350)、(200，250)、(30，200)。若仅对第36帧执行“插入关键帧”操作，测试场景，下列说法正确的是　 　(多选，填字母：A .鱼游行路径不变/B
.鱼游行停顿时间约为1秒/C .鱼摆尾频率不变/D .鱼游行时间不变/E .第2到3秒鱼从左向右游行)。
（4）如图所示，为使“荷叶”图层的动画从第1帧开始，正确的操作是　 　。
（5）将作品发布为exe格式文件，要使打开该文件时单击“关闭”按钮关闭动画，按钮上的动作脚本是on(release){　 　}。
【答案】（1）BD
（2）动画补间
（3）ACD
（4）选中“荷叶”图层的第24帧移至第1帧或选中“荷叶”图层的第1帧执行“清除关键帧”操作或其它等价操作
（5）fscommand("quit'");
【知识点】多媒体作品的规划和设计；时间轴、帧、图层、库的概念及基本操作；元件的类型与应用；常用影片控制函数的应用
【解析】【解答】（1）选项A： 分析作品的社会效益和经济效益属于应用需求分析不是脚本编写。选项B：根据主题思想和内容，制定该作品的脚本大纲属于编写脚本大纲是制定脚本大纲属于脚本编写。选项C：考虑作品创作及运 需要的硬件设施属于创作需求分析，不属于脚本编写。选项D：确定原始素材的获取方式属于媒体殼分解是脚本编写。选项E：确定作品的主要界面属于创作需求分析不是脚本编写阶段。故本小题答案选BD。
（2）由图可知“鱼”图层中的动画帧中是由紫色底纹加一黑色箭头，由此可以判断该图层为动画补间动画，故本小题答案填写：动画补间。
（3）选项A：由于只进行了“插入关键帧”操作则36帧复制了上一关键帧第24帧中的图像，其位置不会发生变化所以鱼的路径不会变化，本项对。选项B：仅对第36帧执行“插入关键帧”操作 ，就是将第24帧的内容复制到第36帧，鱼游行不会停留，本项错误。选项C：“鱼”图层是由“鱼”影片剪辑元件生成的，故鱼的摆尾频率不变，本项对。选项D：插入关键帧后鱼的游行时间不变，本项错。选项E：由选项B分析知第2秒到第3秒鱼处于同一位置，本项错。故本小题答案选ACD。
（4）为使“荷叶”图层的动画从第1帧开始则需将第24帧的图像移到第1帧，故本小题答案填写：选中“荷叶”图层的第24帧移至第1帧或选中“荷叶”图层的第1帧执行“清除关键帧”操作或其它等价操作 。
（5） 要使打开该文件时单击“关闭”按钮关闭动画 ，即设置在“关闭”按钮中按下或释放鼠标的动作为退出整个动画，故本小题答案填写： fscommand("quit'"); 。
【分析】本题考查的是多媒体作品的脚本编写、动画补间类型、插入关键帧操作、改变动画起始位置以及动作脚本设置。脚本编写包括：制定脚本大纲、编写文字脚本、编写制作脚本、媒体元素分解等四步骤。补间动画有二种：动画补间和形状补间。形状补间是由一个物体到另一个物体间的变化过程，像由三角形变成四方形等。时间轴上形状补间是淡绿色底加一个黑色箭头组成的。动画补间是由一个形态到另一个形态的变化过程，像移动位置，改变角度等。时间轴上动画补间是淡紫色底加一个黑色箭头组成的。插入的关键帧将复制上一关键帧中的图像。改变动画的起始位置即改变其起始帧。增加动作脚本可以增强多媒体作品的人机交互功能。
15．（2020·绍兴模拟）编号分别为1～n(n为偶数)的学生分成两组进行投篮比赛，奇数编号的为第一组，偶数编号的为第二组。对每个分组的成绩按从高到低排序，先比较处于分组第1位的两个队员成绩，成绩高的得1分，低的扣1分，相等均不得分，再依次比较处于分组相同位置的队员成绩，最后得到每组得分。
如10名运动员1号到10号的成绩分别是“13，6，9，8，10，11，10，14，16，13”，从高到低排序后，第一组的成绩依次是“16，13，10，10，9”，第二组的成绩依次是“14，13，11，8，6”。第1位的成绩分别是16和14，则第一组获胜得1分，第二组扣1分，再比较两个分组第2位的成绩13和13，则两组均不得分。依次处理，比较完剩余队员的成绩，可得第一组得分为2，第二组得分为－2。
编写一个VB程序，实现如下功能：在文本框Text1中依次输入成绩(偶数个整数，用逗号分隔并以逗号结尾)，单击“确定”按钮Command1后，在列表框List1中显示对阵编号、对阵成绩及两个分组的最后得分。程序运行界面如图所示。
（1）下列对象不具有Caption属性的是　 　(单选，填字母：mand1/B .Form1/C .Text1/D .Label1)
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
Dim s As String, ch As String, sum1 As Integer, sum2 As Integer
Dim bh (1 To 50) As Integer, cj(1 To 50) As Integer
s= Text1.Text
j= 1: k=0
For i= 1 To ①
ch = Mid(s, i, 1)
If Not (ch>=
"0" And ch <= "9") Then
k=k+1
bh(k)=k
cj(k) = Val(Mid(s, j,
i-j))
②
End If
Next i
For i= 1 To k-2 Step 2
For j= k To ③ Step -1
If cj(j)> cj(j-2)
Then
t= cj(j): cj(j)=cj(j-2):
cj(j-2)=t
t= bh(j): bh(j)=
bh(j-2): bh(j-2)=t
End If
Next j
Next i
sum1 = 0: sum2= 0
List1 .AddItem "对阵编号 对阵成绩"
For i=1 To k- 1 Step 2
If cj(i)> cj(i+1)
Then
sum1 = sum1 + 1: sum2
= sum2- 1
sum1=sum1-1: sum2=sum2+1
End If
List1.AddItem adj(bh(i)) + "<-->" + adj(bh(i+1)) + adj(cj(i)) + "<-->" + adj(cj(i+1)
Next i
List1.AddItem"第一组得分: "+ adj(sum1)
List1.AddItem"第二组得分: " + adj(sum2)
End Sub
Function adj(x As Integer) As String
‘函数功能:将数值x转换成字符串，并在字符串的左侧添加若干空格。代码略
End Function
①　 　②　 　③　 　
（3）程序代码中的加框处代码有误，请改正。
【答案】（1）C
（2）Len(s)或Len(Text1.Text)；j=i+1；i+2
（3）ElseIf cej(i)【知识点】常量、变量及变量的赋值；过程与自定义函数；排序算法及程序实现
【解析】【解答】（1）选项A：Command1为命令按钮，命令按钮有标题属性（Caption），选项B：Form1为窗体，窗体有Caption属性，选项C：Text1为文本框，文本框无Caption属性，选项D：Label1为标签，标签有Caption属性，故本小题答案选C。
（2）本题程序分析如下：
Private Sub Command1_Click() ‘命令按钮1单击事件过程开始
Dim i As Integer, j As Integer, k As Integer ‘定义整型变量i、j、k
Dim s As String, ch As String, sum1 As Integer, sum2 As Integer ‘定义自符串变量s、ch和整型变量sum1和sum2
Dim bh (1 To 50) As Integer, cj(1 To 50) As Integer ‘定义整型数组bh和cj
s= Text1.Text ‘将从文本框1中输入的字符串赋给变量s
j= 1: k=0 ‘初始化变量j的值为1，k的值为0，j代表字符串中字符的起始位置，k代表数组bh的下标值
For i= 1 To ① ‘使用i来控制循环，i的初值为1，终值为字符串s的长度，故本处答案应填写： Len(s)或Len(Text1.Text)
ch = Mid(s, i, 1) ‘按i值从字符串中中取一个字符赋给变量ch
If Not (ch>= "0" And ch <= "9") Then ‘如果ch不是字符型数字则进行如下处理
k=k+1 ‘将k值增1
bh(k)=k ‘将该编号存储到数组bh中
cj(k) = Val(Mid(s, j, i-j)) ‘从字符串s中中取出该学生的成绩存储到数组cj中
② ‘将j值设为i+1，代表下一个成绩的开始位置，故本处答案应填写：j=i+1
End If ‘结束条件判断
Next i ‘结束循环
For i= 1 To k-2 Step 2 ‘使用i来控制循环，i的初值为1，终值为k-2，步长为2，该循环用于分别降序排序奇数元素和偶数元素
For j= k To ③ Step -1 ‘使用j来控制内层循环，j的初值为k终值为i+2，步长为-1，该循环由数组cj的后面元素向前比较，采用冒泡法将大数冒泡到数组元素下标小的位置上，故本处答案应填写： i+2
If cj(j)> cj(j-2) Then ‘如果数组元素c（j）比其前两个元素值大时进行如下处理
t= cj(j): cj(j)=cj(j-2): cj(j-2)=t ‘借助第三变量t交换成绩数组cj的两个元素值
t= bh(j): bh(j)= bh(j-2): bh(j-2)=t ‘借助第三变量t交换编号数组bh的两个元素值
End If ‘结束条件判断
Next j ‘结束内层循环
Next i ‘结束外层循环
sum1 = 0: sum2= 0 ‘将sum1和sum2初始化为0，这两个变量用于分别累加两个队的成绩，即sum1为1队的总成绩，sum2为偶数队的总成绩
List1 .AddItem "对阵编号 对阵成绩" ‘在列表框中输出标题行
For i=1 To k- 1 Step 2 ‘使用i来控制循环，i的初值为1，终值为k-1，步长为2
If cj(i)> cj(i+1) Then ‘如果奇数位（1队）的成绩大于偶数位元素（2队）的成绩时则进行如下处理
sum1 = sum1 + 1: sum2 = sum2- 1 ‘将1队的成绩增1，将2队的成绩减少1
‘否则如果奇数位（1队）的成绩小于偶数位（2队）的成绩时进行如下处理，另外还有一种平的情况，故不能使用else而使用elseif，故本处应改为： ElseIf cej(i)sum1=sum1-1: sum2=sum2+1 ‘将1队总成绩减少1，将2队总成绩加1
End If ‘结束条件判断
List1.AddItem adj(bh(i)) + "<-->" + adj(bh(i+1)) + adj(cj(i)) + "<-->" + adj(cj(i+1) ‘在列表框中的一行中输出两队的对阵编号和成绩
Next i ‘结束循环
List1.AddItem"第一组得分: "+ adj(sum1) ‘在列表框1中输出第一组的得分
List1.AddItem"第二组得分: " + adj(sum2) ‘在列表框1中输出第二组的得分
End Sub ‘结束事件过程
Function adj(x As Integer) As String ‘自定义函数adj开始
‘函数功能:将数值x转换成字符串，并在字符串的左侧添加若干空格。代码略
End Function ‘自定义函数adj结束
由以上程序分析知， ① 处为：使用i来控制循环，i的初值为1，终值为字符串s的长度，故本处答案应填写： Len(s)或Len(Text1.Text)。② 处为：将j值设为i+1，代表下一个成绩的开始位置，故本处答案应填写：j=i+1。 ③ 处为用j来控制内层循环，j的初值为k终值为i+2，步长为-1，该循环由数组cj的后面元素向前比较，采用冒泡法将大数冒泡到数组元素下标小的位置上，故本处答案应填写： i+2。
（3）加框处为：否则如果奇数位（1队）的成绩小于偶数位（2队）的成绩时进行如下处理，另外还有一种平的情况，故不能使用else而使用elseif，故本处应改为： ElseIf cej(i)【分析】本题考查的是使用冒泡法进行排序的算法。在使用冒泡法进行排序时使用i控制外层循环，代表每次的比较轮数，j控制内层循环代表每轮比较次数，在进行一轮比较后将最大值放到数列的末尾，在经过n-1轮比较后将输入的数排成一个由小到大（或由大到小）的数列。
16．（2020·绍兴模拟）某医院接受捐赠物资，各项物资数据包含编号、品名和收支数量。编号构成规则是：急需等级(单个大写字母，由高到低划分为A、B、C三个等级)+物资种别(单个大写字母，至多有A～Z共26种)。为提高库存管理效率，现需要整理物资库存，要求：先对同种物资数量进行合并统计；然后按各种物资库存量，更新其急需等级，并依等级由高到低分类显示。等级划分规则为：当库存量低于3天所需，设置为A级；当库存量低于7天所需，设置为B级；否则设置为C级。
按上述要求，编写一个VB程序，功能如下：在列表框List1中显示整理前的所有物资相关数据，单击“库存合并统计”按钮Command1，在列表框List2中显示整理结果，程序运行界面如图所示。
（1）由图中示例可知，急需等级发生变化的物资有　 　种(填数字)。
（2）请在划线处填入合适的代码。
Const n= 2000 ‘物资总项数
Const nc = 26 ‘物资种别数，最多不会超过26
Dim items(1 To n) As String, supplies(1 To n) As String, totals(1 To n) As Long
Dim g(1 To2 * nc) As Long ‘存储各种物资3天、7天的需求数量
Dim b(1 To nc) As Long ‘存储各种物资的库存量
Dim c(1 To nc) As Long
Dim q(1 To nc) As Integer
Private Sub Form_Load()
‘本过程读取编号、品名、收支、需求的数据分别存储在数组items、supplies、totals、g数组中，并在List1中显示有关数据：g数组中g(1)、g(2)存储物资A的3天、7天的需求数量；g(3)、g(4)存储物资B的3天、7天的需求数……代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, top As Integer, bottom As Integer
Dim r As Long, s As String, t As Integer, m As Integer
For i=1 To nc.
b(i)=0:c(i)=0
Next i
For i=1 To n ‘统计每种物资的库存量
k = Asc(Mid(items(i), 2, 1))- Asc("A")+1
①
c(k)=i
Next i
j=0
For i=1 To nc
If c(i)<>0 Then j=j+1: q(j)=i
Next i
top = 0: bottom=j+ 1
j=1: k=bottom-1
Do While jm=q(j)
②
If rtop=top+1
If top<>j Then t= q(top): q(top)=q(j): q(j)=t
j=j+1
ElseIf r>= g(2*m) Then
bottom=bottom-1
t= q(j): q(j)=q(bottom): q(bottom)=t
Else
j=j+1
End If
Loop
List2.AddItem "编号 品名 库存"
List2. AddItem "------------------------------"
For i= 1 To k
s= fp(i, top, bottom)
List2.AddItem" " & s & " " & supplies(c(q(i))) & " " & b(q(i))
Next i
End Sub
Function fp(pos As Integer, head As Integer, tail As Integer) As String
If ③ Then
fp= "A"
ElseIf pos < tail Then
fp= "B"
Else
fp="C"
End If
fp = fp & Mid(items(c(q(pos))), 2, 1)
End Function
①　 　②　 　③　 　
【答案】（1）2
（2）b(k)= b(k) + totals(i)；r= b(q(j))或r= b(m)；pos <= head
【知识点】常量、变量及变量的赋值；过程与自定义函数；排序算法及程序实现
【解析】【解答】（1）由图可知“外科口罩”由C级调整为B级，“防护衣”由B级调整为A级，其他级别没有变化，故本小题答案填写 ：2。
（2）本题程序分析如下：
Const n= 2000 ‘定义符号常量n，n代表物资总项数
Const nc = 26 ‘定义符号常量nc，nc为物资种别数，最多不会超过26种
Dim items(1 To n) As String, supplies(1 To n) As String, totals(1 To n) As Long ‘定义字符型数组items和字符型数组supplies以及长整型变量totals
Dim g(1 To2 * nc) As Long ‘定义长整型数组g，g用于存储各种物资3天、7天的需求数量
Dim b(1 To nc) As Long ‘定义长整型数组b，b用于存储各种物资的库存量
Dim c(1 To nc) As Long ‘定义长整型数组c
Dim q(1 To nc) As Integer ‘定义整型数组q
Private Sub Form_Load() ‘窗体加载事件过程
‘本过程读取编号、品名、收支、需求的数据分别存储在数组items、supplies、totals、g数组中，并在List1中显示有关数据：g数组中g(1)、g(2)存储物资A的3天、7天的需求数量；g(3)、g(4)存储物资B的3天、7天的需求数……代码略
End Sub ‘结束窗体加载事件
Private Sub Command1_Click() ‘命令按钮1单击事件过程开始
Dim i As Integer, j As Integer, k As Integer, top As Integer, bottom As Integer ‘定义整型变量i、j、k、top和bottom
Dim r As Long, s As String, t As Integer, m As Integer ‘定义长整型变量r和字符串变量s和整型变量m
For i=1 To nc ‘ 使用i来控制循环，i的初值为1，终值为nc，i代表货物种类
b(i)=0:c(i)=0 ‘初始化数组b和数组c的每一个元素值为0
Next i ‘结束循环
For i=1 To n ‘使用i来控制循环，i的初值为1，终值为n，步长为1，该循环用于统计每种物资的库存量
k = Asc(Mid(items(i), 2, 1))- Asc("A")+1 ‘从编号的第二位中取出字母编号并求出其数字编号，并将数字编号赋给变量k
① ‘将该种物资的收支情况累加到对应数组b中，故本处应填写： b(k)= b(k) + totals(i)
c(k)=i ‘将i值存储到数组c对应的元素中
Next i ‘结束循环
j=0 ‘初始化变量j值为0
For i=1 To nc ‘使用i来控制循环，i的初值为1，终值为nc，步长为1，i代表物资种类
If c(i)<>0 Then j=j+1: q(j)=i ‘如果数组c对应的元素值不为0，即该种物资有收支时则将j增1，将i值存储到数组q中，j代表物资种类
Next i ‘结束循环
top = 0: bottom=j+ 1 ‘初始化变量top的值为0，变量bottom的值为j值多1
j=1: k=bottom-1 ‘初始化变量j值为1，k值为bottom值少1
Do While jm=q(j) ‘将j物资编号赋给变量m
② ‘将该物资的存储量赋给变量r，故本处答案填写： r= b(q（j）))或r= b(m)
If rtop=top+1 ‘将top值增1
If top<>j Then t= q(top): q(top)=q(j): q(j)=t ‘如果top值与j值不相等时则借助第三变量t交换数组q中的两个元素值，实现按降序排序
j=j+1 ‘将j值增1
ElseIf r>= g(2*m) Then ‘否则如果r值（m的库存值）大于7天的存储量时进行如下处理
bottom=bottom-1 ‘将bottom值减少1
t= q(j): q(j)=q(bottom): q(bottom)=t ‘借助第三变量t交换数组q中的两个元素值
Else ‘否则进行如下处理
j=j+1 ‘将j值增1
End If ‘结束条件判断
Loop ‘结束循环
List2.AddItem "编号 品名 库存" ‘在列表框2中输出标题行
List2. AddItem "------------------------------" ‘输出分隔线
For i= 1 To k ‘使用i来控制循环，该循环用于输出各物资情况
s= fp(i, top, bottom) ‘使用自定义函数对物资进行编号
List2.AddItem" " & s & " " & supplies(c(q(i))) & " " & b(q(i)) ‘在列表框2中输出该物资的编号、品名和库存数
Next i ‘结束循环
End Sub ‘结束命令按钮1单击事件过程
Function fp(pos As Integer, head As Integer, tail As Integer) As String ‘自定义函数fq的开始，该函数共有3个参数，参数1代表现有库存数量，参数2代表3天的需求量，参数3代表7天的需求量
If ③ Then ‘如果参数pos的值小于head值时进行如下处理，故本处答案应填写： pos <= head
fp= "A" ‘将函数值设为等级A
ElseIf pos < tail Then ‘否则参数1小于参数3时进行如下处理
fp= "B" ‘将函数值设为等级B
Else ‘否则，即参数1大于等于参数3时进行如下处理
fp="C" ‘将函数值设为等级C
End If ‘结束条件判断
fp = fp & Mid(items(c(q(pos))), 2, 1) ‘将等级与对应的物资类别合为一个物资编号并赋给函数fq
End Function ‘结束自定义函数
由以上程序分析知， ①处为：将该种物资的收支情况累加到对应数组b中，故本处应填写： b(k)= b(k) + totals(i)。
②处为：将该物资的存储量赋给变量r，故本处答案填写： r= b(q（j）))或r= b(m)。
③处为：如果参数pos的值小于head值时进行如下处理，故本处答案应填写： pos <= head 。
【分析】本题考查的是自定义函数的定义和使用。自定义函数使用Function关键字来定义，在定义时注意参数和函数值的类型，使用自定义函数与标准函数基本相同。
1 / 1浙江省绍兴市2020届高三信息技术4月高考科目考试适应性（一模）试卷
一、选择题(本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求)
1．（2020·绍兴模拟）下列关于信息的说法，正确的是（　　）
A．未经证实的消息不是信息
B．计算机只能存储数字化后的信息
C．信息的加工和处理必须使用计算机才能完成
D．信息的表示、传播、存储可以不依附于载体
2．（2020·绍兴模拟）下列应用中，使用了人工智能技术的是（　　）
A．通过远程摄像头查看景区人流情况
B．编写VB程序对一批数据进行排序
C．把手机拍摄的照片上传到“云相册”
D．停车管理系统拍摄并识别车牌号码
3．（2020·绍兴模拟）输入用户名和密码登录某网站的邮箱并发送邮件，下列说法正确的是（　　）
A．登录邮箱的网页属于数据库管理系统
B．记录用户信息的数据表中，“用户名”列的数据称为记录
C．登录邮箱的过程中，需要查询数据库中对应的用户名和密码
D．发送电子邮件到对方邮箱的过程需要使用POP3协议
4．（2020·绍兴模拟）下列关于数制的说法，正确的是（　　）
A．二进制数1010001转换为十六进制数是A1
B．二进制数1110中的末位数码0对应权值是21
C．若二进制数末位为0，则该数对应的十进制数一定是偶数
D．若二进制数1110去掉首位码1，则新数110是原数1110的1/2
5．（2020·绍兴模拟）使用Photoshop软件制作“抗击新型肺炎”作品，部分界面如图所示。下列说法正确的是（　　）
A．“战胜新型肺炎”图层没有设置滤镜效果
B．“心形”图层对象不可视的原因是不透明度为100%
C．可以使用文字工具修改“众志成城”图层的文字大小
D．左下角数值“15%”修改为“30%”，则图像大小变为原来的2倍
6．（2020·绍兴模拟）将一个时长2分钟，采样频率44.1KHz，量化位数16、单声道未经压缩Wave音频文件压缩为MP3格式，压缩后MP3格式文件的大小为470KB，则音频的压缩比约为（　　）
A．11：1 B．11：2 C．22：1 D．176：1
7．（2020·绍兴模拟）某算法的部分流程图如图所示。执行这部分流程，变量c和s的值分别为（　　）
A．5 13 B．5 12 C．8 12 D．8 20
8．（2020·绍兴模拟）变量ch存储小写字母，下列VB表达式能表示其对应大写字母的是（　　）
A．Str(ch-32) B．Asc(Chr(ch)-32)
C．Chr(Abs(ch)-32) D．Chr(Asc(ch)-32)
9．（2020·绍兴模拟）给定任意的查找键，在序列3，5，8，12，15，23中进行查找，下列说法不正确的是（　　）
A．若用顺序查找实现，则最少查找1次
B．若用对分查找实现，则最少查找1次
C．若用顺序查找实现，则最多查找6次
D．若用对分查找实现，则最多查找4次
10．（2020·绍兴模拟）有如下VB程序段：
c=0
k=1
For i= 2 To 8
If I Mod 2=1 And a(k)k=i
c=c+1
End If
Next i
数组元素a(1)到a(8)的值依次为“3，6，2，4，13，7，13，20”，执行该程序段后，变量k和c的值分别为（　　）
A．5 1 B．5 2 C．6 2 D．8 3
11．（2020·绍兴模拟）有如下VB程序段：
i= 1
Do While i<= 6
a(i) = Int(Rnd()*10)+ 1
If a(i) Mod 2=i Mod 2 Then
i=i- 1
ElseIf i Mod 2= 0 Then
a(i)=a(i- 1)+ a(i)
End If
i=i+ 1
Loop
执行该程序段后，a(1)～a(6)各元素可能的值是（　　）
A．4，9，2，13，8，11 B．3，11，6，11，8，15
C．6，13，8，11，6，15 D．2，6，8，13，2，7
12．（2020·绍兴模拟）有多组“123”连接的字符串，如“123123123”，若删除其中一个任意位置的字符，如第8位字符“2”，则得到新字符串“12312313”。编写一个如图所示的VB程序，实现以下功能：输入非空新字符串s，找出被删除字符在原字符串中的位置。如输入“12312313”，则输出“原字符串的第8个字符被删除”。
s= Text1.Text
For i= 1 To Len(s)
a(i) = Val(Mid(s, i, 1))
Next
L=1: R= Len(s) + 1
Do While Lm= (L+R) \2
If Then
R= m
Else
L=m+ 1
End If
Loop
Label1 .Caption = "原字符串的第"+ + "个字符被删除"
上述程序段2个方框处的代码分别为（　　）
A．⑴ (m- 1) Mod 3 +1<>a(m) ⑵ Str(L)
B．⑴ (m- 1) Mod 3+<>a(m) ⑵ Str(m)
C．⑴ m Mod 3= a(m) ⑵ Str(L)
D．⑴ m Mod 3 = a(m) ⑵ Str(m)
二、非选择题(本题共4小题，4+8+7+7，共26分)
13．（2020·绍兴模拟）某慈善总会接收抗击新型冠状病毒感染肺炎的捐赠物资，使用Excel软件进行数据处理，如图所示。
请回答下列问题：
（1）F4单元格中的数据是使用SUMIF函数计算得到的，对G4：H4进行自动填充，G4单元格中的显示结果是　 　(单选，填字母：A .VALUE!/B ./C .DIV/0!/D .0)。(提示：SUMIF函数用于对区域中满足条件的单元格求和。
例如：=SUMIF(B3：B3126，F3，C3：C3126)表示求B3：B3126区域中所有“N95口罩”的总量)
（2）若要正确计算“分类捐助总量”的数据，可对F4单元格中的公式进行修改，再对G4：H4进行自动填充，则F4单元格中的公式是　 　。
（3）图中数据区域A2：C3126已进行了排序。排序时，选择的关键字为　 　。
（4）要筛选出所有口罩的数据，对“物资类别”列进行筛选，下列方法可行的是　 　(单选，填字母)。
14．（2020·绍兴模拟）用Flash软件打开“鱼戏莲叶间.fla”文件，编辑界面如图所示。
请回答下列问题：
（1）以下步骤属于脚本编写阶段的是：　 　(多选，填字母：A .分析作品的社会效益和经济效益/B .根据主题思想和内容，制定该作品的脚本大纲/C .考虑作品创作及运 需要的硬件设施/D .确定原始素材的获取方式/E.确定作品的主要界面)。
（2）图中“鱼”图层创建了鱼戏荷花间的动画，各关键帧中的“鱼”实例均由库中“鱼”影片剪辑元件(仅含摆尾动作)创建，则“鱼”图层的动画类型是　 　。
（3）“鱼”图层从左至右，各关键帧中“鱼”实例的坐标(X，Y)依次为(80，350)、(200，250)、(30，200)。若仅对第36帧执行“插入关键帧”操作，测试场景，下列说法正确的是　 　(多选，填字母：A .鱼游行路径不变/B
.鱼游行停顿时间约为1秒/C .鱼摆尾频率不变/D .鱼游行时间不变/E .第2到3秒鱼从左向右游行)。
（4）如图所示，为使“荷叶”图层的动画从第1帧开始，正确的操作是　 　。
（5）将作品发布为exe格式文件，要使打开该文件时单击“关闭”按钮关闭动画，按钮上的动作脚本是on(release){　 　}。
15．（2020·绍兴模拟）编号分别为1～n(n为偶数)的学生分成两组进行投篮比赛，奇数编号的为第一组，偶数编号的为第二组。对每个分组的成绩按从高到低排序，先比较处于分组第1位的两个队员成绩，成绩高的得1分，低的扣1分，相等均不得分，再依次比较处于分组相同位置的队员成绩，最后得到每组得分。
如10名运动员1号到10号的成绩分别是“13，6，9，8，10，11，10，14，16，13”，从高到低排序后，第一组的成绩依次是“16，13，10，10，9”，第二组的成绩依次是“14，13，11，8，6”。第1位的成绩分别是16和14，则第一组获胜得1分，第二组扣1分，再比较两个分组第2位的成绩13和13，则两组均不得分。依次处理，比较完剩余队员的成绩，可得第一组得分为2，第二组得分为－2。
编写一个VB程序，实现如下功能：在文本框Text1中依次输入成绩(偶数个整数，用逗号分隔并以逗号结尾)，单击“确定”按钮Command1后，在列表框List1中显示对阵编号、对阵成绩及两个分组的最后得分。程序运行界面如图所示。
（1）下列对象不具有Caption属性的是　 　(单选，填字母：mand1/B .Form1/C .Text1/D .Label1)
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
Dim s As String, ch As String, sum1 As Integer, sum2 As Integer
Dim bh (1 To 50) As Integer, cj(1 To 50) As Integer
s= Text1.Text
j= 1: k=0
For i= 1 To ①
ch = Mid(s, i, 1)
If Not (ch>=
"0" And ch <= "9") Then
k=k+1
bh(k)=k
cj(k) = Val(Mid(s, j,
i-j))
②
End If
Next i
For i= 1 To k-2 Step 2
For j= k To ③ Step -1
If cj(j)> cj(j-2)
Then
t= cj(j): cj(j)=cj(j-2):
cj(j-2)=t
t= bh(j): bh(j)=
bh(j-2): bh(j-2)=t
End If
Next j
Next i
sum1 = 0: sum2= 0
List1 .AddItem "对阵编号 对阵成绩"
For i=1 To k- 1 Step 2
If cj(i)> cj(i+1)
Then
sum1 = sum1 + 1: sum2
= sum2- 1
sum1=sum1-1: sum2=sum2+1
End If
List1.AddItem adj(bh(i)) + "<-->" + adj(bh(i+1)) + adj(cj(i)) + "<-->" + adj(cj(i+1)
Next i
List1.AddItem"第一组得分: "+ adj(sum1)
List1.AddItem"第二组得分: " + adj(sum2)
End Sub
Function adj(x As Integer) As String
‘函数功能:将数值x转换成字符串，并在字符串的左侧添加若干空格。代码略
End Function
①　 　②　 　③　 　
（3）程序代码中的加框处代码有误，请改正。
16．（2020·绍兴模拟）某医院接受捐赠物资，各项物资数据包含编号、品名和收支数量。编号构成规则是：急需等级(单个大写字母，由高到低划分为A、B、C三个等级)+物资种别(单个大写字母，至多有A～Z共26种)。为提高库存管理效率，现需要整理物资库存，要求：先对同种物资数量进行合并统计；然后按各种物资库存量，更新其急需等级，并依等级由高到低分类显示。等级划分规则为：当库存量低于3天所需，设置为A级；当库存量低于7天所需，设置为B级；否则设置为C级。
按上述要求，编写一个VB程序，功能如下：在列表框List1中显示整理前的所有物资相关数据，单击“库存合并统计”按钮Command1，在列表框List2中显示整理结果，程序运行界面如图所示。
（1）由图中示例可知，急需等级发生变化的物资有　 　种(填数字)。
（2）请在划线处填入合适的代码。
Const n= 2000 ‘物资总项数
Const nc = 26 ‘物资种别数，最多不会超过26
Dim items(1 To n) As String, supplies(1 To n) As String, totals(1 To n) As Long
Dim g(1 To2 * nc) As Long ‘存储各种物资3天、7天的需求数量
Dim b(1 To nc) As Long ‘存储各种物资的库存量
Dim c(1 To nc) As Long
Dim q(1 To nc) As Integer
Private Sub Form_Load()
‘本过程读取编号、品名、收支、需求的数据分别存储在数组items、supplies、totals、g数组中，并在List1中显示有关数据：g数组中g(1)、g(2)存储物资A的3天、7天的需求数量；g(3)、g(4)存储物资B的3天、7天的需求数……代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, top As Integer, bottom As Integer
Dim r As Long, s As String, t As Integer, m As Integer
For i=1 To nc.
b(i)=0:c(i)=0
Next i
For i=1 To n ‘统计每种物资的库存量
k = Asc(Mid(items(i), 2, 1))- Asc("A")+1
①
c(k)=i
Next i
j=0
For i=1 To nc
If c(i)<>0 Then j=j+1: q(j)=i
Next i
top = 0: bottom=j+ 1
j=1: k=bottom-1
Do While jm=q(j)
②
If rtop=top+1
If top<>j Then t= q(top): q(top)=q(j): q(j)=t
j=j+1
ElseIf r>= g(2*m) Then
bottom=bottom-1
t= q(j): q(j)=q(bottom): q(bottom)=t
Else
j=j+1
End If
Loop
List2.AddItem "编号 品名 库存"
List2. AddItem "------------------------------"
For i= 1 To k
s= fp(i, top, bottom)
List2.AddItem" " & s & " " & supplies(c(q(i))) & " " & b(q(i))
Next i
End Sub
Function fp(pos As Integer, head As Integer, tail As Integer) As String
If ③ Then
fp= "A"
ElseIf pos < tail Then
fp= "B"
Else
fp="C"
End If
fp = fp & Mid(items(c(q(pos))), 2, 1)
End Function
①　 　②　 　③　 　
答案解析部分
1．【答案】B
【知识点】信息及其特征
【解析】【解答】选项A：信息有真信息和虚假信息之分，未经证实的信息也是信息，本项错。选项B：计算机内部是以二进制来表示和存储信息的，所以计算机存储的信息都是数字信息，本项对。选项C：信息的加工和处理工具很多，如电视、电报、电话等都是信息加工和处理的工具，本项错。选项D：信息离不开载体而独立存在，故信息的表示、传播、存储都必须依附于载体，本项错。故答案选B。
【分析】本题考查的是信息的特征和信息技术。信息有五个基本特征和五个一般特征。基本特征：普遍性、依附性、传递性、价值性、时效性；一般特征：共享性、真伪性、不完全性、价值相对性、可处理性。信息技术（Information Technology，缩写IT），是主要用于管理和处理信息所采用的各种技术的总称。它主要是应用计算机科学和通信技术来设计、开发、安装和实施信息系统及应用软件。它也常被称为信息和通信技术（Information and Communications Technology, ICT）。主要包括传感技术、计算机与智能技术、通信技术和控制技术。
2．【答案】D
【知识点】人工智能的应用
【解析】【解答】选项A： 通过远程摄像头查看景区人流情况是对图像进行分析不是人工智能技术。选项B：编写VB程序对一批数据进行排序属于程序设计不是人工智能技术。选项C：把手机拍摄的照片上传到“云相册”属于图像处理和传递技术不是人工智能技术。选项D：停车管理系统拍摄并识别车牌号码属于图像识别技术是人工智能技术。故答案选D。
【分析】本题考查的是人工智能技术的范畴。人工智能（Artificial Intelligence），英文缩写为AI。它是研究、开发用于模拟、延伸和扩展人的智能的理论、方法、技术及应用系统的一门新的技术科学。人工智能包括机器人、语音识别、图像识别、生物识别、自然语言处理和专家系统等。
3．【答案】C
【知识点】电子邮件，电子公告板等信息交流方式
【解析】【解答】选项A： 登录邮箱的网页是服务器对用户的合法性进行检测的网页属于Web服务器上的网页文件，本项错。选项B：记录用户信息的数据表中，“用户名”列的数据称为字段而不是记录，本项错。选项C：登录邮箱时核对用户名和密码需要在数据库中的用户名和密码表中进行查询，本项对。选项D：发送电子邮件采用SMTP协议，接受邮件才使用POP3协议，本项错。故答案选C。
【分析】本题考查的是邮箱的使用。登录邮箱时核对用户名和密码需要在数据库中的用户名和密码表中进行查询，其过程实质为数据库查询操作。发送电子邮件采用SMTP协议，接受邮件使用POP3协议。
4．【答案】C
【知识点】进制及数制转换
【解析】【解答】选项A： 二进制数1010001转换为十六进制数是 51，本项错。选项B： 二进制数1110中的末位数码0对应权值是20，本项错。选项C： 二进制数的奇偶性与末位有关，末位数为0则为偶数，末位数为1则为奇数，本项对。选项D：1110为十进制数14，110为十进制数6，两者不是2倍关系，本项错。故答案选C。
【分析】本题考查的是二进制转为十六进制的方法和二进制数的奇偶性。二进制数转为十六进制数是将二进制数从整数部分最右位开始向左四位四位划开，最左边不足四位的使用0来补足四位，小数部分是从小数点开始自左向右四位四位划开，最右边不足四位的右补0，按上边对应关系每四位二进制转为一个十六进制数。二进制数的奇偶性与末位有关，末位数为0则为偶数，末位数为1则为奇数。二进制数从右向左的权值为20、 21 、……2n。
5．【答案】A
【知识点】图片加工常用工具的使用
【解析】【解答】选项A：由图可知“战胜新型脑炎”图层为文字图层，文字图层只能使用样式而不能使用滤镜，故本项对。选项B：由图可知“心形”图层前面的眼睛不显示说明心该图层设置为了不可见属性，本项错。选项C：由图知“众志成城”已经栅格化为普通图层不是文字图层所以不能使用文字工具修改该图层的文字大小，本项错。选项D：左下角的15%，是显示比例只是显示时使用不影响图像的实际大小，本项错。故答案选A。
【分析】本题考查的是文字图层的特点、不可见图层的特点以及显示比例。文字图层只能通过“文字”工具来设置文字的大小、颜色和字体等信息且“文字”图层可以设置图层样式但不能设置滤镜效果。在“文字”图层被删格化后，不能使用“文字”工具设置文字的字体、大小或颜色等。为了防止图层被误删除或修改可以将图层设置为不可见或锁定状态，在设置为不可见或锁定时不可以修改图层的名称、图层样式和滤镜效果，但可以复制和删除图层。显示比例只是显示时使用不影响图像的实际大小。
6．【答案】C
【知识点】声音、图像、视频编码
【解析】【解答】压缩前的音频文件的大小为：（44100*16*120）/8=10584000B=10335.9375KB, 10335.9375/470=21.99135638297872，其值接近于22。故答案选C。
【分析】本题考查的是音频文件的存储容量计算公式。其公式为：音频文件存储容量=(采样频率× 量化位数× 声道数× 时间) / 8（字节）或音频文件存储容量=（播放速率*音频文件时长）/8（字节）。在本题中先计算出压缩前的存储容量再计算其和压缩后的比例。
7．【答案】B
【知识点】算法的常用表示方法；算法的控制结构
【解析】【解答】先将a、b、s的值赋为1、1、2，然后判断s值是否小于等于10，如果小于等于10则执行循环，在循环体中将a和b的值赋给c，再将b的值赋给a，将c的值赋给b，再累加c的值到s中，再去判断s的值，如果s值仍小于等于10则再次执行循环体，直到s值大于10为止然后输出变量c和s的值，由流程图可知第一次循环：c=1+1=2，a=b=1，b=c=2，s=s+c=2+2=4，4<=10成立执行第二次循环：c=1+2=3，a=2，b=3，s=4+3=7，7<=10仍成立则执行第三次循环：c=2+3=5，a=3，b=5，s=7+5=12，12<=10不成立退出循环，输入c和s值：c=5，s=12。故答案选B。
【分析】本题考查的是使用流程图来表示算法。流程图是一种用规定的图形、指向线及文字说明来准确表示算法的图形，具有直观、形象的特点，能清楚地展现算法的逻辑结构。在分析算法时要由上到下由左到右分析并注意流程线的流向。
8．【答案】D
【知识点】运算符、基本运算与表达式
【解析】【解答】选项A：ch中存储的是小写字母，ch-32是一个字符串减去一个数值型无意义，故str（）的参数错误。选项B：chr（）是将一个数值型转为对应的字符串，而ch为字符串，故chr函数的参数错误。选项C：abs是求绝对值其参数为数值型而ch为字符型故abs的参数错误。选项D：asc函数是求字符串参数对应的ASCII码，再减去32后求出其对应的大写字母的ASCII码值，再由asc函数求出其对应的字母，本项对。故答案选D。
【分析】本题是求将小写字母转为对应大字字母的表达式以及常用的函数的功能。在求小写字母对应的大写字母时先用asc函数是求字符串参数对应的ASCII码，再减去32后求出其对应的大写字母的ASCII码值，再由asc函数求出其对应的字母，其表达式为：CHR（ASC(CH)-32)。str是将数值型转为字符串，asc是求参数对应的ASCII值，chr是求参数对应的字符，abs是求参数的绝对值。
9．【答案】D
【知识点】查找算法及程序实现
【解析】【解答】选项A：使用顺序查找法要一个一个数进行比较，若查找值为3则查找次数为1，本项对。选项B：对分查找法始终对比中间元素，如果要查找值为8则只查找1次，本项对。选项C：顺序查找法要一个一个比较，本题有6个元素故最坏算法为比较6次，本项对。选项D：对分查找法最大的查找次数为：最坏次数=int(log2x)+1=int（log 26)+1=int(2.58)+1=2+1=3，最坏次数为3次而不是4次，本项错。故答案选D。
【分析】本题考查的是顺序查找法和对分查找法的最小和最大比较次数。顺序比较法的比较次数范围为1-n，而对分查找法的比较次数范围为：1-int(log2x)+1。
10．【答案】A
【知识点】查找算法及程序实现
【解析】【解答】本题程序分析如下：
c=0 ‘将c的值赋为0
k=1 ‘将k的值赋为1
For i= 2 To 8 ‘使用i来控制循环，i的初值为2，终值为8，步长为1
If I Mod 2=1 And a(k)k=i ‘将i值赋给变量k
c=c+1 ‘将c值增1
End If ‘结束判断
Next i ‘结束循环
由以上程序分析知，本题是找数组中奇数元素的最大值，c用于统计交换次数，由此可以看出第5个数组元素13为最大值，a（1）值为3，a（3）值为2不进行交换，只有在比较a（1）和a（5）值时交换1次，故c=1，k=5。故答案选A。
【分析】本题考查的是顺序比较查找法。顺序查找就是在数组中按数组的下标逐一将数组元素和要查找的数进行比较，数组即可以有顺序也可以没有顺序，查找速度较慢。
11．【答案】C
【知识点】运算符、基本运算与表达式；常量、变量及变量的赋值
【解析】【解答】本题程序分析如下：
i= 1 ‘给i值赋初值1
Do While i<= 6 ‘在i小于等于6时进行循环
a(i) = Int(Rnd()*10)+ 1 ‘给数组元素a进行赋值，元素值的范围为1-10之间的整数
If a(i) Mod 2=i Mod 2 Then ‘如果元素值和所处的位置均为偶数或均为奇数时进行如下处理
i=i- 1 ‘将元素下标值减少1
ElseIf i Mod 2= 0 Then ‘否则在i值为偶数时进行如下处理
a(i)=a(i- 1)+ a(i) ‘将前一个元素值加上本元素值后赋给本元素值
End If ‘结束条件判断
i=i+ 1 ‘将i值增1
Loop ‘结束循环
由以上可以看出奇数元素的值不能是奇数且其值范围为1-10，偶数元素值不能为偶数，且偶数元素的值的范围为3-20且大于前面的元素的值且其与前面元素值的差在1-10范围内，选项A中第3个元素和第4个元素值之差为11，不在1-10之内错误，选项B：第一个元素值为奇数错误，选项C符合规则，选项D的第二个元素值为偶数错误。故答案选C。
【分析】本题考查的是产生指定范围内的随机整数的方法及判断数组可能值的方法。产生指定范围内的随机数公式为：int((上限-下限+1）*rnd）+下限。在判断一个数组可能的值要根据条件在整个数组中一一排除，如果有一个元素不合条件且排除该选项，剩余项即为答案。
12．【答案】A
【知识点】常量、变量及变量的赋值；查找算法及程序实现
【解析】【解答】本题程序分析如下：
s= Text1.Text ‘将文本框中输入的字符串赋给变量s
For i= 1 To Len(s) ‘使用i来控制循环，i的初值为1，终值为字符串s的长度，步长为1，i代表字符串的位置
a(i) = Val(Mid(s, i, 1)) ‘在字符串s中按i值中取一个字符并存储在数组a对应的元素中
Next ‘结束循环
L=1: R= Len(s) + 1 ‘给变量l赋初值为1，给r赋初值为 字符串长度加1，l、r为要查找数组的下标的下限和上限
Do While Lm= (L+R) \2 ‘求要查找数组的中值元素下标
If Then ‘如果中值下标值m的前一个值除以3的余数加上1后与该元素中值不相等时，说明在中值前删除了一个字符，则进行如下处理，故本处答案应填写：（m-1） mod 3+1<>a(m)
R= m ‘将要查找数组元素的上限设为现中值
Else ‘否则进行如下处理
L=m+ 1 ‘将要查找数组元素的下限设为现中值
End If ‘结束条件判断
Loop ‘结束循环
Label1 .Caption = "原字符串的第"+ + "个字符被删除" ‘使用标签1输出被删除的原位置，原位置在要查找数组的下标上限中，故本处答案应填写str（L）。
由以上分析知（1）处为如果中值下标值m的前一个值除以3的余数加上1后与该元素中值不相等时，说明在中值前删除了一个字符，则进行如下处理，故本处答案应填写：（m-1） mod 3+1<>a(m)。（2）处为使用标签1输出被删除的原位置，原位置在要查找数组的下标上限中，故本处答案应填写str（L）。故答案选A。
【分析】本题考查的是对分查找算法。对分法查找过程是先将一个数列放于一个有序数组中，然后比较中间数组元素的值与要查找的值，或中间数组的值比要查找的值大，则在前半个数组中查找，若中间数组的值比要查找的值小则在后半个数组中查找。查找方法仍是比较中间数组元素的值和要查找的值。以此类推直到查到或下限大于了上限（没查找）为止。
13．【答案】（1）D
（2）=SUMIF($B$3:$B$3 126,F3,$C$3:$C$3126)或=SUMIF($B3:$B3126,F3,$C3:$C3126)
（3）日期
（4）A
【知识点】表格数据的基本操作；表格数据的处理与计算
【解析】【解答】（1）由图可知F3的公式为 =SUMIF(B3：B3126，F3，C3：C3126) ，复制到G4时由于为相对引用则其公式变为 =SUMIF(C3：C3126，G3，D3：D3126) ，由公式知C列不包括“84消毒液”，D列没有数据，故计算结果为0，故本小题答案选D。
（2）若想使用G4和F4计算公式正确，可将计算条件区域和数值计算区域使用绝对引用或混合引用（混合引用使用相对行绝对列，故本小题答案应填写： =SUMIF($B$3:$B$3 126,F3,$C$3:$C$3126)或=SUMIF($B3:$B3126,F3,$C3:$C3126) 。
（3）由图可以看出日期相同的如A3到A6时间均为“2020/2/15”，A3123到A3126时间均为“2020/2/6”可知按日期的降序进行的排列，故本小题答案填写：日期。
（4）若要筛选出所有口罩的数据，则对“物资类别”筛选时筛选该列的值包含“口罩”即可，故本小题答案选A。
【分析】本题考查的是Excel的公式填写、公式中单元格地址引用、排序关键字的判断以及自动筛选。Excel的公式要根据实际情况选择需要的函数以及单元格数据区域，另外还要根据公式中的单元格是否变化来选择单元格引用为相对引用还是绝对引用或混合引用；Excel的地址引用有相对地址引用和绝对地址引用及混合地址引用3种方式，相对地址引用就是单元格地址前不加任何东西，单元格地址会随单元格的变化而变化，绝对单元格地址引用就是在单元格地址前加$号，不会随单元格的变化而变化。混合引用是在行号或列标前加$号，另一个不加，在复制公式时加$号的不变，不加$号的变化。在已经排好序的数据清单中找出排序的字段则要一列一列的分析数据看其是否呈升序或降序排列从而判断出排序的字段。筛选有两种自动筛选和高级筛选，在对文本列进行筛选进往往使用包含或不包含某个关键字来进行筛选。
14．【答案】（1）BD
（2）动画补间
（3）ACD
（4）选中“荷叶”图层的第24帧移至第1帧或选中“荷叶”图层的第1帧执行“清除关键帧”操作或其它等价操作
（5）fscommand("quit'");
【知识点】多媒体作品的规划和设计；时间轴、帧、图层、库的概念及基本操作；元件的类型与应用；常用影片控制函数的应用
【解析】【解答】（1）选项A： 分析作品的社会效益和经济效益属于应用需求分析不是脚本编写。选项B：根据主题思想和内容，制定该作品的脚本大纲属于编写脚本大纲是制定脚本大纲属于脚本编写。选项C：考虑作品创作及运 需要的硬件设施属于创作需求分析，不属于脚本编写。选项D：确定原始素材的获取方式属于媒体殼分解是脚本编写。选项E：确定作品的主要界面属于创作需求分析不是脚本编写阶段。故本小题答案选BD。
（2）由图可知“鱼”图层中的动画帧中是由紫色底纹加一黑色箭头，由此可以判断该图层为动画补间动画，故本小题答案填写：动画补间。
（3）选项A：由于只进行了“插入关键帧”操作则36帧复制了上一关键帧第24帧中的图像，其位置不会发生变化所以鱼的路径不会变化，本项对。选项B：仅对第36帧执行“插入关键帧”操作 ，就是将第24帧的内容复制到第36帧，鱼游行不会停留，本项错误。选项C：“鱼”图层是由“鱼”影片剪辑元件生成的，故鱼的摆尾频率不变，本项对。选项D：插入关键帧后鱼的游行时间不变，本项错。选项E：由选项B分析知第2秒到第3秒鱼处于同一位置，本项错。故本小题答案选ACD。
（4）为使“荷叶”图层的动画从第1帧开始则需将第24帧的图像移到第1帧，故本小题答案填写：选中“荷叶”图层的第24帧移至第1帧或选中“荷叶”图层的第1帧执行“清除关键帧”操作或其它等价操作 。
（5） 要使打开该文件时单击“关闭”按钮关闭动画 ，即设置在“关闭”按钮中按下或释放鼠标的动作为退出整个动画，故本小题答案填写： fscommand("quit'"); 。
【分析】本题考查的是多媒体作品的脚本编写、动画补间类型、插入关键帧操作、改变动画起始位置以及动作脚本设置。脚本编写包括：制定脚本大纲、编写文字脚本、编写制作脚本、媒体元素分解等四步骤。补间动画有二种：动画补间和形状补间。形状补间是由一个物体到另一个物体间的变化过程，像由三角形变成四方形等。时间轴上形状补间是淡绿色底加一个黑色箭头组成的。动画补间是由一个形态到另一个形态的变化过程，像移动位置，改变角度等。时间轴上动画补间是淡紫色底加一个黑色箭头组成的。插入的关键帧将复制上一关键帧中的图像。改变动画的起始位置即改变其起始帧。增加动作脚本可以增强多媒体作品的人机交互功能。
15．【答案】（1）C
（2）Len(s)或Len(Text1.Text)；j=i+1；i+2
（3）ElseIf cej(i)【知识点】常量、变量及变量的赋值；过程与自定义函数；排序算法及程序实现
【解析】【解答】（1）选项A：Command1为命令按钮，命令按钮有标题属性（Caption），选项B：Form1为窗体，窗体有Caption属性，选项C：Text1为文本框，文本框无Caption属性，选项D：Label1为标签，标签有Caption属性，故本小题答案选C。
（2）本题程序分析如下：
Private Sub Command1_Click() ‘命令按钮1单击事件过程开始
Dim i As Integer, j As Integer, k As Integer ‘定义整型变量i、j、k
Dim s As String, ch As String, sum1 As Integer, sum2 As Integer ‘定义自符串变量s、ch和整型变量sum1和sum2
Dim bh (1 To 50) As Integer, cj(1 To 50) As Integer ‘定义整型数组bh和cj
s= Text1.Text ‘将从文本框1中输入的字符串赋给变量s
j= 1: k=0 ‘初始化变量j的值为1，k的值为0，j代表字符串中字符的起始位置，k代表数组bh的下标值
For i= 1 To ① ‘使用i来控制循环，i的初值为1，终值为字符串s的长度，故本处答案应填写： Len(s)或Len(Text1.Text)
ch = Mid(s, i, 1) ‘按i值从字符串中中取一个字符赋给变量ch
If Not (ch>= "0" And ch <= "9") Then ‘如果ch不是字符型数字则进行如下处理
k=k+1 ‘将k值增1
bh(k)=k ‘将该编号存储到数组bh中
cj(k) = Val(Mid(s, j, i-j)) ‘从字符串s中中取出该学生的成绩存储到数组cj中
② ‘将j值设为i+1，代表下一个成绩的开始位置，故本处答案应填写：j=i+1
End If ‘结束条件判断
Next i ‘结束循环
For i= 1 To k-2 Step 2 ‘使用i来控制循环，i的初值为1，终值为k-2，步长为2，该循环用于分别降序排序奇数元素和偶数元素
For j= k To ③ Step -1 ‘使用j来控制内层循环，j的初值为k终值为i+2，步长为-1，该循环由数组cj的后面元素向前比较，采用冒泡法将大数冒泡到数组元素下标小的位置上，故本处答案应填写： i+2
If cj(j)> cj(j-2) Then ‘如果数组元素c（j）比其前两个元素值大时进行如下处理
t= cj(j): cj(j)=cj(j-2): cj(j-2)=t ‘借助第三变量t交换成绩数组cj的两个元素值
t= bh(j): bh(j)= bh(j-2): bh(j-2)=t ‘借助第三变量t交换编号数组bh的两个元素值
End If ‘结束条件判断
Next j ‘结束内层循环
Next i ‘结束外层循环
sum1 = 0: sum2= 0 ‘将sum1和sum2初始化为0，这两个变量用于分别累加两个队的成绩，即sum1为1队的总成绩，sum2为偶数队的总成绩
List1 .AddItem "对阵编号 对阵成绩" ‘在列表框中输出标题行
For i=1 To k- 1 Step 2 ‘使用i来控制循环，i的初值为1，终值为k-1，步长为2
If cj(i)> cj(i+1) Then ‘如果奇数位（1队）的成绩大于偶数位元素（2队）的成绩时则进行如下处理
sum1 = sum1 + 1: sum2 = sum2- 1 ‘将1队的成绩增1，将2队的成绩减少1
‘否则如果奇数位（1队）的成绩小于偶数位（2队）的成绩时进行如下处理，另外还有一种平的情况，故不能使用else而使用elseif，故本处应改为： ElseIf cej(i)sum1=sum1-1: sum2=sum2+1 ‘将1队总成绩减少1，将2队总成绩加1
End If ‘结束条件判断
List1.AddItem adj(bh(i)) + "<-->" + adj(bh(i+1)) + adj(cj(i)) + "<-->" + adj(cj(i+1) ‘在列表框中的一行中输出两队的对阵编号和成绩
Next i ‘结束循环
List1.AddItem"第一组得分: "+ adj(sum1) ‘在列表框1中输出第一组的得分
List1.AddItem"第二组得分: " + adj(sum2) ‘在列表框1中输出第二组的得分
End Sub ‘结束事件过程
Function adj(x As Integer) As String ‘自定义函数adj开始
‘函数功能:将数值x转换成字符串，并在字符串的左侧添加若干空格。代码略
End Function ‘自定义函数adj结束
由以上程序分析知， ① 处为：使用i来控制循环，i的初值为1，终值为字符串s的长度，故本处答案应填写： Len(s)或Len(Text1.Text)。② 处为：将j值设为i+1，代表下一个成绩的开始位置，故本处答案应填写：j=i+1。 ③ 处为用j来控制内层循环，j的初值为k终值为i+2，步长为-1，该循环由数组cj的后面元素向前比较，采用冒泡法将大数冒泡到数组元素下标小的位置上，故本处答案应填写： i+2。
（3）加框处为：否则如果奇数位（1队）的成绩小于偶数位（2队）的成绩时进行如下处理，另外还有一种平的情况，故不能使用else而使用elseif，故本处应改为： ElseIf cej(i)【分析】本题考查的是使用冒泡法进行排序的算法。在使用冒泡法进行排序时使用i控制外层循环，代表每次的比较轮数，j控制内层循环代表每轮比较次数，在进行一轮比较后将最大值放到数列的末尾，在经过n-1轮比较后将输入的数排成一个由小到大（或由大到小）的数列。
16．【答案】（1）2
（2）b(k)= b(k) + totals(i)；r= b(q(j))或r= b(m)；pos <= head
【知识点】常量、变量及变量的赋值；过程与自定义函数；排序算法及程序实现
【解析】【解答】（1）由图可知“外科口罩”由C级调整为B级，“防护衣”由B级调整为A级，其他级别没有变化，故本小题答案填写 ：2。
（2）本题程序分析如下：
Const n= 2000 ‘定义符号常量n，n代表物资总项数
Const nc = 26 ‘定义符号常量nc，nc为物资种别数，最多不会超过26种
Dim items(1 To n) As String, supplies(1 To n) As String, totals(1 To n) As Long ‘定义字符型数组items和字符型数组supplies以及长整型变量totals
Dim g(1 To2 * nc) As Long ‘定义长整型数组g，g用于存储各种物资3天、7天的需求数量
Dim b(1 To nc) As Long ‘定义长整型数组b，b用于存储各种物资的库存量
Dim c(1 To nc) As Long ‘定义长整型数组c
Dim q(1 To nc) As Integer ‘定义整型数组q
Private Sub Form_Load() ‘窗体加载事件过程
‘本过程读取编号、品名、收支、需求的数据分别存储在数组items、supplies、totals、g数组中，并在List1中显示有关数据：g数组中g(1)、g(2)存储物资A的3天、7天的需求数量；g(3)、g(4)存储物资B的3天、7天的需求数……代码略
End Sub ‘结束窗体加载事件
Private Sub Command1_Click() ‘命令按钮1单击事件过程开始
Dim i As Integer, j As Integer, k As Integer, top As Integer, bottom As Integer ‘定义整型变量i、j、k、top和bottom
Dim r As Long, s As String, t As Integer, m As Integer ‘定义长整型变量r和字符串变量s和整型变量m
For i=1 To nc ‘ 使用i来控制循环，i的初值为1，终值为nc，i代表货物种类
b(i)=0:c(i)=0 ‘初始化数组b和数组c的每一个元素值为0
Next i ‘结束循环
For i=1 To n ‘使用i来控制循环，i的初值为1，终值为n，步长为1，该循环用于统计每种物资的库存量
k = Asc(Mid(items(i), 2, 1))- Asc("A")+1 ‘从编号的第二位中取出字母编号并求出其数字编号，并将数字编号赋给变量k
① ‘将该种物资的收支情况累加到对应数组b中，故本处应填写： b(k)= b(k) + totals(i)
c(k)=i ‘将i值存储到数组c对应的元素中
Next i ‘结束循环
j=0 ‘初始化变量j值为0
For i=1 To nc ‘使用i来控制循环，i的初值为1，终值为nc，步长为1，i代表物资种类
If c(i)<>0 Then j=j+1: q(j)=i ‘如果数组c对应的元素值不为0，即该种物资有收支时则将j增1，将i值存储到数组q中，j代表物资种类
Next i ‘结束循环
top = 0: bottom=j+ 1 ‘初始化变量top的值为0，变量bottom的值为j值多1
j=1: k=bottom-1 ‘初始化变量j值为1，k值为bottom值少1
Do While jm=q(j) ‘将j物资编号赋给变量m
② ‘将该物资的存储量赋给变量r，故本处答案填写： r= b(q（j）))或r= b(m)
If rtop=top+1 ‘将top值增1
If top<>j Then t= q(top): q(top)=q(j): q(j)=t ‘如果top值与j值不相等时则借助第三变量t交换数组q中的两个元素值，实现按降序排序
j=j+1 ‘将j值增1
ElseIf r>= g(2*m) Then ‘否则如果r值（m的库存值）大于7天的存储量时进行如下处理
bottom=bottom-1 ‘将bottom值减少1
t= q(j): q(j)=q(bottom): q(bottom)=t ‘借助第三变量t交换数组q中的两个元素值
Else ‘否则进行如下处理
j=j+1 ‘将j值增1
End If ‘结束条件判断
Loop ‘结束循环
List2.AddItem "编号 品名 库存" ‘在列表框2中输出标题行
List2. AddItem "------------------------------" ‘输出分隔线
For i= 1 To k ‘使用i来控制循环，该循环用于输出各物资情况
s= fp(i, top, bottom) ‘使用自定义函数对物资进行编号
List2.AddItem" " & s & " " & supplies(c(q(i))) & " " & b(q(i)) ‘在列表框2中输出该物资的编号、品名和库存数
Next i ‘结束循环
End Sub ‘结束命令按钮1单击事件过程
Function fp(pos As Integer, head As Integer, tail As Integer) As String ‘自定义函数fq的开始，该函数共有3个参数，参数1代表现有库存数量，参数2代表3天的需求量，参数3代表7天的需求量
If ③ Then ‘如果参数pos的值小于head值时进行如下处理，故本处答案应填写： pos <= head
fp= "A" ‘将函数值设为等级A
ElseIf pos < tail Then ‘否则参数1小于参数3时进行如下处理
fp= "B" ‘将函数值设为等级B
Else ‘否则，即参数1大于等于参数3时进行如下处理
fp="C" ‘将函数值设为等级C
End If ‘结束条件判断
fp = fp & Mid(items(c(q(pos))), 2, 1) ‘将等级与对应的物资类别合为一个物资编号并赋给函数fq
End Function ‘结束自定义函数
由以上程序分析知， ①处为：将该种物资的收支情况累加到对应数组b中，故本处应填写： b(k)= b(k) + totals(i)。
②处为：将该物资的存储量赋给变量r，故本处答案填写： r= b(q（j）))或r= b(m)。
③处为：如果参数pos的值小于head值时进行如下处理，故本处答案应填写： pos <= head 。
【分析】本题考查的是自定义函数的定义和使用。自定义函数使用Function关键字来定义，在定义时注意参数和函数值的类型，使用自定义函数与标准函数基本相同。
1 / 1