浙江省宁波市镇海中学2020届高三6月信息技术考前模拟试卷
一、选择题（本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求）
1．（2020·宁波模拟）关于信息与信息技术，以下说法正确的是（ ）
A．从报纸上读新闻，文字是信息，纸张是信息的载体
B．汉字和西文字符一样都可以用 ASCII 编码作为交换码
C．通过“采样”和“量化”可以实现模拟量的数字化，这个过程称为“数模转换”
D．通过搜索引擎、主题目录和元搜索引擎来检索信息，是在因特网上检索信息最常用的几种途径
2．（2020·宁波模拟）以下选项中，体现了人工智能技术的是（ ）
A．Word 软件中的自动更正功能
B．恒温杯使水温保持在一定的温度
C．智能手机使用人脸识别解锁手机
D．超市防盗门检测到未付款的商品发出警报
3．（2020·宁波模拟）某 Access 数据表如图所示，以下说法正确的是（ ）
A．当前数据表的表名为“校园管理”
B．“ID”字段的数据类型可能为“数字”
C．只能在设计视图中交换“卡号”字段与“姓名”字段的位置
D．新建记录时，可以在“注册日期”字段下输入“二〇一八年一月三日”
4．（2020·宁波模拟）使用 UltraEdit 软件查看字符“9是3的倍数。”的内码，部分界面如图所示。以下说法正确的是（ ）
A．图中共有3个ASCII码字符
B．存储这些字符需要12B空间
C．字符“数”的二进制内码为“11111101 10100001”
D．“10是2的倍数。”的内码可能为“3A CA C7 32 B5 C4 B1 B6 CA FD A1 A3”
5．（2020·宁波模拟）用 Photoshop 软件制作作品“春.psd”，界面如图所示：以下说法正确的是（ ）
A．“花 2”图层不可以被直接删除
B．“春.psd”文件的大小为 4.16M
C．“春”图层不能直接添加图层样式
D．“燕子”图层不能直接修改不透明度
6．（2020·宁波模拟）使用 GoldWave 软件编辑某文档，部分编辑界面如图所示。执行“剪裁”命令后，保持其他参数不变，以量化位数 8bit 另存为 music.wav 的存储容量约为（ ）
A．1.7MB B．3.4MB C．27.2MB D．10.2MB
7．（2020·宁波模拟）VB 表达式 3 + 7 \ 3 Mod 4 / 2 - 1的值为（ ）
A．2 B．3 C．4 D．5
8．（2020·宁波模拟）有如图所示的流程图，若输入 n=33，以下说法正确的是（ ）
A．输出s为4 B．输出k为4
C．“a=nModk”执行次数为3次 D．流程会陷入死循环
9．（2020·宁波模拟）某 VB 程序如下：
Dim a(1 To 6) As Integer
Randomize
a=n Mod k
n=n\k,k=k+1,s=s+a
a(1) = Int(11 * Rnd) + 2
For i = 2 To 6
a(i) = Int(11 * Rnd) + 2
If i Mod 2 = 1 And Not prime(a(i)) Then i = i - 1
ElseIf Not prime(a(i)) Then a(i) = a(i) + a(i - 1)
End If
Next i
'自定义函数 prime()用于判断参数是否为质数，prime(n) = True 则说明 n 为质数，否则为合数，定义函数代码略执行该程序后，a(1)～a(6)的值不．可．能．为（ ）
A．7, 10, 3, 7, 11, 23 B．4, 10, 5, 11, 3, 11
C．6, 10, 7, 16, 7, 7 D．12, 2, 11, 3, 3, 13
10．（2020·宁波模拟）某 VB 程序如下：
Dim a(1 To 10) As Integer，b(1 To 10) As Integer
k = 0
For i = 10 To 1 Step -1
Do While b(i) <> 0 k = k + 1
a(k) = i: b(i) = b(i) - 1
Loop
Next i
若 a(1)～a(10)的值分别为 7，9，8，1，9，4，4，2，1，1，则运行以上程序后，下列说法正确的是（ ）
A．这是一段冒泡排序程序
B．运行后 a(1)～a(10)的值分别为 1，1，1，2，4，4，7，8，9，9
C．加框部分运行后 b(1)～b(10)的值分别为 3，1，0，2，0，0，1，1，2，0
D．本算法是通过比较交换数据来实现排序的
11．（2020·宁波模拟）有如下程序段
Dim n As Integer, i As Integer, left As Integer, right As Integer, m As Integer
Dim a(1 To 10) As String, t As String, key As String n = 6
a(1) = "35": a(2) = "20": a(3) = "18": a(4) = "8": a(5) = "274": a(6) = "47" For i = 1 To n - 1
For j = n To i + 1 Step -1
If a(i) < a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
key = Text1.Text
left = 1: right = n
Do While left <= right
m = (left + right) \ 2
If a(m) = key Then Exit Do
If a(m) < key Then right = m - 1 Else left = m + 1
Loop
若在文本框 Text1 中输入“212”，则程序运行结束后，m 的值为（ ）
A． 1 B．2 C．4 D．5
12．（2020·宁波模拟）有如下程序段
Function Search(m As Integer, pre As Integer) As Integer
Dim i As Integer
If m < 0 Then
Search = 0
ElseIf m = 0 Then
Search = 1
Else
For i = pre To m
Search = Search + Search(m - i, i) Next i
End If
End Function
Private Sub Command1_Click() Dim n As Integer
n = Val(Text1.Text) Label1.Caption = Search(n, 1)
End Sub
若在文本框 Text1 中输入“4”，则标签 Label1 中显示的内容为（ ）
A．2 B．4 C． 5 D．7
二、非选择题（本大题共 4 小题，4+8+7+7，共 26 分）
13．（2020·宁波模拟）小王收集了“浙江省各地市2014、2015年人口统计表”的数据。并用excel软件进行分析，部分界面如
图a所示，请回答下列问题：
（1）区域 F3:G13 中的排名数据由 F3 单元格中使用 Rank 函数计算后进行自动填充获得，则应在 F3 单元格中 输入公式 。（Rank 函数是返回某数字在一列数字中相对于其他数值的大小排名的一个函数，如：Rank(A1,A1:A10)是计算A1在数据区域A1:A10中降序排序的名次）。
（2）根据图 a 中数据制作如图 b 所示的图表，则创建图表的数据区域是 ；
（3）小王想要找出浙东北地域人口增长率最高的 3 地市，下列操作可行的是 。
A．以“地域”等于“浙东北”进行筛选，再以“人口增长率(%)”为最大3项进行筛选，找到筛选出的地市。
B．复制区域A2:G8到新的工作表，然后在新工作表中以“人口增长率(%)”为最大3项进行筛选，找到筛选出的地市。
C．选取区域A2:G8，以“人口增长率排名”为关键字进行升序排序，找到排在前面的3个地市。
D．选取区域B3:G8，以“列E”为关键字进行降序排序，找到排在前面的3个地市。
14．（2020·宁波模拟）地理老师为辅助教学，创作了“地理实验”Flash动画作品（如图a所示），“背风坡”场景中，“云朵”从左移动到右，从山顶移动到山脚，同时，“云朵”从完全显示变到最终消失。当动画播放到该场景最后一帧时停止播放，点击“返回”按钮，转到“主交互界面”第1帧并停止播放，请根据要求回答问题。
图 a
图 b
（1）在多媒体作品设计中，系统结构设计确定了一个作品的线路走向，之后要对各模块进行具体设计。在 模块设计时，需要注意的是 。（多选，填字母:A .屏幕布局合理规范/B .交互设计友好快速/C .音乐悦耳，色彩和谐/D .确定采用何种制作软件）
（2）根据题意，“云”图层中云朵的 alpha值的变化趋势是 （单选，选填字
母：A .alpha 值从 100%变化到 0%/ B .alpha 值从 0%变化到 100% ）
（3）“返回”按钮元件设计如图 b所示，请判断该按钮的响应区域 （单选，选填字母：A .“文字”图层确定 的区域 /B .“圆”图层确定的区域 /C . “文字”图层确定的区域+“圆”图层确定的区域）。“三角”图层“按下”帧中添图b加了一段音乐，测试场景，当点击按钮时发现并不会播放音乐，请分析原因 ；
（4）根据题意，“返回”按钮上应添加的动作脚本 。
15．（2020·宁波模拟）小天使舞蹈队编排一个舞蹈。该舞蹈要求人数为偶数，其中 1 位同学领舞，其站位始终不变，舞蹈队形
变化时，其余同学按逆时针顺序移动站位。我们把所有跳舞的同学从领舞开始依次编为数字 1～n（n 为偶 数），然后把队伍编号按 U 形走向分成两列，即得到第一次队形。从第二次队形开始，固定编号 1（领舞），
其余编号均按逆时针方向移动一个位置，即为该次队形；以后各次队形以此类推，直到除领舞外的所有同学
按逆时针转完一圈为止。
例如，节目人数为 6 时队形变化情况如下：
小嘉为此编写了一个 VB 程序，功能如下：在文本框 Text1 中输入跳舞的同学 n（n 为偶数），单击“队形
变化”按钮 Command1，在列表框 list1 中输出每次变化后的队形。程序代码如下，运行效果如图所示。
Private Sub Command1_Click() Dim a(1 To 20) As String
Dim result As String, t As String
Dim n As Integer, i As Integer, j As Integer n = Val(Text1.Text)
For i = 1 To n
①
Next i
For i = 1 To
result = " "
List1.AddItem "第" & Str(i) & "次：" For j = 1 To n \ 2
result = a(j) + " " + a(n – j + 1 ) List1.AddItem result
Next j
②
For j = n To 3 Step -1 a(j) = a(j - 1)
Next j
a(2) = temp
Next i End Sub
请回答下列问题：
（1）语句 List1.AddItem result 中的 AddItem 是 （单选，填字母：A
.方法名/B .过程名/C .事件名）
（2）实现上述功能的 VB 代码如下，请在划线处填入合适代码。
① ②
（3）程序中加框处代码有错，请改正。
16．（2020·宁波模拟）小明基于插入排序思想设计了一个改进的排序算法。输入n个两位正整数到数组a，判断数组a中每个元素的奇偶性，若为奇数则将其放前插入适当位置，若为偶数则将其放后插入适当位置。排序完后数组a中所有奇数在前升序排序，偶数在后降序排序。程序代码如下：
Dim a(1 To 100) As Integer, n As Integer
Function moving( start As Integer, finish As Integer, st As Integer)
'将元素 a(finish)插入到元素 a(start)和元素 a(start+st)之间
Dim i As Integer, k As Integer k = a(finish)
For i = finish - st To start Step -st a(i + st) = a(i)
Next i a(start) = k
End Function
Private Sub Command1_Click()
Dim head As Integer, end1 As Integer, i As Integer, ans As String
' 将待排序的数存储在数组 a 的 a(1)至 a(n)中，并输入元素个数 n，代码略
head = 1: end1 = n + 1
Do While head < end1
If ① Then
For i = 1 To head - 1
If a(i) > a(head) Then Exit For
Next i
Call moving(i, head, 1)
head = ②
Else
For i = end1 To n
If a(i) < a(head) Then Exit For
Next i
Call moving( ③ )
End1 = end1 - 1
End If
Loop
For i = 1 To n
ans = ans + Str(a(i))
Next i
Text2.Text = ans End Sub 请回答下列问题：
（1）若输入 n=5，元素 a(1)至 a(5)的初值为：11,12,13,14,15，运行程序后，输出的结果为 ；
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
① ② ③
（3）如果输入的 n 个数中有非正整数（数保证能在 Integer 型存储），运行程序后的输出 （选填： 能 / 不能）保证仍是奇数在前升序排序，偶数在后降序排序。
答案解析部分
1．【答案】D
【知识点】信息及其特征；网络资源的检索；数字化概念与作用
2．【答案】C
【知识点】人工智能的应用
3．【答案】D
【知识点】数据表、字段、记录的概念；数据表、字段、记录的编辑；数据表视图与设计视图
4．【答案】B
【知识点】信息的编码；进制及数制转换
5．【答案】D
【知识点】图层及图层的基本操作
6．【答案】B
【知识点】声音、图像、视频编码
7．【答案】A
【知识点】运算符、基本运算与表达式
8．【答案】A
【知识点】常量、变量及变量的赋值；流程图识读
9．【答案】A
【知识点】运算符、基本运算与表达式；常量、变量及变量的赋值；过程与自定义函数
10．【答案】C
【知识点】程序的调试及运行；常量、变量及变量的赋值；排序算法及程序实现
11．【答案】C
【知识点】常量、变量及变量的赋值；查找算法及程序实现
12．【答案】C
【知识点】过程与自定义函数
13．【答案】（1）=RANK(D3,D$3:D$13)
（2）B2:D2,B9:D13
（3）B；D
【知识点】表格数据的处理与计算；数据分析
14．【答案】（1）ABC
（2）A
（3）A；音乐播放方式不是事件或开始
（4）On(Press){GotoAndStop(“主交互界面”,1)}
【知识点】多媒体作品的规划和设计；元件的类型与应用；常用影片控制函数的应用
15．【答案】（1）A
（2）a(i) = Str(i)；temp = a(n)
（3）n-1
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；常量、变量及变量的赋值
16．【答案】（1）11 13 15 14 12
（2）a(head) Mod 2 = 1；head+1；i - 1, head, -1
（3）能
【知识点】常量、变量及变量的赋值；排序算法及程序实现
1 / 1浙江省宁波市镇海中学2020届高三6月信息技术考前模拟试卷
一、选择题（本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求）
1．（2020·宁波模拟）关于信息与信息技术，以下说法正确的是（ ）
A．从报纸上读新闻，文字是信息，纸张是信息的载体
B．汉字和西文字符一样都可以用 ASCII 编码作为交换码
C．通过“采样”和“量化”可以实现模拟量的数字化，这个过程称为“数模转换”
D．通过搜索引擎、主题目录和元搜索引擎来检索信息，是在因特网上检索信息最常用的几种途径
【答案】D
【知识点】信息及其特征；网络资源的检索；数字化概念与作用
2．（2020·宁波模拟）以下选项中，体现了人工智能技术的是（ ）
A．Word 软件中的自动更正功能
B．恒温杯使水温保持在一定的温度
C．智能手机使用人脸识别解锁手机
D．超市防盗门检测到未付款的商品发出警报
【答案】C
【知识点】人工智能的应用
3．（2020·宁波模拟）某 Access 数据表如图所示，以下说法正确的是（ ）
A．当前数据表的表名为“校园管理”
B．“ID”字段的数据类型可能为“数字”
C．只能在设计视图中交换“卡号”字段与“姓名”字段的位置
D．新建记录时，可以在“注册日期”字段下输入“二〇一八年一月三日”
【答案】D
【知识点】数据表、字段、记录的概念；数据表、字段、记录的编辑；数据表视图与设计视图
4．（2020·宁波模拟）使用 UltraEdit 软件查看字符“9是3的倍数。”的内码，部分界面如图所示。以下说法正确的是（ ）
A．图中共有3个ASCII码字符
B．存储这些字符需要12B空间
C．字符“数”的二进制内码为“11111101 10100001”
D．“10是2的倍数。”的内码可能为“3A CA C7 32 B5 C4 B1 B6 CA FD A1 A3”
【答案】B
【知识点】信息的编码；进制及数制转换
5．（2020·宁波模拟）用 Photoshop 软件制作作品“春.psd”，界面如图所示：以下说法正确的是（ ）
A．“花 2”图层不可以被直接删除
B．“春.psd”文件的大小为 4.16M
C．“春”图层不能直接添加图层样式
D．“燕子”图层不能直接修改不透明度
【答案】D
【知识点】图层及图层的基本操作
6．（2020·宁波模拟）使用 GoldWave 软件编辑某文档，部分编辑界面如图所示。执行“剪裁”命令后，保持其他参数不变，以量化位数 8bit 另存为 music.wav 的存储容量约为（ ）
A．1.7MB B．3.4MB C．27.2MB D．10.2MB
【答案】B
【知识点】声音、图像、视频编码
7．（2020·宁波模拟）VB 表达式 3 + 7 \ 3 Mod 4 / 2 - 1的值为（ ）
A．2 B．3 C．4 D．5
【答案】A
【知识点】运算符、基本运算与表达式
8．（2020·宁波模拟）有如图所示的流程图，若输入 n=33，以下说法正确的是（ ）
A．输出s为4 B．输出k为4
C．“a=nModk”执行次数为3次 D．流程会陷入死循环
【答案】A
【知识点】常量、变量及变量的赋值；流程图识读
9．（2020·宁波模拟）某 VB 程序如下：
Dim a(1 To 6) As Integer
Randomize
a=n Mod k
n=n\k,k=k+1,s=s+a
a(1) = Int(11 * Rnd) + 2
For i = 2 To 6
a(i) = Int(11 * Rnd) + 2
If i Mod 2 = 1 And Not prime(a(i)) Then i = i - 1
ElseIf Not prime(a(i)) Then a(i) = a(i) + a(i - 1)
End If
Next i
'自定义函数 prime()用于判断参数是否为质数，prime(n) = True 则说明 n 为质数，否则为合数，定义函数代码略执行该程序后，a(1)～a(6)的值不．可．能．为（ ）
A．7, 10, 3, 7, 11, 23 B．4, 10, 5, 11, 3, 11
C．6, 10, 7, 16, 7, 7 D．12, 2, 11, 3, 3, 13
【答案】A
【知识点】运算符、基本运算与表达式；常量、变量及变量的赋值；过程与自定义函数
10．（2020·宁波模拟）某 VB 程序如下：
Dim a(1 To 10) As Integer，b(1 To 10) As Integer
k = 0
For i = 10 To 1 Step -1
Do While b(i) <> 0 k = k + 1
a(k) = i: b(i) = b(i) - 1
Loop
Next i
若 a(1)～a(10)的值分别为 7，9，8，1，9，4，4，2，1，1，则运行以上程序后，下列说法正确的是（ ）
A．这是一段冒泡排序程序
B．运行后 a(1)～a(10)的值分别为 1，1，1，2，4，4，7，8，9，9
C．加框部分运行后 b(1)～b(10)的值分别为 3，1，0，2，0，0，1，1，2，0
D．本算法是通过比较交换数据来实现排序的
【答案】C
【知识点】程序的调试及运行；常量、变量及变量的赋值；排序算法及程序实现
11．（2020·宁波模拟）有如下程序段
Dim n As Integer, i As Integer, left As Integer, right As Integer, m As Integer
Dim a(1 To 10) As String, t As String, key As String n = 6
a(1) = "35": a(2) = "20": a(3) = "18": a(4) = "8": a(5) = "274": a(6) = "47" For i = 1 To n - 1
For j = n To i + 1 Step -1
If a(i) < a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i
key = Text1.Text
left = 1: right = n
Do While left <= right
m = (left + right) \ 2
If a(m) = key Then Exit Do
If a(m) < key Then right = m - 1 Else left = m + 1
Loop
若在文本框 Text1 中输入“212”，则程序运行结束后，m 的值为（ ）
A． 1 B．2 C．4 D．5
【答案】C
【知识点】常量、变量及变量的赋值；查找算法及程序实现
12．（2020·宁波模拟）有如下程序段
Function Search(m As Integer, pre As Integer) As Integer
Dim i As Integer
If m < 0 Then
Search = 0
ElseIf m = 0 Then
Search = 1
Else
For i = pre To m
Search = Search + Search(m - i, i) Next i
End If
End Function
Private Sub Command1_Click() Dim n As Integer
n = Val(Text1.Text) Label1.Caption = Search(n, 1)
End Sub
若在文本框 Text1 中输入“4”，则标签 Label1 中显示的内容为（ ）
A．2 B．4 C． 5 D．7
【答案】C
【知识点】过程与自定义函数
二、非选择题（本大题共 4 小题，4+8+7+7，共 26 分）
13．（2020·宁波模拟）小王收集了“浙江省各地市2014、2015年人口统计表”的数据。并用excel软件进行分析，部分界面如
图a所示，请回答下列问题：
（1）区域 F3:G13 中的排名数据由 F3 单元格中使用 Rank 函数计算后进行自动填充获得，则应在 F3 单元格中 输入公式 。（Rank 函数是返回某数字在一列数字中相对于其他数值的大小排名的一个函数，如：Rank(A1,A1:A10)是计算A1在数据区域A1:A10中降序排序的名次）。
（2）根据图 a 中数据制作如图 b 所示的图表，则创建图表的数据区域是 ；
（3）小王想要找出浙东北地域人口增长率最高的 3 地市，下列操作可行的是 。
A．以“地域”等于“浙东北”进行筛选，再以“人口增长率(%)”为最大3项进行筛选，找到筛选出的地市。
B．复制区域A2:G8到新的工作表，然后在新工作表中以“人口增长率(%)”为最大3项进行筛选，找到筛选出的地市。
C．选取区域A2:G8，以“人口增长率排名”为关键字进行升序排序，找到排在前面的3个地市。
D．选取区域B3:G8，以“列E”为关键字进行降序排序，找到排在前面的3个地市。
【答案】（1）=RANK(D3,D$3:D$13)
（2）B2:D2,B9:D13
（3）B；D
【知识点】表格数据的处理与计算；数据分析
14．（2020·宁波模拟）地理老师为辅助教学，创作了“地理实验”Flash动画作品（如图a所示），“背风坡”场景中，“云朵”从左移动到右，从山顶移动到山脚，同时，“云朵”从完全显示变到最终消失。当动画播放到该场景最后一帧时停止播放，点击“返回”按钮，转到“主交互界面”第1帧并停止播放，请根据要求回答问题。
图 a
图 b
（1）在多媒体作品设计中，系统结构设计确定了一个作品的线路走向，之后要对各模块进行具体设计。在 模块设计时，需要注意的是 。（多选，填字母:A .屏幕布局合理规范/B .交互设计友好快速/C .音乐悦耳，色彩和谐/D .确定采用何种制作软件）
（2）根据题意，“云”图层中云朵的 alpha值的变化趋势是 （单选，选填字
母：A .alpha 值从 100%变化到 0%/ B .alpha 值从 0%变化到 100% ）
（3）“返回”按钮元件设计如图 b所示，请判断该按钮的响应区域 （单选，选填字母：A .“文字”图层确定 的区域 /B .“圆”图层确定的区域 /C . “文字”图层确定的区域+“圆”图层确定的区域）。“三角”图层“按下”帧中添图b加了一段音乐，测试场景，当点击按钮时发现并不会播放音乐，请分析原因 ；
（4）根据题意，“返回”按钮上应添加的动作脚本 。
【答案】（1）ABC
（2）A
（3）A；音乐播放方式不是事件或开始
（4）On(Press){GotoAndStop(“主交互界面”,1)}
【知识点】多媒体作品的规划和设计；元件的类型与应用；常用影片控制函数的应用
15．（2020·宁波模拟）小天使舞蹈队编排一个舞蹈。该舞蹈要求人数为偶数，其中 1 位同学领舞，其站位始终不变，舞蹈队形
变化时，其余同学按逆时针顺序移动站位。我们把所有跳舞的同学从领舞开始依次编为数字 1～n（n 为偶 数），然后把队伍编号按 U 形走向分成两列，即得到第一次队形。从第二次队形开始，固定编号 1（领舞），
其余编号均按逆时针方向移动一个位置，即为该次队形；以后各次队形以此类推，直到除领舞外的所有同学
按逆时针转完一圈为止。
例如，节目人数为 6 时队形变化情况如下：
小嘉为此编写了一个 VB 程序，功能如下：在文本框 Text1 中输入跳舞的同学 n（n 为偶数），单击“队形
变化”按钮 Command1，在列表框 list1 中输出每次变化后的队形。程序代码如下，运行效果如图所示。
Private Sub Command1_Click() Dim a(1 To 20) As String
Dim result As String, t As String
Dim n As Integer, i As Integer, j As Integer n = Val(Text1.Text)
For i = 1 To n
①
Next i
For i = 1 To
result = " "
List1.AddItem "第" & Str(i) & "次：" For j = 1 To n \ 2
result = a(j) + " " + a(n – j + 1 ) List1.AddItem result
Next j
②
For j = n To 3 Step -1 a(j) = a(j - 1)
Next j
a(2) = temp
Next i End Sub
请回答下列问题：
（1）语句 List1.AddItem result 中的 AddItem 是 （单选，填字母：A
.方法名/B .过程名/C .事件名）
（2）实现上述功能的 VB 代码如下，请在划线处填入合适代码。
① ②
（3）程序中加框处代码有错，请改正。
【答案】（1）A
（2）a(i) = Str(i)；temp = a(n)
（3）n-1
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；常量、变量及变量的赋值
16．（2020·宁波模拟）小明基于插入排序思想设计了一个改进的排序算法。输入n个两位正整数到数组a，判断数组a中每个元素的奇偶性，若为奇数则将其放前插入适当位置，若为偶数则将其放后插入适当位置。排序完后数组a中所有奇数在前升序排序，偶数在后降序排序。程序代码如下：
Dim a(1 To 100) As Integer, n As Integer
Function moving( start As Integer, finish As Integer, st As Integer)
'将元素 a(finish)插入到元素 a(start)和元素 a(start+st)之间
Dim i As Integer, k As Integer k = a(finish)
For i = finish - st To start Step -st a(i + st) = a(i)
Next i a(start) = k
End Function
Private Sub Command1_Click()
Dim head As Integer, end1 As Integer, i As Integer, ans As String
' 将待排序的数存储在数组 a 的 a(1)至 a(n)中，并输入元素个数 n，代码略
head = 1: end1 = n + 1
Do While head < end1
If ① Then
For i = 1 To head - 1
If a(i) > a(head) Then Exit For
Next i
Call moving(i, head, 1)
head = ②
Else
For i = end1 To n
If a(i) < a(head) Then Exit For
Next i
Call moving( ③ )
End1 = end1 - 1
End If
Loop
For i = 1 To n
ans = ans + Str(a(i))
Next i
Text2.Text = ans End Sub 请回答下列问题：
（1）若输入 n=5，元素 a(1)至 a(5)的初值为：11,12,13,14,15，运行程序后，输出的结果为 ；
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
① ② ③
（3）如果输入的 n 个数中有非正整数（数保证能在 Integer 型存储），运行程序后的输出 （选填： 能 / 不能）保证仍是奇数在前升序排序，偶数在后降序排序。
【答案】（1）11 13 15 14 12
（2）a(head) Mod 2 = 1；head+1；i - 1, head, -1
（3）能
【知识点】常量、变量及变量的赋值；排序算法及程序实现
1 / 1
