浙江省绍兴市柯桥区2020届高三下学期信息技术6月适应性考试试卷
一、选择题（本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求）
1．（2020·柯桥模拟）下列有关信息的说法，正确的是（ ）
A．“盲人摸象”这个成语说明了信息在传递过程中会产生损失
B．信息具有载体依附性，因此不能脱离它所反映的事物被存储和保存
C．计算机对图片素材加工处理，本质上也是通过计算完成的
D．文字、语言、声音、书籍等都是常见信息的表达方式
【答案】B
【知识点】信息及其特征；信息表达方式与表达技术；计算机、移动终端的工作原理
2．（2020·柯桥模拟）下列应用中，没有体现人工智能技术的是（ ）
①在Word中输入成语的某一错别字时，被自动更正
②购买奶茶时使用手机扫描二维码进行支付
③QQ聊天时通过使用手写输入法输入文字
④机场测温终端快速对进出人员进行口罩佩戴侦测
⑤通过天猫精灵语音控制房内电子设备
A．①③ B．①② C．④⑤ D．②④
【答案】B
【知识点】人工智能的应用
3．（2020·柯桥模拟）使用UltraEdit软件查看字符内码，部分界面如下图所示
下列说法正确的是（ ）
A．字符“，”的十六进制编码为“A3”
B．由图中信息推算“h”的十六进制编码为“69”
C．图中ASCII码字符有7个
D．字符“M”“i”“2”的内码值由大变小
【答案】C
【知识点】信息的编码；进制及数制转换
4．（2020·柯桥模拟）某学校的社团活动系统，使用了Access软件创建了数据表，部分界面如图所示：
下列说法正确的是（ ）
A．“上课地点”字段输入内容必须包含中文或英文
B．“报名截止时间”字段可以输入“2020/4/20 4:35pm”
C．“课程”数据表中，可能会有两条记录的“学号”字段值相同
D．在“教师”数据表中，一定没有字段名称是“课程名称”
【答案】B
【知识点】数据表、字段、记录的概念；数据表、字段、记录的编辑
5．（2020·柯桥模拟）关于多媒体和多媒体技术，下列说法正确的是（ ）
A．多媒体技术的三大特征是载体依附性、交互性和实时性。
B．有损压缩的压缩率必定高于无损压缩的压缩率
C．要了解整个作品的组成部分、工作流程和主要界面，可查阅其模块设计报告
D．通过GoldWave无法转换有损压缩音频格式为无损压缩音频格式
【答案】D
【知识点】多媒体技术的概念和特征；多媒体作品的规划和设计；多媒体数据压缩技术
6．（2020·柯桥模拟）一个时长为5分钟、量化位数是16bit、采样频率是44100Hz的双声道WAV音乐，压缩为MP3格式后的文件大小约为6MB，则其压缩比约为（ ）
A．4:1 B．8:1 C．10:1 D．67:1
【答案】B
【知识点】声音、图像、视频编码
7．（2020·柯桥模拟）x和n都是正整数且x<=n，下列选项中，与语句“x=x Mod n +1 ”功能相同的是（ ）
A．x=(x+1) Mod n
B．x=x+1 If x=n Then x=1
C．x=x+1 If x=n+1 Then x=1
D．x=x+1 If x=n+1 Then x=0
【答案】C
【知识点】常量、变量及变量的赋值
8．（2020·柯桥模拟）某算法的部分流程图如图所示。执行这部分流程，若输入x的值分别为16、9、8、7、6、5、4、1，则输出的结果是（ ）
A．6 B．6.5 C．7 D．9.33
【答案】B
【知识点】常量、变量及变量的赋值；流程图识读
9．（2020·柯桥模拟）有如下VB程序段：
n = Val(Text1.Text)
i = 1
Do While n > 0
num = n Mod 16
If num >= 0 And num <= 9 Then
Text2.Text = Chr(Asc("0") + num) + Text2.Text
Else
Text2.Text = Chr(Asc("A") + num - 10) + Text2.Text
End If
n = n \ 16
i = i + 1
Loop
执行该程序段，在文本框Text1中输入420，则文本框Text2中显示的内容的是（ ）
A．4A B．A4 C．1A4 D．4A1
【答案】C
【知识点】运算符、基本运算与表达式；常量、变量及变量的赋值
10．（2020·柯桥模拟）有如下VB程序段：
For i = 1 To 6
a(i) = Int(Rnd() * 10) + 1
If a(i) Mod 2 = i Mod 2 Then
a(i) = a(i) + 1
Else
a(i) = a(i) Mod 2
End If
Next i
执行该程序段后，在下列选项中，a(1)～a(6)各元素可能的值是（ ）
A．0，1，1，0，0，1 B．0，5，6，6，10，9
C．2，3，6，7，8，11 D．2，1，8，3，12，5
【答案】C
【知识点】运算符、基本运算与表达式；常量、变量及变量的赋值
11．（2020·柯桥模拟）编写一个VB程序实现以下功能：产生10个1~100之间的随机整数存数组a中，引入一个数组q，使得a(q(i))升序，即a(q(1) )≤a(q(2) ) ≤a(q(3) )……≤a(q(9) )≤a(q(10) )。
For i = 1 To 10
a(i) = Int(Rnd() * 100) + 1
Next i
For i = 1 To 9
k = i
For j = i + 1 To 10
If Then k = j
Next j
If i <> k Then
t = q(i): q(i) = q(k): q(k) = t
End If
Next i
上述程序段2个方框处的代码分别为（ ）
A．⑴q(i) = i ⑵a(q(j)) < a(q(k))
B．⑴q(i) = i ⑵a(j) < a(k)
C．⑴q(i) = 1 ⑵a(q(j)) < a(q(k))
D．⑴q(i) = 1 ⑵a(j) < a(k)
【答案】A
【知识点】运算符、基本运算与表达式；常量、变量及变量的赋值
12．（2020·柯桥模拟）有如下VB程序段：
a(1) = 5: a(2) = 7: a(3) = 12: a(4) = 12
a(5) = 15: a(6) = 20: a(7) = 25: a(8) = 27
low = 1: high = 8
key = Text1.Text
Do While low <= high
m = (low + high) \ 2
If a(m) >= key Then
high = m - 1
Else
low = m + 1
End If
Loop
执行该程序段后，变量low的值为3，则文本框Text1中输入的值不可能是（ ）
A．10 B．11 C．12 D．13
【答案】D
【知识点】常见数据类型、数组；查找算法及程序实现
二、非选择题（本大题共4小题，4+8+7+7，共26分）
13．（2020·柯桥模拟）下图是今年部分国家新冠肺炎疫情的数据，现用EXCEL软件进行数据处理。
（1）计算各国死亡率排名，可先在E3单元格中输入公式 (多选，填字母)，再对E4：E12自动填充得到各国结果。
说明：RANK(n,ref,order)函数功能是返回某数在一列数中的排名，参数n是指定数字，ref代表一组数，order值如果为0或忽略表示降序，非0表示升序。例如：公式=RANK(B5,B3:B12，0)表示计算B5单元格的值在B3:B12中的名次，计算结果是1。
A．=RANK(D3,$D$3:$D$12) B．=RANK(D3, D$3:D$12)
C．=RANK(D3, D3:D12,0) D．=RANK(D3, $D$3:$D$12,0)
（2）如果对数据按累计确诊降序排序，排序后E3:E12中的公式 （填：会/不会）发生变化。
（3）根据图1数据，制作图2所示图表，则该图表的数据源是 。
【答案】（1）A；B；D
（2）不会
（3）A2：B12 或 A3：B12
【知识点】表格数据的处理与计算
14．（2020·柯桥模拟）使用Photoshop和Flash软件制作“战疫”动画：
（1）用Photoshop打开“心.psd”，如图1所示，为了得到一张无白色背景的心形图，以下可以实现的是 （多选，填字母：A ．直接另存为PNG格式文件/B ．删除
“心形”图层白色区域的内容，再另存为PNG格式文件/C ．选中“心形”图层心形区域，再另存为GIF格式文件D ．删除“心形”图层白色区域的内容，再另存为GIF格式文件）
图1
（2）打开“战疫.fla”，界面如图2所示。为了使“武汉加油”图层中的补间动画持续到第5帧，需要进行的修改是 。
（3）利用元件“心”在“红心”图层中制作心跳的动画，要求5到7帧中“心”的尺寸较大，8到10帧中的对象较小，下列操作可行是 (多选，填字母: A .选择“红心”图层第8帧，缩小舞台中的“心”实例 /B .在“红心”图层第8帧插入关键帧，缩小舞台中的“心”实例 /C .把“红心”图层第8帧转换为关键帧，缩小舞台中的“心”实例 /D .把“红心”图层第8帧转换为空白关键帧，并在舞台中插入“心”元件，缩小其宽高)
（4）如果要使动画播放完毕后，跳转到当前场景第5帧继续播放，实现的方法是 。
【答案】（1）BD
（2）把“武汉加油”第4帧移动到第5帧 或 在“武汉加油”第1到4帧之间插入帧
（3）BCD
（4）在任意图层第10帧插入关键帧，并在该关键帧中添加动作gotoAndplay(5);或 gotoAndplay("加油",5);
【知识点】多媒体组成元素及文件格式；时间轴、帧、图层、库的概念及基本操作；元件的类型与应用；常用影片控制函数的应用
15．（2020·柯桥模拟）在一个整数序列中找第k大数，若有相同的整数，则位置靠前的整数的名次靠前。如有整数分别为“10,13,12,13,15”，则第1大的数为15，第2大的数为13，位于第2位置，第3大的数还是13，位于第4个位置，第4大数是12，第5大的数是10。
编写一个VB程序，实现如下功能：程序启动时产生n个1~20之间的随机整数，在文本框Text2中输入整数k（k≤n），单击“查找”按钮Command1后，在标签Label1上显示第k大的数及位置。程序运行界面如图所示。
（1）下列对象不具有Caption属性的是 （单选，填字母：mand1 /B .Form1 / C .Text1 /D .Label1）
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Const
n = 10
Dim
a(1 To n) As Integer
Private
Sub Form_Load()
'本过程产生n个1~20之间的随机整数存数组a中，并在文本框Text1中显示，代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, sum As
Integer, key As Integer,c As Integer,k As Integer
Dim b(1 To 20) As Integer
①
For i = 1 To n
b(a(i)) = b(a(i)) + 1
Next i
i = 20
sum = 0
Do While i >= 1 And sum
< k
②
i = i – 1
Loop
③
Label3.Caption = "第" + Str(k) + "大的数是" +
Str(key)
c = 0
For i = 1 To n
If a(i) = key Then c = c + 1
If c = Then Exit For
Next i
Label3.Caption = Label3.Caption + "，在第" + Str(i) + "位置"
End Sub
① ② ③
（3）程序代码中的加框处代码有误，请改正。
【答案】（1）C
（2）k = Val(Text2.Text)；sum = sum + b(i)；key = i + 1
（3）b(key) - (sum - k)
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；常见数据类型、数组；常量、变量及变量的赋值
16．（2020·柯桥模拟）在“抗击疫情，‘宅’出精彩”征文活动中，每位选手可以提交一篇作品。活动以互评的形式展开：每位选手对m篇作品进行打分（本人作品回避），方法如下：
① 用1-n数字代表n个作品，打乱顺序后分配给n个选手。分配方案保存在数组a中，如图a存储了两组分配方案（n=5）。在第一个分配方案中把4号作品分配给1号参赛者，1号作品分配给2号参赛者（选手编号与序号错开）……。
图a
②分配方案的形成方法： 将1~n之间的随机数字依次放到第1个位置、第2个位置……，随机数不能与位置号相同，并且要防止分配冲突，如前三个分配序号是“2 3 4”，那么在第4位上只能放“5”（如放“1”会导致第5个位置没有符合要求的数字,因此位置n-1需要判断数“n”是否已经分配，如果未分配，位置n-1放置数“n”），最终方案“2 3 4 5 1”。
③评m个作品需要m个分配方案。方案间要避免同一个人拿到重复的作品。如图a第3行上的数据“5 1 2 3 4”不符合要求，因为会使第2号选手重复拿到1号作品。
小明依据上述方法设计了VB程序，功能如下：在文本框Text1和Text2分别输入参赛人数和每人打分的作品数量，单击“分配”按钮Command1，在列表框List1中输出结果。程序运行效果如图b所示。请回答下列问题：
图b
（1）n=5，m=3，a(1)~a(10)中的数据如图a所示，a(11)~a（15）的数据可能是 （单选，填字母，：A .5 4 3 1 2/B .5 4 1 3 2/C .3 4 5 1 2）
（2）请在划线处填入合适的代码。
Dim n As Integer '总人数/总作品数
Dim m As Integer '每人分配篇数
Dim a(1 To 500) As
Integer '数组a大小满足处理要求
Dim c(1 To 100) As
Integer '数组c大小满足处理要求
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As
Integer
n = Val(Text1.Text)： m = Val(Text2.Text)
Randomize
i = 1
Do While i <= m
For j = 1 To n
c(j) = 0 '本轮分配方案中还没有数字j, c(j)=0，否则c(j)=1
Next j
For j = 1 To n
If j = n - 1 And c(n) = 0 Then
①
Else
k = r(n, j)
End If
a((i - 1) * n + j) = k '分配数字k到当前方案的第j个位置上
c(k) = 1
Next j
If ② Then
i = i + 1
Loop
s = ""
For i = 1 To n
s = "参赛者" & i & "："
For j = 1 To m
s = s + Str(a((j - 1) * n + i))+
","
Next j
List1.AddItem s
s = ""
Next i
End Sub
Function r(x As Integer, y As
Integer) As Integer
'生成一个取值在[1,x]之间，可以放在y位置上的随机数，满足条件r<>y andc(r)=0
End Function
Function check(c As Integer) As
Boolean
'本轮方案和前面几次的分配方案比较，如果有人分到了重复作品，返回FALSE
Dim p As Integer,f As Boolean
f = True
p = 1
For i = 1 To c * n
If ③ Then
f = False: Exit For
End If
p = p mod n +1
Next i
check = f
End
Function
① ② ③
【答案】（1）B
（2）k= n；check(i - 1)；a(i) = a(c * n + p)
【知识点】常见数据类型、数组；常量、变量及变量的赋值；过程与自定义函数
1 / 1浙江省绍兴市柯桥区2020届高三下学期信息技术6月适应性考试试卷
一、选择题（本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求）
1．（2020·柯桥模拟）下列有关信息的说法，正确的是（ ）
A．“盲人摸象”这个成语说明了信息在传递过程中会产生损失
B．信息具有载体依附性，因此不能脱离它所反映的事物被存储和保存
C．计算机对图片素材加工处理，本质上也是通过计算完成的
D．文字、语言、声音、书籍等都是常见信息的表达方式
2．（2020·柯桥模拟）下列应用中，没有体现人工智能技术的是（ ）
①在Word中输入成语的某一错别字时，被自动更正
②购买奶茶时使用手机扫描二维码进行支付
③QQ聊天时通过使用手写输入法输入文字
④机场测温终端快速对进出人员进行口罩佩戴侦测
⑤通过天猫精灵语音控制房内电子设备
A．①③ B．①② C．④⑤ D．②④
3．（2020·柯桥模拟）使用UltraEdit软件查看字符内码，部分界面如下图所示
下列说法正确的是（ ）
A．字符“，”的十六进制编码为“A3”
B．由图中信息推算“h”的十六进制编码为“69”
C．图中ASCII码字符有7个
D．字符“M”“i”“2”的内码值由大变小
4．（2020·柯桥模拟）某学校的社团活动系统，使用了Access软件创建了数据表，部分界面如图所示：
下列说法正确的是（ ）
A．“上课地点”字段输入内容必须包含中文或英文
B．“报名截止时间”字段可以输入“2020/4/20 4:35pm”
C．“课程”数据表中，可能会有两条记录的“学号”字段值相同
D．在“教师”数据表中，一定没有字段名称是“课程名称”
5．（2020·柯桥模拟）关于多媒体和多媒体技术，下列说法正确的是（ ）
A．多媒体技术的三大特征是载体依附性、交互性和实时性。
B．有损压缩的压缩率必定高于无损压缩的压缩率
C．要了解整个作品的组成部分、工作流程和主要界面，可查阅其模块设计报告
D．通过GoldWave无法转换有损压缩音频格式为无损压缩音频格式
6．（2020·柯桥模拟）一个时长为5分钟、量化位数是16bit、采样频率是44100Hz的双声道WAV音乐，压缩为MP3格式后的文件大小约为6MB，则其压缩比约为（ ）
A．4:1 B．8:1 C．10:1 D．67:1
7．（2020·柯桥模拟）x和n都是正整数且x<=n，下列选项中，与语句“x=x Mod n +1 ”功能相同的是（ ）
A．x=(x+1) Mod n
B．x=x+1 If x=n Then x=1
C．x=x+1 If x=n+1 Then x=1
D．x=x+1 If x=n+1 Then x=0
8．（2020·柯桥模拟）某算法的部分流程图如图所示。执行这部分流程，若输入x的值分别为16、9、8、7、6、5、4、1，则输出的结果是（ ）
A．6 B．6.5 C．7 D．9.33
9．（2020·柯桥模拟）有如下VB程序段：
n = Val(Text1.Text)
i = 1
Do While n > 0
num = n Mod 16
If num >= 0 And num <= 9 Then
Text2.Text = Chr(Asc("0") + num) + Text2.Text
Else
Text2.Text = Chr(Asc("A") + num - 10) + Text2.Text
End If
n = n \ 16
i = i + 1
Loop
执行该程序段，在文本框Text1中输入420，则文本框Text2中显示的内容的是（ ）
A．4A B．A4 C．1A4 D．4A1
10．（2020·柯桥模拟）有如下VB程序段：
For i = 1 To 6
a(i) = Int(Rnd() * 10) + 1
If a(i) Mod 2 = i Mod 2 Then
a(i) = a(i) + 1
Else
a(i) = a(i) Mod 2
End If
Next i
执行该程序段后，在下列选项中，a(1)～a(6)各元素可能的值是（ ）
A．0，1，1，0，0，1 B．0，5，6，6，10，9
C．2，3，6，7，8，11 D．2，1，8，3，12，5
11．（2020·柯桥模拟）编写一个VB程序实现以下功能：产生10个1~100之间的随机整数存数组a中，引入一个数组q，使得a(q(i))升序，即a(q(1) )≤a(q(2) ) ≤a(q(3) )……≤a(q(9) )≤a(q(10) )。
For i = 1 To 10
a(i) = Int(Rnd() * 100) + 1
Next i
For i = 1 To 9
k = i
For j = i + 1 To 10
If Then k = j
Next j
If i <> k Then
t = q(i): q(i) = q(k): q(k) = t
End If
Next i
上述程序段2个方框处的代码分别为（ ）
A．⑴q(i) = i ⑵a(q(j)) < a(q(k))
B．⑴q(i) = i ⑵a(j) < a(k)
C．⑴q(i) = 1 ⑵a(q(j)) < a(q(k))
D．⑴q(i) = 1 ⑵a(j) < a(k)
12．（2020·柯桥模拟）有如下VB程序段：
a(1) = 5: a(2) = 7: a(3) = 12: a(4) = 12
a(5) = 15: a(6) = 20: a(7) = 25: a(8) = 27
low = 1: high = 8
key = Text1.Text
Do While low <= high
m = (low + high) \ 2
If a(m) >= key Then
high = m - 1
Else
low = m + 1
End If
Loop
执行该程序段后，变量low的值为3，则文本框Text1中输入的值不可能是（ ）
A．10 B．11 C．12 D．13
二、非选择题（本大题共4小题，4+8+7+7，共26分）
13．（2020·柯桥模拟）下图是今年部分国家新冠肺炎疫情的数据，现用EXCEL软件进行数据处理。
（1）计算各国死亡率排名，可先在E3单元格中输入公式 (多选，填字母)，再对E4：E12自动填充得到各国结果。
说明：RANK(n,ref,order)函数功能是返回某数在一列数中的排名，参数n是指定数字，ref代表一组数，order值如果为0或忽略表示降序，非0表示升序。例如：公式=RANK(B5,B3:B12，0)表示计算B5单元格的值在B3:B12中的名次，计算结果是1。
A．=RANK(D3,$D$3:$D$12) B．=RANK(D3, D$3:D$12)
C．=RANK(D3, D3:D12,0) D．=RANK(D3, $D$3:$D$12,0)
（2）如果对数据按累计确诊降序排序，排序后E3:E12中的公式 （填：会/不会）发生变化。
（3）根据图1数据，制作图2所示图表，则该图表的数据源是 。
14．（2020·柯桥模拟）使用Photoshop和Flash软件制作“战疫”动画：
（1）用Photoshop打开“心.psd”，如图1所示，为了得到一张无白色背景的心形图，以下可以实现的是 （多选，填字母：A ．直接另存为PNG格式文件/B ．删除
“心形”图层白色区域的内容，再另存为PNG格式文件/C ．选中“心形”图层心形区域，再另存为GIF格式文件D ．删除“心形”图层白色区域的内容，再另存为GIF格式文件）
图1
（2）打开“战疫.fla”，界面如图2所示。为了使“武汉加油”图层中的补间动画持续到第5帧，需要进行的修改是 。
（3）利用元件“心”在“红心”图层中制作心跳的动画，要求5到7帧中“心”的尺寸较大，8到10帧中的对象较小，下列操作可行是 (多选，填字母: A .选择“红心”图层第8帧，缩小舞台中的“心”实例 /B .在“红心”图层第8帧插入关键帧，缩小舞台中的“心”实例 /C .把“红心”图层第8帧转换为关键帧，缩小舞台中的“心”实例 /D .把“红心”图层第8帧转换为空白关键帧，并在舞台中插入“心”元件，缩小其宽高)
（4）如果要使动画播放完毕后，跳转到当前场景第5帧继续播放，实现的方法是 。
15．（2020·柯桥模拟）在一个整数序列中找第k大数，若有相同的整数，则位置靠前的整数的名次靠前。如有整数分别为“10,13,12,13,15”，则第1大的数为15，第2大的数为13，位于第2位置，第3大的数还是13，位于第4个位置，第4大数是12，第5大的数是10。
编写一个VB程序，实现如下功能：程序启动时产生n个1~20之间的随机整数，在文本框Text2中输入整数k（k≤n），单击“查找”按钮Command1后，在标签Label1上显示第k大的数及位置。程序运行界面如图所示。
（1）下列对象不具有Caption属性的是 （单选，填字母：mand1 /B .Form1 / C .Text1 /D .Label1）
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Const
n = 10
Dim
a(1 To n) As Integer
Private
Sub Form_Load()
'本过程产生n个1~20之间的随机整数存数组a中，并在文本框Text1中显示，代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, sum As
Integer, key As Integer,c As Integer,k As Integer
Dim b(1 To 20) As Integer
①
For i = 1 To n
b(a(i)) = b(a(i)) + 1
Next i
i = 20
sum = 0
Do While i >= 1 And sum
< k
②
i = i – 1
Loop
③
Label3.Caption = "第" + Str(k) + "大的数是" +
Str(key)
c = 0
For i = 1 To n
If a(i) = key Then c = c + 1
If c = Then Exit For
Next i
Label3.Caption = Label3.Caption + "，在第" + Str(i) + "位置"
End Sub
① ② ③
（3）程序代码中的加框处代码有误，请改正。
16．（2020·柯桥模拟）在“抗击疫情，‘宅’出精彩”征文活动中，每位选手可以提交一篇作品。活动以互评的形式展开：每位选手对m篇作品进行打分（本人作品回避），方法如下：
① 用1-n数字代表n个作品，打乱顺序后分配给n个选手。分配方案保存在数组a中，如图a存储了两组分配方案（n=5）。在第一个分配方案中把4号作品分配给1号参赛者，1号作品分配给2号参赛者（选手编号与序号错开）……。
图a
②分配方案的形成方法： 将1~n之间的随机数字依次放到第1个位置、第2个位置……，随机数不能与位置号相同，并且要防止分配冲突，如前三个分配序号是“2 3 4”，那么在第4位上只能放“5”（如放“1”会导致第5个位置没有符合要求的数字,因此位置n-1需要判断数“n”是否已经分配，如果未分配，位置n-1放置数“n”），最终方案“2 3 4 5 1”。
③评m个作品需要m个分配方案。方案间要避免同一个人拿到重复的作品。如图a第3行上的数据“5 1 2 3 4”不符合要求，因为会使第2号选手重复拿到1号作品。
小明依据上述方法设计了VB程序，功能如下：在文本框Text1和Text2分别输入参赛人数和每人打分的作品数量，单击“分配”按钮Command1，在列表框List1中输出结果。程序运行效果如图b所示。请回答下列问题：
图b
（1）n=5，m=3，a(1)~a(10)中的数据如图a所示，a(11)~a（15）的数据可能是 （单选，填字母，：A .5 4 3 1 2/B .5 4 1 3 2/C .3 4 5 1 2）
（2）请在划线处填入合适的代码。
Dim n As Integer '总人数/总作品数
Dim m As Integer '每人分配篇数
Dim a(1 To 500) As
Integer '数组a大小满足处理要求
Dim c(1 To 100) As
Integer '数组c大小满足处理要求
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As
Integer
n = Val(Text1.Text)： m = Val(Text2.Text)
Randomize
i = 1
Do While i <= m
For j = 1 To n
c(j) = 0 '本轮分配方案中还没有数字j, c(j)=0，否则c(j)=1
Next j
For j = 1 To n
If j = n - 1 And c(n) = 0 Then
①
Else
k = r(n, j)
End If
a((i - 1) * n + j) = k '分配数字k到当前方案的第j个位置上
c(k) = 1
Next j
If ② Then
i = i + 1
Loop
s = ""
For i = 1 To n
s = "参赛者" & i & "："
For j = 1 To m
s = s + Str(a((j - 1) * n + i))+
","
Next j
List1.AddItem s
s = ""
Next i
End Sub
Function r(x As Integer, y As
Integer) As Integer
'生成一个取值在[1,x]之间，可以放在y位置上的随机数，满足条件r<>y andc(r)=0
End Function
Function check(c As Integer) As
Boolean
'本轮方案和前面几次的分配方案比较，如果有人分到了重复作品，返回FALSE
Dim p As Integer,f As Boolean
f = True
p = 1
For i = 1 To c * n
If ③ Then
f = False: Exit For
End If
p = p mod n +1
Next i
check = f
End
Function
① ② ③
答案解析部分
1．【答案】B
【知识点】信息及其特征；信息表达方式与表达技术；计算机、移动终端的工作原理
2．【答案】B
【知识点】人工智能的应用
3．【答案】C
【知识点】信息的编码；进制及数制转换
4．【答案】B
【知识点】数据表、字段、记录的概念；数据表、字段、记录的编辑
5．【答案】D
【知识点】多媒体技术的概念和特征；多媒体作品的规划和设计；多媒体数据压缩技术
6．【答案】B
【知识点】声音、图像、视频编码
7．【答案】C
【知识点】常量、变量及变量的赋值
8．【答案】B
【知识点】常量、变量及变量的赋值；流程图识读
9．【答案】C
【知识点】运算符、基本运算与表达式；常量、变量及变量的赋值
10．【答案】C
【知识点】运算符、基本运算与表达式；常量、变量及变量的赋值
11．【答案】A
【知识点】运算符、基本运算与表达式；常量、变量及变量的赋值
12．【答案】D
【知识点】常见数据类型、数组；查找算法及程序实现
13．【答案】（1）A；B；D
（2）不会
（3）A2：B12 或 A3：B12
【知识点】表格数据的处理与计算
14．【答案】（1）BD
（2）把“武汉加油”第4帧移动到第5帧 或 在“武汉加油”第1到4帧之间插入帧
（3）BCD
（4）在任意图层第10帧插入关键帧，并在该关键帧中添加动作gotoAndplay(5);或 gotoAndplay("加油",5);
【知识点】多媒体组成元素及文件格式；时间轴、帧、图层、库的概念及基本操作；元件的类型与应用；常用影片控制函数的应用
15．【答案】（1）C
（2）k = Val(Text2.Text)；sum = sum + b(i)；key = i + 1
（3）b(key) - (sum - k)
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；常见数据类型、数组；常量、变量及变量的赋值
16．【答案】（1）B
（2）k= n；check(i - 1)；a(i) = a(c * n + p)
【知识点】常见数据类型、数组；常量、变量及变量的赋值；过程与自定义函数
1 / 1
