资源简介

浙江省衢州市2020-2021学年高二下学期信息技术期末6月教学质量检测试卷
1．（2021高二下·衢州期末）下列关于信息和信息技术说法正确的是（　　）
A．同一个信息用不同的方式表达，其价值有可能不同
B．由于信息可以脱离它所反映的事物被存储、保存和传播，所以信息可以脱离载体
C．信息技术的诞生依赖于计算机技术和网络技术
D．摄影技术、电影技术、广播和电视技术是典型的现代信息技术
【答案】A
【知识点】信息及其特征；信息技术的概念与关键技术；信息技术的发展历史
2．（2021高二下·衢州期末）下列关于网页和电子邮件的说法正确的是（　　）
A．HTML文件可以用浏览器解释执行
B．网页中一定包含文字、图片、超链接三种基本元素
C．使用网页登录邮箱收发邮件的过程中没有用到HTTP协议
D．POP3协议的功能是实现将电子邮件从发件人电子邮箱接收到收件人电子邮箱
【答案】A
【知识点】电子邮件，电子公告板等信息交流方式；网络协议；网页组成元素
3．（2021高二下·衢州期末）使用Access软件设计某人事管理系统的“员工基本信息”数据表，用于存储如图所示的数据。
员工号 姓名 性别 职位 出生年月 电话 所属部门
GC001 王海 男 主管 1986.10. 15 13564847008 工程部
JS002 关仁 男 组长 1990.5. 23 15564847201 技术部
SC003 孙璐 女 　 1993.7.9 17564847226 市场部
…… …… …… …… …… …… ……
下列相关描述正确的是（　　）
A．该人事管理系统属于数据库管理系统
B．图中“员工号”列在数据表中相应字段的类型可以设置为“自动编号”
C．图中第三条数据在数据表中的字段数与其它记录不同
D．若“出生年月”设为“日期/时间”类型，则“1992年2月18 日”为合法输入格式
【答案】D
【知识点】数据库的分类与应用；数据表、字段、记录的编辑
4．（2021高二下·衢州期末）使用UItraEdit软件观察字符“衢州Exam！”的内码，部分界面如图所示。
下列说法正确的是（　　）
A．字符“州”的内码值是E9D6H
B．小写字母“z”的内码值是80H
C．字符“！”可能是在全角状态下输入的
D．字符“衢州Exam！”内码共占9个字节
【答案】C
【知识点】字符编码
5．（2021高二下·衢州期末）使用GoldWave软件编辑某音频文件，部分界面如图所示。
下列说法正确的是（　　）
A．该音频文件是Wave格式的，使用GoldWave软件可将其转换为其它格式
B．执行“删除”命令后并直接保存，则其容量变为原来的3/4
C．通过“更改音量”命令提升音量，音频的采样频率同步变大
D．执行“插入静音”命令，设置时间为5秒后直接保存，音频存在5秒静音
【答案】A
【知识点】多媒体组成元素及文件格式；声音素材的基本处理
6．（2021高二下·衢州期末）将一段时长1分钟，分辨率为1024*768像素、位深度为3字节、25帧每秒的未经压缩无声视频，以压缩比为10：1保存为MP4格式，则压缩后的视频容量约为（　　）
A．5.6MB B．42.2MB C．337.5MB D．3.3GB
【答案】C
【知识点】声音、图像、视频编码
7．（2021高二下·衢州期末）下列VB表达式中值为0的是(　　)
A．Len("-20") + 20 B．Sqr(36) + Int(-5． 6)
C．Asc(“0”) D．1001 Mod 100 \ 10
【答案】B
【知识点】运算符、基本运算与表达式；常用标准函数
8．（2021高二下·衢州期末）某算法的部分流程图如图所示。执行这部分流程后，输出i，s的值分别是(　　)
A．8，18 B．13，21 C．15，21 D．13，15
【答案】B
【知识点】流程图识读
9．（2021高二下·衢州期末）有如下VB程序段：
X=a(1)：s=0
For i=2 To 5
If a(i) > x Then
x = a(i)
ElseIf a(i) < x Then
s = s+a(i)
End If
Next i
数组元素a(1)~a(5)的值依饮为“1，2，3，2，1”，执行该程序段后s的值为（　　）
A．3 B．6 C．8 D．9
【答案】A
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
10．（2021高二下·衢州期末）有如下VB程序段，其程序功能为：在文本框Text1中输入一段仅由英文字母、标点符号和空格组成的句子(以“.”结尾)，统计该句子中单词个数和单词的平均长度，程序界面如题图所示。
Dim s As String， ch As String
Dim i As Integer， cnt As Integer， sum As Integer， num As Integer
Dim ave As Single
s=Text1.Text：num=0：ch=""：cnt=0：sum=0
For i =1 To len(s)
ch = Mid(s， i， 1)
If ⑴ Then
cnt=cnt+1
Else
If cnt>0 Then
num=num+1
⑵
⑶
End If
End If
Next i
ave=sum/num
Label1. Caption =“总共有”+ Str(num) +“个单词，平均长度为：”+ Str (ave)
划线处可选代码为：
①sum = sum + cnt
②sum = sum + num
③cnt = 0
④cnt = 1
⑤Not(ch =””Or ch = “.”)
⑥ch>=“a” And ch<=“z” or ch>=“A”And ch<=“Z”
⑴、⑵、⑶处语句分别为(　　)
A．⑥①④ B．⑤②③ C．⑤③① D．⑥①③
【答案】D
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
11．（2021高二下·衢州期末）某对分查找算法的VB程序段如下：
'随机产生包含8个整型元素的降序序列，依次存入数组a，代码略
i =1：j= 8：c=0
Key = Val(Text1. Text)
Do While i< = j
n=(i+j+1)\2
c=c+1
If a(m)> Key Then i=m+1 Else j=m-1
Loop
Text2. Text = Str (c)
在文本框Textl1中输入待查找的数，执行该程序段后，下列说法错误的是(　　)
A．i的值为j+1 B．c的值为3或4
C．i的值可能为9 D．j的值不可能为0
【答案】D
【知识点】查找算法及程序实现
12．（2021高二下·衢州期末）有如下VB程序段：
Dim a(1 To 5) As Integer
Randomize
a(1)=2：a(2)=6：a(3)=9：a(4)=3：a(5)=4
For i=1 To 4
For j=1 To 5-i
If a(j)+Int (Rnd*2)< a (j+1) Then
k=a(j)：a(j)=a(j+1)：a(j+1)=k
End If
Next j
Next i
执行该程序段后，a(1)~a(5)的值不可能是(　　)
A．9，6，2，3， 4 B．9，6，2， 4， 3
C．9，6，3，4，2 D．9， 6，4，2，3
【答案】B
【知识点】排序算法及程序实现
13．（2021高二下·衢州期末）小王收集了某公司员工六月的薪资数据，并用Excel软件进行处理，如图a所示。
请回答下列问题：
（1）区域K4：M7中的数据是从K4单元格利用自动填充功能得到的，则L5单元格中的公式是=AVERAGEIF (　 　)。
（2）根据题图a中的“平均薪资统计”表数据直接生成如图b所示的图表，则创建该图表的数据区域是　 　。
（3）结合题的图a和图b，下列说法正确的是 (多选，填字母)。
A．若不慎将H列数据清除，则M4：M7显示结果是0.00
B．若将区域K4：M7设置小数位数为1位，则图b所示的图表不会发生变化
C．若将区域B3：H39按照“工资总额”进行降序排序，则图b所示的图表会发生变化
D．若将区域B3：H39先以“职务”为“高级工程师”进行筛选，再以“加班工资”为关键字降序排序，则排在最前面的是加班工资最多的高级工程师。
【答案】（1）$D$4： $D$39， $J5， G$4：G$39
（2）J3：M7
（3）B；D
【知识点】表格数据的处理与计算；数据分析
14．（2021高二下·衢州期末）小王制作主题为“衢州城市数据大脑”的多媒体作品。首先使用Photoshop软件处理图像，然后使用Flash软件制作动画作品。请回答下列问题：
（1）处理图像的部分界面如题图a脉。下列说法错误的是 (多选，填字母)。
图a
A．该图像文件的位深度为24位
B．修改左下角缩放比例为100%，则该图像的像素总数会增加
C．可以使用“自由变换”命令改变“主题”图层中文字的大小
D．将“主题”图层的图层样式拷贝到“logo”图层，则“logo”图层显示两种图层样式效果
E．可以将“大脑”图层移动到“背景”图层下方
（2）制作动画作品的部分界面如图b所示。当前状态下在“背景”图层　 　(单选，填字母：A .能/ B .不能)添加“背景音乐.mp3”文件。
图b
（3）“教育就业”图层第11帧到第20帧实现了“教育就业”按钮实例从透明到不透明的动画效果，该动画类型是　 　(单选，填字母：A .形状补间动画/ B
.动画补间动画)。
（4）测试当前场景时，在第65帧停止并出现“exit"按钮。为了使“exit"按钮在动画一开始就出现，其它动画效果保持不变，应进行的操作是　 　。
（5）测试影片时，停在当前场景最后一帧，单击“衣食住行”按钮，跳转到“衣食住行篇”场景第1帧继续播放，以下脚本命令正确的是 (多选，填字母)。
A．on(release) {gotoAndPlay(“衣食住行篇”，1)；}
B．on (press) {gotoAndPlay(1)；}
C．on(press) {play()；}
D．on (press) {play(“衣食住行篇”，1)；}
E．on(release) {gotoAndStop(“衣食住行篇”，1)； play()；}
【答案】（1）B；D；E
（2）A
（3）B
（4）复制“退出按钮”图层第65帧上的按钮实例到第一帧相同位置或对“退出按钮"图层第65帧执行复制帧，再对第1帧执行粘贴帧，并清除第一帧动作脚本或其他等价答案
（5）A；C；E
【知识点】图层及图层的基本操作；动画的类型；时间轴、帧、图层、库的概念及基本操作；动画的实现；常用影片控制函数的应用
15．（2021高二下·衢州期末）某市要组织高中生参加竞技比赛。现要求在报名的n名学生中挑选出m名身高大于等于175cm的学生，被挑选出的学生两两组队，且队内两名成员的体重之和不能超过175公斤。
编写VB程序，实现上述挑选、组队功能。运行程序，在列表框List1中显示m名身高大于等于175cm的学生信息，且根据体重数值降序排序。单击“组队”按钮，在符合条件的情况下尽可能多的两两组队，并将组队结果显示在列表框List2中。程序运行界面如图所示，实现上述功能的VB程序如下。
请回答下列问题：
（1）观察代码可知，该程序“组队”按钮的对象名为　 　。
（2）请在划线处填入合适的代码。
Const n = 20
Dim id(1 To 20) As Integer， h(1 To 20) As Integer，w(1 To 20) As Integer
Dim m As Integer
Private Sub Form_Load(　　)
'从数据库中读取n名学生的编号、身高和体重分别存储在数组id、h和w中。
'代码略。
m=0 '存储身高≥175cm的学生总数
For i=1 To n
k=i
For j=i+1 To n
If h(j) >= 175 Then
If Then k= j '⑶
End If
Next j
If k<>I Then
t = id(i)： id(i) = id(k)： id(k) = t
t=h(i)：h(i)=h(k)：h(k)=t
t=w(i)：w(i)=w(k)：w(k)=t
End If
If h(i) < 175 Then
m=i-1
Exit For '结束挑选
Else
　 　
End If
List1.AddItem str(id(i)) +“”+ Str(h(i)) +””+ Str(w(i))
Next i
End Sub
Private Sub Com_Click()
L=1：R=m
Do While L< R
If 　 　 Then
List2. AddItem Str(id(L)) + “号和”+ Str(id(R)) +“号组队”
L=L+1
R=R-1
Else
　 　
End If
Loop
End Sub
（3）程序中加框处代码有错，请改正。
【答案】（1）Com或com
（2）m=m+1；w(L)+ w(R)<=175；L=L+1
（3）h(k) < 175 Or w(j) > w(k)
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；排序算法及程序实现
16．（2021高二下·衢州期末）高一年级开展“7选3”选科调查，现要求每位学生在预选卡上填写个人信息(班级、学号、姓名)并选涂三门选考科目(少于或多于三门的预选卡作废)。如小王预选组合是“物生技”其三门选考科目填涂情况如图a所示。预选卡回收后，通过读卡机将相关信息读入数据库中，其中选科信息存储规则：按照“政治、历史、地理、物理、化学、生物、技术”顺序存储为一个7位二进制字符串。因此小王的选科信息二进制编号存储为“0001011”。
为了了解选科预选情况，统计选科组合种类及每种组合人数。小王设计并制作了VB程序。运行该程序，单击“读取”按钮，从数据库中读取信息并显示在列表框List1中；单击“统计”按钮，在列表框List2中显示每种选科组合人数(无人选择的组合不显示)及选科组合种类。程序运行界面如图b所示。
（1）若某个学生“7选3”的预选选科组合为“政史生”，则该选科组合对应的+进制编号为　 　。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim cla(1 To 1000) As Integer ‘班级号
Dim snum(1 To 1000) As String ‘学号
Dim sname(1 To 1000) As String ‘姓名
Dim xinxi(1 To 1000) As String ‘选科信息二进制编号
Dim xknum(1 To 127) As Integer ‘各选科组合人数
Dim n As Integer
Private Sub Command1_Click()
‘从数据库中读取n名学生的班级、学号、姓名和选科信息分别存储在数组cla、snum、sname和xinxi中，并输出在列表框List1中，代码略。
End Sub
Private Sub Command2_ Click (　　)
Dim t As Integer， i As Integer， count As Integer
For i=1 To n
t = BtoD(xinxi(i))
　 　
Next i
count = 0
For i=127 To 1 Step-1 ‘选科组合十进制编号的范围
If 　 　 Then
count = count + 1
List2.AddItem change(i) +””+ Str (xknum(i)
End If
Next i
List2. AddItem“选科组合种类共有：”+ Str (count) + “种”
End Sub
Function BtoD(s As String) As Integer ‘将选科信息二进制编号转换为十进制编号
Dim x As Integer， i As Integer
x=0
For i=1 To 7
If Mid(s，i，1) = “1” Then
x= 　 　
End If
Next i
BtoD = x
End Function
Function change(c As Integer) As String
‘该函数的功能是将选科十进制编号转换成对应的组合名称，代码略。
End Function
【答案】（1）98
（2）xknum(t) =xknum(t)+1；xknum(i)>0 或xknum(i)>=1或xknum<>0；x+2^ (7-i)
【知识点】过程与自定义函数
1 / 1浙江省衢州市2020-2021学年高二下学期信息技术期末6月教学质量检测试卷
1．（2021高二下·衢州期末）下列关于信息和信息技术说法正确的是（　　）
A．同一个信息用不同的方式表达，其价值有可能不同
B．由于信息可以脱离它所反映的事物被存储、保存和传播，所以信息可以脱离载体
C．信息技术的诞生依赖于计算机技术和网络技术
D．摄影技术、电影技术、广播和电视技术是典型的现代信息技术
2．（2021高二下·衢州期末）下列关于网页和电子邮件的说法正确的是（　　）
A．HTML文件可以用浏览器解释执行
B．网页中一定包含文字、图片、超链接三种基本元素
C．使用网页登录邮箱收发邮件的过程中没有用到HTTP协议
D．POP3协议的功能是实现将电子邮件从发件人电子邮箱接收到收件人电子邮箱
3．（2021高二下·衢州期末）使用Access软件设计某人事管理系统的“员工基本信息”数据表，用于存储如图所示的数据。
员工号 姓名 性别 职位 出生年月 电话 所属部门
GC001 王海 男 主管 1986.10. 15 13564847008 工程部
JS002 关仁 男 组长 1990.5. 23 15564847201 技术部
SC003 孙璐 女 　 1993.7.9 17564847226 市场部
…… …… …… …… …… …… ……
下列相关描述正确的是（　　）
A．该人事管理系统属于数据库管理系统
B．图中“员工号”列在数据表中相应字段的类型可以设置为“自动编号”
C．图中第三条数据在数据表中的字段数与其它记录不同
D．若“出生年月”设为“日期/时间”类型，则“1992年2月18 日”为合法输入格式
4．（2021高二下·衢州期末）使用UItraEdit软件观察字符“衢州Exam！”的内码，部分界面如图所示。
下列说法正确的是（　　）
A．字符“州”的内码值是E9D6H
B．小写字母“z”的内码值是80H
C．字符“！”可能是在全角状态下输入的
D．字符“衢州Exam！”内码共占9个字节
5．（2021高二下·衢州期末）使用GoldWave软件编辑某音频文件，部分界面如图所示。
下列说法正确的是（　　）
A．该音频文件是Wave格式的，使用GoldWave软件可将其转换为其它格式
B．执行“删除”命令后并直接保存，则其容量变为原来的3/4
C．通过“更改音量”命令提升音量，音频的采样频率同步变大
D．执行“插入静音”命令，设置时间为5秒后直接保存，音频存在5秒静音
6．（2021高二下·衢州期末）将一段时长1分钟，分辨率为1024*768像素、位深度为3字节、25帧每秒的未经压缩无声视频，以压缩比为10：1保存为MP4格式，则压缩后的视频容量约为（　　）
A．5.6MB B．42.2MB C．337.5MB D．3.3GB
7．（2021高二下·衢州期末）下列VB表达式中值为0的是(　　)
A．Len("-20") + 20 B．Sqr(36) + Int(-5． 6)
C．Asc(“0”) D．1001 Mod 100 \ 10
8．（2021高二下·衢州期末）某算法的部分流程图如图所示。执行这部分流程后，输出i，s的值分别是(　　)
A．8，18 B．13，21 C．15，21 D．13，15
9．（2021高二下·衢州期末）有如下VB程序段：
X=a(1)：s=0
For i=2 To 5
If a(i) > x Then
x = a(i)
ElseIf a(i) < x Then
s = s+a(i)
End If
Next i
数组元素a(1)~a(5)的值依饮为“1，2，3，2，1”，执行该程序段后s的值为（　　）
A．3 B．6 C．8 D．9
10．（2021高二下·衢州期末）有如下VB程序段，其程序功能为：在文本框Text1中输入一段仅由英文字母、标点符号和空格组成的句子(以“.”结尾)，统计该句子中单词个数和单词的平均长度，程序界面如题图所示。
Dim s As String， ch As String
Dim i As Integer， cnt As Integer， sum As Integer， num As Integer
Dim ave As Single
s=Text1.Text：num=0：ch=""：cnt=0：sum=0
For i =1 To len(s)
ch = Mid(s， i， 1)
If ⑴ Then
cnt=cnt+1
Else
If cnt>0 Then
num=num+1
⑵
⑶
End If
End If
Next i
ave=sum/num
Label1. Caption =“总共有”+ Str(num) +“个单词，平均长度为：”+ Str (ave)
划线处可选代码为：
①sum = sum + cnt
②sum = sum + num
③cnt = 0
④cnt = 1
⑤Not(ch =””Or ch = “.”)
⑥ch>=“a” And ch<=“z” or ch>=“A”And ch<=“Z”
⑴、⑵、⑶处语句分别为(　　)
A．⑥①④ B．⑤②③ C．⑤③① D．⑥①③
11．（2021高二下·衢州期末）某对分查找算法的VB程序段如下：
'随机产生包含8个整型元素的降序序列，依次存入数组a，代码略
i =1：j= 8：c=0
Key = Val(Text1. Text)
Do While i< = j
n=(i+j+1)\2
c=c+1
If a(m)> Key Then i=m+1 Else j=m-1
Loop
Text2. Text = Str (c)
在文本框Textl1中输入待查找的数，执行该程序段后，下列说法错误的是(　　)
A．i的值为j+1 B．c的值为3或4
C．i的值可能为9 D．j的值不可能为0
12．（2021高二下·衢州期末）有如下VB程序段：
Dim a(1 To 5) As Integer
Randomize
a(1)=2：a(2)=6：a(3)=9：a(4)=3：a(5)=4
For i=1 To 4
For j=1 To 5-i
If a(j)+Int (Rnd*2)< a (j+1) Then
k=a(j)：a(j)=a(j+1)：a(j+1)=k
End If
Next j
Next i
执行该程序段后，a(1)~a(5)的值不可能是(　　)
A．9，6，2，3， 4 B．9，6，2， 4， 3
C．9，6，3，4，2 D．9， 6，4，2，3
13．（2021高二下·衢州期末）小王收集了某公司员工六月的薪资数据，并用Excel软件进行处理，如图a所示。
请回答下列问题：
（1）区域K4：M7中的数据是从K4单元格利用自动填充功能得到的，则L5单元格中的公式是=AVERAGEIF (　 　)。
（2）根据题图a中的“平均薪资统计”表数据直接生成如图b所示的图表，则创建该图表的数据区域是　 　。
（3）结合题的图a和图b，下列说法正确的是 (多选，填字母)。
A．若不慎将H列数据清除，则M4：M7显示结果是0.00
B．若将区域K4：M7设置小数位数为1位，则图b所示的图表不会发生变化
C．若将区域B3：H39按照“工资总额”进行降序排序，则图b所示的图表会发生变化
D．若将区域B3：H39先以“职务”为“高级工程师”进行筛选，再以“加班工资”为关键字降序排序，则排在最前面的是加班工资最多的高级工程师。
14．（2021高二下·衢州期末）小王制作主题为“衢州城市数据大脑”的多媒体作品。首先使用Photoshop软件处理图像，然后使用Flash软件制作动画作品。请回答下列问题：
（1）处理图像的部分界面如题图a脉。下列说法错误的是 (多选，填字母)。
图a
A．该图像文件的位深度为24位
B．修改左下角缩放比例为100%，则该图像的像素总数会增加
C．可以使用“自由变换”命令改变“主题”图层中文字的大小
D．将“主题”图层的图层样式拷贝到“logo”图层，则“logo”图层显示两种图层样式效果
E．可以将“大脑”图层移动到“背景”图层下方
（2）制作动画作品的部分界面如图b所示。当前状态下在“背景”图层　 　(单选，填字母：A .能/ B .不能)添加“背景音乐.mp3”文件。
图b
（3）“教育就业”图层第11帧到第20帧实现了“教育就业”按钮实例从透明到不透明的动画效果，该动画类型是　 　(单选，填字母：A .形状补间动画/ B
.动画补间动画)。
（4）测试当前场景时，在第65帧停止并出现“exit"按钮。为了使“exit"按钮在动画一开始就出现，其它动画效果保持不变，应进行的操作是　 　。
（5）测试影片时，停在当前场景最后一帧，单击“衣食住行”按钮，跳转到“衣食住行篇”场景第1帧继续播放，以下脚本命令正确的是 (多选，填字母)。
A．on(release) {gotoAndPlay(“衣食住行篇”，1)；}
B．on (press) {gotoAndPlay(1)；}
C．on(press) {play()；}
D．on (press) {play(“衣食住行篇”，1)；}
E．on(release) {gotoAndStop(“衣食住行篇”，1)； play()；}
15．（2021高二下·衢州期末）某市要组织高中生参加竞技比赛。现要求在报名的n名学生中挑选出m名身高大于等于175cm的学生，被挑选出的学生两两组队，且队内两名成员的体重之和不能超过175公斤。
编写VB程序，实现上述挑选、组队功能。运行程序，在列表框List1中显示m名身高大于等于175cm的学生信息，且根据体重数值降序排序。单击“组队”按钮，在符合条件的情况下尽可能多的两两组队，并将组队结果显示在列表框List2中。程序运行界面如图所示，实现上述功能的VB程序如下。
请回答下列问题：
（1）观察代码可知，该程序“组队”按钮的对象名为　 　。
（2）请在划线处填入合适的代码。
Const n = 20
Dim id(1 To 20) As Integer， h(1 To 20) As Integer，w(1 To 20) As Integer
Dim m As Integer
Private Sub Form_Load(　　)
'从数据库中读取n名学生的编号、身高和体重分别存储在数组id、h和w中。
'代码略。
m=0 '存储身高≥175cm的学生总数
For i=1 To n
k=i
For j=i+1 To n
If h(j) >= 175 Then
If Then k= j '⑶
End If
Next j
If k<>I Then
t = id(i)： id(i) = id(k)： id(k) = t
t=h(i)：h(i)=h(k)：h(k)=t
t=w(i)：w(i)=w(k)：w(k)=t
End If
If h(i) < 175 Then
m=i-1
Exit For '结束挑选
Else
　 　
End If
List1.AddItem str(id(i)) +“”+ Str(h(i)) +””+ Str(w(i))
Next i
End Sub
Private Sub Com_Click()
L=1：R=m
Do While L< R
If 　 　 Then
List2. AddItem Str(id(L)) + “号和”+ Str(id(R)) +“号组队”
L=L+1
R=R-1
Else
　 　
End If
Loop
End Sub
（3）程序中加框处代码有错，请改正。
16．（2021高二下·衢州期末）高一年级开展“7选3”选科调查，现要求每位学生在预选卡上填写个人信息(班级、学号、姓名)并选涂三门选考科目(少于或多于三门的预选卡作废)。如小王预选组合是“物生技”其三门选考科目填涂情况如图a所示。预选卡回收后，通过读卡机将相关信息读入数据库中，其中选科信息存储规则：按照“政治、历史、地理、物理、化学、生物、技术”顺序存储为一个7位二进制字符串。因此小王的选科信息二进制编号存储为“0001011”。
为了了解选科预选情况，统计选科组合种类及每种组合人数。小王设计并制作了VB程序。运行该程序，单击“读取”按钮，从数据库中读取信息并显示在列表框List1中；单击“统计”按钮，在列表框List2中显示每种选科组合人数(无人选择的组合不显示)及选科组合种类。程序运行界面如图b所示。
（1）若某个学生“7选3”的预选选科组合为“政史生”，则该选科组合对应的+进制编号为　 　。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim cla(1 To 1000) As Integer ‘班级号
Dim snum(1 To 1000) As String ‘学号
Dim sname(1 To 1000) As String ‘姓名
Dim xinxi(1 To 1000) As String ‘选科信息二进制编号
Dim xknum(1 To 127) As Integer ‘各选科组合人数
Dim n As Integer
Private Sub Command1_Click()
‘从数据库中读取n名学生的班级、学号、姓名和选科信息分别存储在数组cla、snum、sname和xinxi中，并输出在列表框List1中，代码略。
End Sub
Private Sub Command2_ Click (　　)
Dim t As Integer， i As Integer， count As Integer
For i=1 To n
t = BtoD(xinxi(i))
　 　
Next i
count = 0
For i=127 To 1 Step-1 ‘选科组合十进制编号的范围
If 　 　 Then
count = count + 1
List2.AddItem change(i) +””+ Str (xknum(i)
End If
Next i
List2. AddItem“选科组合种类共有：”+ Str (count) + “种”
End Sub
Function BtoD(s As String) As Integer ‘将选科信息二进制编号转换为十进制编号
Dim x As Integer， i As Integer
x=0
For i=1 To 7
If Mid(s，i，1) = “1” Then
x= 　 　
End If
Next i
BtoD = x
End Function
Function change(c As Integer) As String
‘该函数的功能是将选科十进制编号转换成对应的组合名称，代码略。
End Function
答案解析部分
1．【答案】A
【知识点】信息及其特征；信息技术的概念与关键技术；信息技术的发展历史
2．【答案】A
【知识点】电子邮件，电子公告板等信息交流方式；网络协议；网页组成元素
3．【答案】D
【知识点】数据库的分类与应用；数据表、字段、记录的编辑
4．【答案】C
【知识点】字符编码
5．【答案】A
【知识点】多媒体组成元素及文件格式；声音素材的基本处理
6．【答案】C
【知识点】声音、图像、视频编码
7．【答案】B
【知识点】运算符、基本运算与表达式；常用标准函数
8．【答案】B
【知识点】流程图识读
9．【答案】A
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
10．【答案】D
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
11．【答案】D
【知识点】查找算法及程序实现
12．【答案】B
【知识点】排序算法及程序实现
13．【答案】（1）$D$4： $D$39， $J5， G$4：G$39
（2）J3：M7
（3）B；D
【知识点】表格数据的处理与计算；数据分析
14．【答案】（1）B；D；E
（2）A
（3）B
（4）复制“退出按钮”图层第65帧上的按钮实例到第一帧相同位置或对“退出按钮"图层第65帧执行复制帧，再对第1帧执行粘贴帧，并清除第一帧动作脚本或其他等价答案
（5）A；C；E
【知识点】图层及图层的基本操作；动画的类型；时间轴、帧、图层、库的概念及基本操作；动画的实现；常用影片控制函数的应用
15．【答案】（1）Com或com
（2）m=m+1；w(L)+ w(R)<=175；L=L+1
（3）h(k) < 175 Or w(j) > w(k)
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；排序算法及程序实现
16．【答案】（1）98
（2）xknum(t) =xknum(t)+1；xknum(i)>0 或xknum(i)>=1或xknum<>0；x+2^ (7-i)
【知识点】过程与自定义函数
1 / 1

展开更多......

收起↑