浙江省温州市2020年4月普通高中高三信息技术选考适应性测试试卷
一、选择题（本大题共12小题，每小题2分，共24分，每小题列出的四个备选项中只有一个是符题目要求的。）
1．（2020·温州模拟）下列关于信息的描述，正确的是（ ）
A．信息是人类社会的重要资源，同一种信息只能用一种方法和途径获取
B．古人也能对信息进行处理，信息经过加工和处理后不能改变其使用价值
C．为了提高信息的安全性，应采用比较复杂的密码并经常更换
D．信息具有载体依附性，因此信息不可以脱离它所反映的事物被存储和传播
2．（2020·温州模拟）下列应用中，没有体现人工智能技术的是（ ）
A．使用车牌识别（VLPR）对车辆进行进出管理
B．使用远程控制软件对异地的电脑进行操作
C．医院导医机器人与人进行语音交流并提供资讯
D．使用手机“形色”app来拍照识别植物
3．（2020·温州模拟）使用Access软件设计某居民医疗管理信息系统的数据库，该软件打开数据库，部分界面如图所示。下列说法正确的是（ ）
A．当前打开的数据库文件名是“居民数据：数据库.accdb”
B．当前打开的数据表中共有5个字段，字段顺序可更改
C．“男性”字段的数据类型不能改为“文本”
D．该数据库中共有5张数据表，当前状态能对所有数据表进行重命名
4．（2020·温州模拟）使用UltraEdit软件查看字符“测试 Pass!”的内码，部分界面如图所示。
下列说法正确的是（ ）
A．字符“p”与“P”内码值之差的十进制表示为32
B．字符“!”使用ASCII编码，该编码是交换码
C．共有4个ASCII字符
D．字符“Or”的十六进制内码为49 72
5．（2020·温州模拟）使用Photoshop软件制作“武汉加油”海报，界面如图所示。下列操作可行的是（ ）
A．栅格化“武汉”图层，然后添加“纹理化”滤镜效果
B．拷贝“爱心”图层的图层样式，然后直接粘贴到“加油”图层
C．直接交换“武汉”和“背景”图层的顺序，交换后“武汉”两字不显示
D．选中“人物”图层中最右侧人物图案，仅将该图案的不透明度设置为50%
6．（2020·温州模拟）一个时长为30秒、800×600像素，16位色，25帧/秒的未经压缩的AVI格式无声视频文件，使用视频编辑软件进行压缩后，其部分配置属性如图所示，则其压缩比约为（ ）
A．6:1 B．80:1 C．160:1 D．1250:1
7．（2020·温州模拟）某算法的部分流程图如图所示，执行这部分流程后，输出s的值为64，则①处应填入
A．i \ 4 = 2 B．Sqr(i) = Int(Sqr(i))
C．i Mod 2 = 1 D．i Mod 2 = 0
8．（2020·温州模拟）有如下VB程序段：
i = 1: t = 0
Do While i <= 10
If i Mod 3 = 0 Then i = i + 2
t = t + 1
i = i + 1
Loop
执行该程序段后，变量i和t的值分别为（ ）
A．12，5 B．12，10 C．11，10 D．11，5
9．（2020·温州模拟）下列有关VB表达式的描述，正确的是（ ）
A．VB的基本表达式包括算术表达式、关系表达式和条件表达式
B．VB表达式“Int(3.14159＊1000) / 1000”的值为3.142
C．VB表达式“Abs(Int(-20.19)) + Len(Mid(＂20.19＂，2))”的值是25
D．VB表达式“20201 \ 10 + Int(Sqr(5))”和“Len(＂2020＂) + 2”的值相等
10．（2020·温州模拟）有如下VB程序段：
a="10001": b=0:t=0
For i=1 To Len(a)
c= Mid(a, i, 1)
If c="0" Then t = t -1 Else t = t +1
If t < 0 Then b = b * 2 Else b = b * 2+1
Next i
执行该程序段后，变量b的值为（ ）
A．15 B．17 C．20 D．24
11．（2020·温州模拟）某冒泡排序算法的VB程序段如下：
i=6: flag =1: cnt=0
Do While i >=2 And flag=1
flag=0: cnt= cnt +1
For j =
If a(j)>a(j-1)Then
k=a(j):a(j)=a(j-1):a(j-1)=k
flag= 1
End If
Next j
i=i-1
Loop
数组元素a(1)到a(6)的值依次为“79，13，93，55，29，17”，执行该程序段后，cnt的值为3，数组元素实现有序，则方框中的代码是（ ）
A．2 To i-1 B．2 To i
C．6 To 7-i Step-1 D．6 To 8-i Step -1
12．（2020·温州模拟）某算法的VB程序段如下：
key = Int (Rnd*5)*2+ 11
i = 1: j = 8: c = 0
Do While i <= j
m = (i+j+1) \ 2
If a(m) >= key Then i = m+1 Else j = m-1
c = c+1
Loop
数组元素a(1)到a(8)的值依次为“23，21，19，18，16，15，14，11”。若该程序段执行后，下列说法错误的是（ ）
A．i的值为j+1 B．i的值可能是9
C．j的值可能是5 D．c的值一定是3
二、非选择题（本大题共4小题，4+8+7+7，共26分）
13．（2020·温州模拟）小明收集了2019年第四季度轿车销售的数据，并使用 Excel软件进行数据处理，如图a所示。
请回答下列问题：
（1）区域K3:K180的数据是通过公式计算得到的：在K3单元格中输入公式后，用自动填充功能完 成K4:K180的计算，则K3单元格中的公式是
（计算公式：第四季度销量占全年比重％=第四季度累计销量/全年累计销量×100）
（2）通过排序的方法找出“大众”品牌中2019年累计销量最多的“车系”，则合适的主、次要关键字依次为 。
（3）在图a所示的状态下，下列说法正确的是___________(多选，填字母)。
图b
A．若F3单元格中的数据被误改为5269，则G3单元格和K3单元格中的数据会发生变化
B．区域I3:I180的数据可以通过复制区域G3：G180，然后选中单元格I3，执行“粘贴(P)”命令得到
C．设置“11月销量”和“12月销量”的筛选方式均如图b所示，则一定可筛选出最大的10行数据
D．选择区域“B8，D8，F8，H8”创建折线图，可看出桑塔纳2019年第四季度的销售趋势
14．（2020·温州模拟）小陈使用Flash软件创作主题为“古诗欣赏”的多媒体作品，如图a所示。
图a
请回答下列问题：
（1）在制作作品前，小陈进行了相应的分析和规划。下列说法正确的是________（多选，填字母）
A．确定选择Flash软件来合成作品，属于创作需求分析
B．将所的原始素材列成表格，确定获取原始素材的方式并分类登记，属于脚本设计
C．作品的模块设计描述了该多媒体作品的组成部分、工作流程、主要界面
D．多媒体作品设计的一般过程包括需求分析、规划设计、脚本编写
（2）如图a所示，“蜻蜓”图层第1帧到第50帧实现了蜻蜓从舞台左上角飞到右边荷花上，该动画类型为 （选填：动画补间 / 形状补间）。
（3）如图a所示，为使“标题”图层的文字从第1帧开始，并持续到最后1帧，正确的操作是 。
（4）小陈使用Flash软件制作“播放”按钮的部分界面如图b所示。
图b
则在测试影片时，下列说法正确的是_________（单选，填字母）
A．该按钮能响应鼠标单击，响应的区域仅为“播放”文字的区域
B．若“声音”图层中的声音“同步”属性设置为“数据流”，则在测试影片时能听到声音
C．因为“背景”图层的“点击”帧为空白关键帧，所以该按钮不能响应鼠标单击
D．该按钮能响应鼠标单击，当鼠标指针经过该按钮时不能显示“播放”文字
（5）执行第⑶题操作后，测试影片时，要使动画在最后1帧停止播放，则需要在 图层第50帧添加动作脚本 。
15．（2020·温州模拟）小董编写了一个有关“筛选操作”的VB程序，实现如下功能：在文本框Text1中显示一组随机生成个位数为“9”的两位数（原始数据），在文本框Text2中输入筛选个数，单击“操作”按钮Command1后，在文本框Text3中按降序显示所筛选个数的不重复最大数据（以逗号分隔并以数据结尾），若在文本框Text2中输入的数大于原始数据中不相同数的个数，则在文本框Text3中显示“筛选的个数太大，请重新输入!”。程序运行界面如图所示。
（1）如图所示，该VB程序的窗体中共有 类对象（填数字）。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const n = 10
Dim d(n) As Integer, c As Integer
Private Sub Form_Load()
Dim i As Integer, j As Integer, f As Boolean, s As String
Randomize
c = n
For i = 1 To n
f = False
d(i) = ①
' 随机生成个位数为“9”的两位数
For j = 1 To i - 1
If ②
Then f = True
Next j
If f Then c = c - 1
Next i
'原始数据在文本框Text1中显示。代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As
Integer, m As Integer
Dim cnt As Integer，t As String, s As String
d(0) = 100
cnt = Val(Text2.Text)
If cnt > c Then
Text3.Text = "输入筛选的个数太大，请重新输入！"
Exit Sub 'Exit Sub表示退出过程
End If
For i = 1 To cnt
k = i
For j = i + 1 To n
If d(j) < d(i - 1) And ( ) Then k = j
Next j
If k <> i Then
t = d(i): d(i) = d(k): d(k) = t
End If
Next i
For i = 1 To cnt
s = s + Str(d(i)) + "，"
Next i
Text3.Text = ③
End Sub
① ② ③
（3）程序中加框处代码有错，请改正。
16．（2020·温州模拟）某考试的多选题有“A、B、C、D、E”5个答案选项。
例如，标准答案为“ABE”，则对应得分表如下所示。
学生答案 ABE AB AE BE A B E AC ......
字符串 11001 11000 10001 01001 10000 01000 00001 10100 ......
十进制数(x) 25 24 17 9 16 8 1 20 ......
ans(x) 2 1 1 1 1 1 1 0 0
小温依据上述描述设计了“多选题阅卷”的VB程序，实现如下功能：在文本框Text1中输入标准答案（大写字母），先单击“初始化”按钮Command1，在数组ans中生成所有答案组合对应的分值，然后单击“阅卷”按钮Command2，从数据库中读取学生的答案并进行阅卷，在列表框List1中显示得分结果。程序运行界面如图所示。
（1）若标准答案为“ACD”，则数组元素ans
(18) 的值为
（2）请在划线处填入合适的代码。
Dim ans(0 To 31) As Integer
Private Sub Command1_Click()
Dim b(0 To 4) As Integer
Dim s As String, c As String, sum As Integer, k As Integer
'初始化数组ans和数组b，各元素的初始值均为0。代码略
s = Text1.Text：k
= Len(s)
For i = 1 To k
c = Mid(s, i, 1)
b(Asc(c) - 65) = 2 ^ (69 - Asc(c))
Next i
For i = 0 To 4
If b(i) <> 0 Then
ans(b(i)) = 1
sum = ①
End If
Next i
ans(sum) = 2
'当标准答案含3个及以上选项时，学生答案选其中2个选项可得1分
i = 0
Do While k >= 3 And i <= 4
For j = i + 1 To 4
If b(i) * b(j) <> 0 Then ans(b(i)
+ b(j)) = 1
Next j
i = i + 1
Loop
i = 0
Do While k >= 4 And i <= 4
For j = i + 1 To 4
If b(i) * b(j) = 0 Or k = 5 Then ②
Next j
i = i + 1
Loop
'当标准答案含5个选项时，学生答案选其中4个选项可得1分。代码略
End
Sub
Private Sub Command2_Click()
Dim xh(1 To 1000) As String, answer(1 To 1000) As String
'从数据库中读取学生学号和答案的数据分别存储在数组xh和answer中
'记录总数存储在变量n中，代码略
List1.Clear
For i = 1 To n
List1.AddItem xh(i) + " " + answer(i) + " " + Str(ans(f(answer(i))))
Next i
End Sub
Function f(s As String) As Integer
Dim i As Integer, x As Integer
x = 0
For i = 1 To Len(s)
x = ③
Next i
f = x
End Function
① ② ③
答案解析部分
1．【答案】C
【知识点】信息及其特征；信息获取的环节与方法；信息系统安全防护
2．【答案】B
【知识点】人工智能的应用
3．【答案】B
【知识点】数据库、数据库系统及其特征；数据表、字段、记录的概念；数据表、字段、记录的编辑
4．【答案】A
【知识点】信息的编码；进制及数制转换
5．【答案】A
【知识点】图层及图层的基本操作
6．【答案】C
【知识点】声音、图像、视频编码
7．【答案】D
【知识点】常量、变量及变量的赋值；流程图识读
8．【答案】A
【知识点】常量、变量及变量的赋值
9．【答案】C
【知识点】运算符、基本运算与表达式
10．【答案】D
【知识点】运算符、基本运算与表达式；常量、变量及变量的赋值
11．【答案】B
【知识点】排序算法及程序实现
12．【答案】C
【知识点】常量、变量及变量的赋值；查找算法及程序实现
13．【答案】（1）=(D3+F3+H3)/J3*100或者=SUM(D3,F3,H3)/J3*100
（2）品牌， 2019年累计销量 或 列C，列J
（3）A；B；D
【知识点】表格数据的处理与计算
14．【答案】（1）A；B；D
（2）动画补间
（3）选中“标题”图层最后1帧（或第50帧）执行“清除关键帧”操作。 或选中“标题”图层第1（2-49帧的任意一帧都行）帧执行“复制帧”操作，在最后1帧执行“粘贴帧”操作。或者选中“标题”图层第2（3-49帧的任意一帧都行）帧，移动到第50帧
（4）A
（5）蜻蜓或标题；stop();
【知识点】多媒体作品的规划和设计；时间轴、帧、图层、库的概念及基本操作；动画的实现；常用影片控制函数的应用
15．【答案】（1）3
（2）Int(Rnd * 9) * 10 + 19或者Int(Rnd * 9 + 1) * 10 + 9；d(i) = d(j)；Mid(s, 1, Len(s) - 1) 或Mid(s, 1, Len(s) - 2)
（3）d(k) < d(j) Or d(k) >= d(i - 1)
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；常见数据类型、数组；常量、变量及变量的赋值
16．【答案】（1）1
（2）sum + b(i)或sum + 2 ^ (4 – i)；ans(sum - b(i) - b(j)) = 1；x + Val(Mid(s, i, 1)) * 2 ^ (Len(s) - i)或者x + Val(Mid(s, i, 1)) * 2 ^ (5 - i)或者 x + Val(Mid(s, Len(s) - i + 1, 1)) * 2 ^ (i - 1)或者 x + Val(Mid(s, 6 - i, 1)) * 2 ^ (i - 1)或者 x * 2 + Val(Mid(s, i, 1))
【知识点】常见数据类型、数组；常量、变量及变量的赋值；过程与自定义函数
1 / 1浙江省温州市2020年4月普通高中高三信息技术选考适应性测试试卷
一、选择题（本大题共12小题，每小题2分，共24分，每小题列出的四个备选项中只有一个是符题目要求的。）
1．（2020·温州模拟）下列关于信息的描述，正确的是（ ）
A．信息是人类社会的重要资源，同一种信息只能用一种方法和途径获取
B．古人也能对信息进行处理，信息经过加工和处理后不能改变其使用价值
C．为了提高信息的安全性，应采用比较复杂的密码并经常更换
D．信息具有载体依附性，因此信息不可以脱离它所反映的事物被存储和传播
【答案】C
【知识点】信息及其特征；信息获取的环节与方法；信息系统安全防护
2．（2020·温州模拟）下列应用中，没有体现人工智能技术的是（ ）
A．使用车牌识别（VLPR）对车辆进行进出管理
B．使用远程控制软件对异地的电脑进行操作
C．医院导医机器人与人进行语音交流并提供资讯
D．使用手机“形色”app来拍照识别植物
【答案】B
【知识点】人工智能的应用
3．（2020·温州模拟）使用Access软件设计某居民医疗管理信息系统的数据库，该软件打开数据库，部分界面如图所示。下列说法正确的是（ ）
A．当前打开的数据库文件名是“居民数据：数据库.accdb”
B．当前打开的数据表中共有5个字段，字段顺序可更改
C．“男性”字段的数据类型不能改为“文本”
D．该数据库中共有5张数据表，当前状态能对所有数据表进行重命名
【答案】B
【知识点】数据库、数据库系统及其特征；数据表、字段、记录的概念；数据表、字段、记录的编辑
4．（2020·温州模拟）使用UltraEdit软件查看字符“测试 Pass!”的内码，部分界面如图所示。
下列说法正确的是（ ）
A．字符“p”与“P”内码值之差的十进制表示为32
B．字符“!”使用ASCII编码，该编码是交换码
C．共有4个ASCII字符
D．字符“Or”的十六进制内码为49 72
【答案】A
【知识点】信息的编码；进制及数制转换
5．（2020·温州模拟）使用Photoshop软件制作“武汉加油”海报，界面如图所示。下列操作可行的是（ ）
A．栅格化“武汉”图层，然后添加“纹理化”滤镜效果
B．拷贝“爱心”图层的图层样式，然后直接粘贴到“加油”图层
C．直接交换“武汉”和“背景”图层的顺序，交换后“武汉”两字不显示
D．选中“人物”图层中最右侧人物图案，仅将该图案的不透明度设置为50%
【答案】A
【知识点】图层及图层的基本操作
6．（2020·温州模拟）一个时长为30秒、800×600像素，16位色，25帧/秒的未经压缩的AVI格式无声视频文件，使用视频编辑软件进行压缩后，其部分配置属性如图所示，则其压缩比约为（ ）
A．6:1 B．80:1 C．160:1 D．1250:1
【答案】C
【知识点】声音、图像、视频编码
7．（2020·温州模拟）某算法的部分流程图如图所示，执行这部分流程后，输出s的值为64，则①处应填入
A．i \ 4 = 2 B．Sqr(i) = Int(Sqr(i))
C．i Mod 2 = 1 D．i Mod 2 = 0
【答案】D
【知识点】常量、变量及变量的赋值；流程图识读
8．（2020·温州模拟）有如下VB程序段：
i = 1: t = 0
Do While i <= 10
If i Mod 3 = 0 Then i = i + 2
t = t + 1
i = i + 1
Loop
执行该程序段后，变量i和t的值分别为（ ）
A．12，5 B．12，10 C．11，10 D．11，5
【答案】A
【知识点】常量、变量及变量的赋值
9．（2020·温州模拟）下列有关VB表达式的描述，正确的是（ ）
A．VB的基本表达式包括算术表达式、关系表达式和条件表达式
B．VB表达式“Int(3.14159＊1000) / 1000”的值为3.142
C．VB表达式“Abs(Int(-20.19)) + Len(Mid(＂20.19＂，2))”的值是25
D．VB表达式“20201 \ 10 + Int(Sqr(5))”和“Len(＂2020＂) + 2”的值相等
【答案】C
【知识点】运算符、基本运算与表达式
10．（2020·温州模拟）有如下VB程序段：
a="10001": b=0:t=0
For i=1 To Len(a)
c= Mid(a, i, 1)
If c="0" Then t = t -1 Else t = t +1
If t < 0 Then b = b * 2 Else b = b * 2+1
Next i
执行该程序段后，变量b的值为（ ）
A．15 B．17 C．20 D．24
【答案】D
【知识点】运算符、基本运算与表达式；常量、变量及变量的赋值
11．（2020·温州模拟）某冒泡排序算法的VB程序段如下：
i=6: flag =1: cnt=0
Do While i >=2 And flag=1
flag=0: cnt= cnt +1
For j =
If a(j)>a(j-1)Then
k=a(j):a(j)=a(j-1):a(j-1)=k
flag= 1
End If
Next j
i=i-1
Loop
数组元素a(1)到a(6)的值依次为“79，13，93，55，29，17”，执行该程序段后，cnt的值为3，数组元素实现有序，则方框中的代码是（ ）
A．2 To i-1 B．2 To i
C．6 To 7-i Step-1 D．6 To 8-i Step -1
【答案】B
【知识点】排序算法及程序实现
12．（2020·温州模拟）某算法的VB程序段如下：
key = Int (Rnd*5)*2+ 11
i = 1: j = 8: c = 0
Do While i <= j
m = (i+j+1) \ 2
If a(m) >= key Then i = m+1 Else j = m-1
c = c+1
Loop
数组元素a(1)到a(8)的值依次为“23，21，19，18，16，15，14，11”。若该程序段执行后，下列说法错误的是（ ）
A．i的值为j+1 B．i的值可能是9
C．j的值可能是5 D．c的值一定是3
【答案】C
【知识点】常量、变量及变量的赋值；查找算法及程序实现
二、非选择题（本大题共4小题，4+8+7+7，共26分）
13．（2020·温州模拟）小明收集了2019年第四季度轿车销售的数据，并使用 Excel软件进行数据处理，如图a所示。
请回答下列问题：
（1）区域K3:K180的数据是通过公式计算得到的：在K3单元格中输入公式后，用自动填充功能完 成K4:K180的计算，则K3单元格中的公式是
（计算公式：第四季度销量占全年比重％=第四季度累计销量/全年累计销量×100）
（2）通过排序的方法找出“大众”品牌中2019年累计销量最多的“车系”，则合适的主、次要关键字依次为 。
（3）在图a所示的状态下，下列说法正确的是___________(多选，填字母)。
图b
A．若F3单元格中的数据被误改为5269，则G3单元格和K3单元格中的数据会发生变化
B．区域I3:I180的数据可以通过复制区域G3：G180，然后选中单元格I3，执行“粘贴(P)”命令得到
C．设置“11月销量”和“12月销量”的筛选方式均如图b所示，则一定可筛选出最大的10行数据
D．选择区域“B8，D8，F8，H8”创建折线图，可看出桑塔纳2019年第四季度的销售趋势
【答案】（1）=(D3+F3+H3)/J3*100或者=SUM(D3,F3,H3)/J3*100
（2）品牌， 2019年累计销量 或 列C，列J
（3）A；B；D
【知识点】表格数据的处理与计算
14．（2020·温州模拟）小陈使用Flash软件创作主题为“古诗欣赏”的多媒体作品，如图a所示。
图a
请回答下列问题：
（1）在制作作品前，小陈进行了相应的分析和规划。下列说法正确的是________（多选，填字母）
A．确定选择Flash软件来合成作品，属于创作需求分析
B．将所的原始素材列成表格，确定获取原始素材的方式并分类登记，属于脚本设计
C．作品的模块设计描述了该多媒体作品的组成部分、工作流程、主要界面
D．多媒体作品设计的一般过程包括需求分析、规划设计、脚本编写
（2）如图a所示，“蜻蜓”图层第1帧到第50帧实现了蜻蜓从舞台左上角飞到右边荷花上，该动画类型为 （选填：动画补间 / 形状补间）。
（3）如图a所示，为使“标题”图层的文字从第1帧开始，并持续到最后1帧，正确的操作是 。
（4）小陈使用Flash软件制作“播放”按钮的部分界面如图b所示。
图b
则在测试影片时，下列说法正确的是_________（单选，填字母）
A．该按钮能响应鼠标单击，响应的区域仅为“播放”文字的区域
B．若“声音”图层中的声音“同步”属性设置为“数据流”，则在测试影片时能听到声音
C．因为“背景”图层的“点击”帧为空白关键帧，所以该按钮不能响应鼠标单击
D．该按钮能响应鼠标单击，当鼠标指针经过该按钮时不能显示“播放”文字
（5）执行第⑶题操作后，测试影片时，要使动画在最后1帧停止播放，则需要在 图层第50帧添加动作脚本 。
【答案】（1）A；B；D
（2）动画补间
（3）选中“标题”图层最后1帧（或第50帧）执行“清除关键帧”操作。 或选中“标题”图层第1（2-49帧的任意一帧都行）帧执行“复制帧”操作，在最后1帧执行“粘贴帧”操作。或者选中“标题”图层第2（3-49帧的任意一帧都行）帧，移动到第50帧
（4）A
（5）蜻蜓或标题；stop();
【知识点】多媒体作品的规划和设计；时间轴、帧、图层、库的概念及基本操作；动画的实现；常用影片控制函数的应用
15．（2020·温州模拟）小董编写了一个有关“筛选操作”的VB程序，实现如下功能：在文本框Text1中显示一组随机生成个位数为“9”的两位数（原始数据），在文本框Text2中输入筛选个数，单击“操作”按钮Command1后，在文本框Text3中按降序显示所筛选个数的不重复最大数据（以逗号分隔并以数据结尾），若在文本框Text2中输入的数大于原始数据中不相同数的个数，则在文本框Text3中显示“筛选的个数太大，请重新输入!”。程序运行界面如图所示。
（1）如图所示，该VB程序的窗体中共有 类对象（填数字）。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const n = 10
Dim d(n) As Integer, c As Integer
Private Sub Form_Load()
Dim i As Integer, j As Integer, f As Boolean, s As String
Randomize
c = n
For i = 1 To n
f = False
d(i) = ①
' 随机生成个位数为“9”的两位数
For j = 1 To i - 1
If ②
Then f = True
Next j
If f Then c = c - 1
Next i
'原始数据在文本框Text1中显示。代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As
Integer, m As Integer
Dim cnt As Integer，t As String, s As String
d(0) = 100
cnt = Val(Text2.Text)
If cnt > c Then
Text3.Text = "输入筛选的个数太大，请重新输入！"
Exit Sub 'Exit Sub表示退出过程
End If
For i = 1 To cnt
k = i
For j = i + 1 To n
If d(j) < d(i - 1) And ( ) Then k = j
Next j
If k <> i Then
t = d(i): d(i) = d(k): d(k) = t
End If
Next i
For i = 1 To cnt
s = s + Str(d(i)) + "，"
Next i
Text3.Text = ③
End Sub
① ② ③
（3）程序中加框处代码有错，请改正。
【答案】（1）3
（2）Int(Rnd * 9) * 10 + 19或者Int(Rnd * 9 + 1) * 10 + 9；d(i) = d(j)；Mid(s, 1, Len(s) - 1) 或Mid(s, 1, Len(s) - 2)
（3）d(k) < d(j) Or d(k) >= d(i - 1)
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；常见数据类型、数组；常量、变量及变量的赋值
16．（2020·温州模拟）某考试的多选题有“A、B、C、D、E”5个答案选项。
例如，标准答案为“ABE”，则对应得分表如下所示。
学生答案 ABE AB AE BE A B E AC ......
字符串 11001 11000 10001 01001 10000 01000 00001 10100 ......
十进制数(x) 25 24 17 9 16 8 1 20 ......
ans(x) 2 1 1 1 1 1 1 0 0
小温依据上述描述设计了“多选题阅卷”的VB程序，实现如下功能：在文本框Text1中输入标准答案（大写字母），先单击“初始化”按钮Command1，在数组ans中生成所有答案组合对应的分值，然后单击“阅卷”按钮Command2，从数据库中读取学生的答案并进行阅卷，在列表框List1中显示得分结果。程序运行界面如图所示。
（1）若标准答案为“ACD”，则数组元素ans
(18) 的值为
（2）请在划线处填入合适的代码。
Dim ans(0 To 31) As Integer
Private Sub Command1_Click()
Dim b(0 To 4) As Integer
Dim s As String, c As String, sum As Integer, k As Integer
'初始化数组ans和数组b，各元素的初始值均为0。代码略
s = Text1.Text：k
= Len(s)
For i = 1 To k
c = Mid(s, i, 1)
b(Asc(c) - 65) = 2 ^ (69 - Asc(c))
Next i
For i = 0 To 4
If b(i) <> 0 Then
ans(b(i)) = 1
sum = ①
End If
Next i
ans(sum) = 2
'当标准答案含3个及以上选项时，学生答案选其中2个选项可得1分
i = 0
Do While k >= 3 And i <= 4
For j = i + 1 To 4
If b(i) * b(j) <> 0 Then ans(b(i)
+ b(j)) = 1
Next j
i = i + 1
Loop
i = 0
Do While k >= 4 And i <= 4
For j = i + 1 To 4
If b(i) * b(j) = 0 Or k = 5 Then ②
Next j
i = i + 1
Loop
'当标准答案含5个选项时，学生答案选其中4个选项可得1分。代码略
End
Sub
Private Sub Command2_Click()
Dim xh(1 To 1000) As String, answer(1 To 1000) As String
'从数据库中读取学生学号和答案的数据分别存储在数组xh和answer中
'记录总数存储在变量n中，代码略
List1.Clear
For i = 1 To n
List1.AddItem xh(i) + " " + answer(i) + " " + Str(ans(f(answer(i))))
Next i
End Sub
Function f(s As String) As Integer
Dim i As Integer, x As Integer
x = 0
For i = 1 To Len(s)
x = ③
Next i
f = x
End Function
① ② ③
【答案】（1）1
（2）sum + b(i)或sum + 2 ^ (4 – i)；ans(sum - b(i) - b(j)) = 1；x + Val(Mid(s, i, 1)) * 2 ^ (Len(s) - i)或者x + Val(Mid(s, i, 1)) * 2 ^ (5 - i)或者 x + Val(Mid(s, Len(s) - i + 1, 1)) * 2 ^ (i - 1)或者 x + Val(Mid(s, 6 - i, 1)) * 2 ^ (i - 1)或者 x * 2 + Val(Mid(s, i, 1))
【知识点】常见数据类型、数组；常量、变量及变量的赋值；过程与自定义函数
1 / 1
