资源简介

浙江省诸暨市2020-2021学年高二上学期信息技术期末考试试卷
一、选择题（本大题共12小题，每小题2分，共24分。）
1．（2020高二上·诸暨期末）图图为了推销自己种植的各类水果，开通了一个微信公众号发布销售信息。下列说法正确的是（　　）
A．为了方便推广而制作微信公众号二维码的过程属于信息的编码
B．销售信息在传递和共享过程中有可能产生损耗
C．微信公众号是载体，发布的文字、图像等是信息
D．销售信息具有时效性，过期的信息没有任何价值
【答案】A
【知识点】信息及其特征；条形码、二维码
2．（2020高二上·诸暨期末）下列关于某手机的应用中，体现人工智能技术的是（　　）
①使用“应用分身”功能，实现一台手机登录两个微信帐号
②使用“多屏协同”功能，实现电脑端操作手机
③使用“人脸识别”功能，实现屏幕解锁
④使用“手写识别”功能，实现输入文字
⑤使用“运动健康”功能，记录用户运动步数
⑥使用“语音助手”功能，回应用户提出的需求
A．②③④ B．①②⑤ C．①③⑥ D．③④⑥
【答案】D
【知识点】人工智能的应用
3．（2020高二上·诸暨期末）使用 Access 软件设计一个数据表，存储如图所示的图书相关数据。
下列数据表结构设计最合理的是（　　）
A． B．
C． D．
【答案】B
【知识点】数据表的创建
4．（2020高二上·诸暨期末）下列有关数制的说法，正确的是（　　）
A．二进制数1000中的高位数码1对应权值是24
B．二进制数111010转换成十六进制数是310
C．若二进制数末位为0，则该数对应的十进制数不一定是偶数
D．若二进制数101末位后加上数码0，则新数1010是原数101的2倍
【答案】D
【知识点】进制及数制转换
5．（2020高二上·诸暨期末）使用PhotoShop软件处理“中国戏曲”作品，部分编辑界面如图所示。
下列说法正确的是（　　）
A．可以使用文本工具修改“中国戏曲”图层的文字字体
B．不能将“人物”图层移动到“国粹”图层的上方
C．将“中国戏曲”图层的图层样式拷贝到“梅花”图层，“梅花”图层将有3种图层样式
D．将该作品按当前状态保存为 BMP 格式的文件，该文件中没有“屋檐”图像
【答案】D
【知识点】图片加工常用工具的使用；图层及图层的基本操作
6．（2020高二上·诸暨期末）将帧频为12fps、总帧数为100的Flash动画作品导出影片后的文件容量约为6MB（参数设置如图所示），则其采用的压缩比约为（　　）
A．5∶1 B．8∶1 C．15∶1 D．90∶1
【答案】B
【知识点】声音、图像、视频编码
7．（2020高二上·诸暨期末）数组元素a(1)~a(n)中存储了n个正整数，下列VB表达式的值为True时，可检测数组偶数位置元素的值为奇数的是（　　）
A．a(i) Mod 2 = i Mod 2
B．a(i) Mod 2 < i Mod 2
C．a(i) Mod 2 = 1 Or i Mod 2 = 0
D．a(i) Mod 2 = 1 And i Mod 2 = 0
【答案】D
【知识点】运算符、基本运算与表达式
8．（2020高二上·诸暨期末）某算法的部分流程图如图所示。执行这部分流程，若输入a的值为365，则输出b的值为（　　）
A．365 B．555 C．563 D．365563
【答案】C
【知识点】流程图识读
9．（2020高二上·诸暨期末）数组a使用如下VB程序段进行排序，第一遍加工后的结果为89，85，82，88，83，87，86，则该数组的原始顺序不可能的是（　　）
For i = 1 To n - 1
For j = n To i + 1 Step -1
If a(j) > a(j - 1) Then
k = a(j): a(j) = a(j - 1): a(j - 1) = k
End If
Next j
Next i
A．85，82，88，83，87，86，89 B．85，82，88，83，89，86，87
C．85，82，89，83，88，87，86 D．89，85，82，83，88，86，87
【答案】D
【知识点】排序算法及程序实现
10．（2020高二上·诸暨期末）有如下VB程序段：
s1 = Text1.Text
s2 = ""
For i = 1 To Len(s1)
c = Mid(s1, i, 1)
If c >= "A" And c <= "Z" Then
c = Chr(Asc(c) + 32)
ElseIf c >= "0" And c <= "9" Then
c = Chr((Asc(c) - Asc("0") + 2) Mod 10 + Asc("0"))
End If
s2 = c + s2
Next i
Text2.Text = s2
该程序段运行后，若在文本框Text1中输入“A19bCD”，则文本框Text2中显示的内容是（　　）
A．a19bcd B．a31bcd C．dcb31a D．dcb13a
【答案】D
【知识点】循环结构语句及程序实现；常用标准函数
11．（2020高二上·诸暨期末）有一VB程序的功能如下：在文本框Text1中输入一个单词，在文本框Text2中输入一行以句号结尾的句子（所有单词均由小写字母组成且句子中各个单词之间仅用空格隔开），单击命令按钮Command1，在文本框Text3中统计单词在句子中出现的次数，VB程序段如下：
s = Text2.Text
i = 1: k = 0: x = 0
Do While i <= Len(s)
c = Mid(s, i, 1)
If c >= "a" And c <= "z" Then
k = k + 1
Else
If word = Text1.Text Then x = x + 1
End If
i = i + 1
Loop
Text3.Text = Str(x)
加框处①、②应填入的代码为（　　）
A．word = Mid(s, i - k, k) k = 0
B．word = Mid(s, i - k, k) k = 1
C．word = Mid(s, i - k + 1 , k) k = 0
D．word = Mid(s, i - k + 1 , k) k = 1
【答案】A
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
12．（2020高二上·诸暨期末）有如下 VB 程序段：
Dim a(1 To 10) As Integer
a(1) = 20: a(2) = 19: a(3) = 17: a(4) = 15: a(5) = 15
a(6) = 15: a(7) = 16: a(8) = 20: a(9) = 25: a(10) = 27
L = 1: R = 10
Do While L <= R
m = (L + R) \ 2
If a(m) > a(m - 1) Then
R = m - 1
Else
L = m + 1
End If
Loop
Text1.Text = Str(R)
该程序段运行后，文本框Text1中显示的内容是（　　）
A．4 B．5 C．6 D．7
【答案】C
【知识点】查找算法及程序实现
二、非选择题（本大题共4小题，4+8+7+7，共26分）
13．（2020高二上·诸暨期末）图图收集了“近四年某高校各专业学生人数”的相关数据，并使用Excel软件进行数据处理，如图a所示。
（1）为计算图a中各个年份入学的总人数，图图已正确计算了单元格I3中的数据。他希望将单元格I3中的公式向下自动填充至单元格I6，从而正确计算出区域I4:I6中的数据，则下列修改I3中的公式方法不可行的是（单选，填字母）。
（提示：SUMIF函数用于统计某个区域中满足条件的单元格数值之和，例=SUMIF(B3:B22,H3,D3:D22)，用于统计2017年各专业男生人数之和）
A．=SUMIF($B$3:$B$22,H3,$F$3:$F$22)
B．=SUMIF(B$3:B$22,H3,F$3:F$22)
C．=SUMIF($B3:$B22,H3,$F3:$F22)
（2）根据图a中数据制作的图表如图b所示，创建该图表的数据区域是B2,F2,　 　。
（3）在图a所示的工作表中对数据作进一步的数据处理，已知F列中的数据是通过在F3单元格中输入公式“=D3+E3”再向下自动填充至F22计算得到的。则下列说法正确的是 。（多选，填字母）
A．将区域B2:F22中的数据按“总人数”升序排序，则区域I3:I6中的数据不会发生变化
B．若删除A列，则F列中的单元格将出现错误信息“#REF!”
C．将单元格D15中的数据改为“230”，则图表随之变化
D．若要筛选出“2020年”总人数最多的专业名称，可以通过“入学年份”为“2020年”，“总人数”为最大1项筛选得到
【答案】（1）C
（2）B15:B18,F15:F18
（3）A；C
【知识点】表格数据的处理与计算；表格数据的图表呈现
14．（2020高二上·诸暨期末）使用Flash软件创建“保护环境”多媒体作品。请回答下列问题：
（1）作品的模块设计框架如图a所示，将各功能模块和主交互界面都设计成独立场景。各功能模块的场景播放完后自动停止，单击“返回”按钮，返回主交互界面。下列说法正确的是__________（多选，填字母）
A．选用Flash软件合成该作品属于创作需求分析
B．确定原始素材的获取方式属于脚本编写
C．主交互界面中包含5个功能模块
D．主交互界面中按钮的应用体现了多媒体技术的交互性
E．要实现“按钮5”的功能，应该在该按钮上添加动作命令fscommand(“quit”);
（2）“低碳出行”场景的编辑界面如图b所示。“人物”图层实现了不断脚踩自行车的人由舞台左下角骑到舞台右下角的动画效果，则该图层第1帧到第36帧的动画类型是　 　（选填：逐帧动画/动画补间/形状补间）。若舞台尺寸为800×450，则该图层第36帧中的人物对象的坐标可能是　 　（单选，填字母：A .（50，50）/B .（700，500）/C .（400，50）/D .（700，400））
（3）要实现“地球”图层的动画出现时“人物”图层的内容消失，在不影响其它动画效果的前提下，可以进行的操作是　 　。
（4）位于舞台左上角的“返回”按钮来自于库中的“返回”元件，该元件的部分编辑界面如图c所示，下列说法正确的是 （多选，填字母）。
A．测试影片时，按钮无法响应鼠标事件
B．测试影片时，鼠标指针移动到按钮上时，文字内容消失
C．测试影片时，鼠标指针移动到按钮上时，能听到声音播放
D．将“文字”图层“弹起”帧的内容改为“退出”，舞台左上角的按钮上的文字随之改变
【答案】（1）A；B；D
（2）动画补间；D
（3）选中“人物”图层第37帧执行“插入空白关键帧”操作或选中“人物”图层第37~60帧执行“删除帧”操作
（4）B；D
【知识点】多媒体作品的规划和设计；动画的类型；时间轴、帧、图层、库的概念及基本操作；元件的类型与应用；二维动画实例属性的设置
15．（2020高二上·诸暨期末）两个长度相同的字符串s1和s2，若所含字符及各字符的数量均相等时可以归为一类。
如字符串“ABDAC”与字符串“AABCD”可以归为同一类，与“AABBC”不可以归为同一类。图图编写了一VB程序，功能如下：在文本框Text1中输入字符串s1，在文本框Text2中输入字符串s2，单击“判断”按钮Command1，在标签Label1中显示是否可以归为同一类的结果。部分运行界面如图所示。
请回答下列问题：
（1）要使窗体的标题栏文字显示为“同类字符判断”，则应设置窗体的　 　 属性（单选，填字母：A .Text / B
.Name /C .Caption）。
（2）实现上述功能的
VB 程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim a(1 To
100) As Boolean
Dim i As
Integer, j As Integer
Dim flag
As Boolean
s1 = Text1．Text
s2 = Text2．Text
flag =
True
For i = 1
To Len(s2)
　 　
Next i
If Len(s1)
<> Len(s2) Then
flag =
False
Else
For i = 1
To Len(s1)
c = 　 　
j = 1
Do
While j <= Len(s2)
If
Then
a(j) = False
Exit Do
End If
　 　
Loop
If j = Len(s2) + 1 Then flag = False
Next i
End If
If flag Then
Label1.Caption = "可以归为同一类"
Else
Label1.Caption = "不可归为同一类"
End If
End Sub
（3）程序中加框处代码有错，请改正。
【答案】（1）C
（2）a(i) = True；Mid(s1, i, 1)；j = j + 1
（3）c = Mid(s2, j, 1) And a(j)
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；分支结构语句及程序实现；循环结构语句及程序实现
16．（2020高二上·诸暨期末）图图基于排序算法设计了一个数字矩阵排序的VB程序，功能如下：在文本框Text1中输入矩阵的大小n，单击“生成”按钮Command1，在左侧列表框List1中显示行数和列数均为n的随机整数矩阵。单击“排序”按钮Command2，奇数行从左到右升序排序，偶数行从左到右降序排序，结果显示在列表框List2中，输出时保持矩阵大小不变。运行结果如图所示。
请回答下列问题：
（1）实现上述功能的
VB 程序如下，请在划线处填入合适的代码。
Dim a(1 To 100) As Integer
Dim n As Integer
Private Sub Command1_Click()
Dim i As
Integer, j As Integer
Dim s As
String, k As Integer
n =
Val(Text1.Text)
For i = 1 To
n
　 　
For j
= 1 To n
k
= (i - 1) * n + j
a(k)
= Int(Rnd() * 45 + 5) * 2
s
= s + " " + Str(a(k))
Next j
List1.AddItem
s
Next i
End Sub
Private Sub Command2_Click()
Dim i As
Integer, L As Integer, R As Integer
Dim f As
Integer
For i = 1
To n
If i Mod 2
= 1 Then f = 1 Else f = -1
　 　
R = i
* n
List2.AddItem
sort(L, R, f)
Next i
End Sub
Function sort(left As Integer, right As Integer,
order As Integer) As String
Dim i As
Integer, j As Integer, k As Integer
Dim s As
String, t As Integer
s =
""
For i =
left To right - 1
k = i
For j
= i + 1 To right
If
　 　 Then k = j
Next j
If k
<> i Then
t
= a(k): a(k) = a(i): a(i) = t
End If
s = s
+ " " + Str(a(i))
Next i
sort = s
End Function
（2）若删除上述VB程序中加框处代码，　 　（选填：会/不会）影响程序运行结果。
【答案】（1）s = ""；L = (i - 1) * n + 1；a(j) * order < a(k) * order
（2）会
【知识点】排序算法及程序实现
1 / 1浙江省诸暨市2020-2021学年高二上学期信息技术期末考试试卷
一、选择题（本大题共12小题，每小题2分，共24分。）
1．（2020高二上·诸暨期末）图图为了推销自己种植的各类水果，开通了一个微信公众号发布销售信息。下列说法正确的是（　　）
A．为了方便推广而制作微信公众号二维码的过程属于信息的编码
B．销售信息在传递和共享过程中有可能产生损耗
C．微信公众号是载体，发布的文字、图像等是信息
D．销售信息具有时效性，过期的信息没有任何价值
2．（2020高二上·诸暨期末）下列关于某手机的应用中，体现人工智能技术的是（　　）
①使用“应用分身”功能，实现一台手机登录两个微信帐号
②使用“多屏协同”功能，实现电脑端操作手机
③使用“人脸识别”功能，实现屏幕解锁
④使用“手写识别”功能，实现输入文字
⑤使用“运动健康”功能，记录用户运动步数
⑥使用“语音助手”功能，回应用户提出的需求
A．②③④ B．①②⑤ C．①③⑥ D．③④⑥
3．（2020高二上·诸暨期末）使用 Access 软件设计一个数据表，存储如图所示的图书相关数据。
下列数据表结构设计最合理的是（　　）
A． B．
C． D．
4．（2020高二上·诸暨期末）下列有关数制的说法，正确的是（　　）
A．二进制数1000中的高位数码1对应权值是24
B．二进制数111010转换成十六进制数是310
C．若二进制数末位为0，则该数对应的十进制数不一定是偶数
D．若二进制数101末位后加上数码0，则新数1010是原数101的2倍
5．（2020高二上·诸暨期末）使用PhotoShop软件处理“中国戏曲”作品，部分编辑界面如图所示。
下列说法正确的是（　　）
A．可以使用文本工具修改“中国戏曲”图层的文字字体
B．不能将“人物”图层移动到“国粹”图层的上方
C．将“中国戏曲”图层的图层样式拷贝到“梅花”图层，“梅花”图层将有3种图层样式
D．将该作品按当前状态保存为 BMP 格式的文件，该文件中没有“屋檐”图像
6．（2020高二上·诸暨期末）将帧频为12fps、总帧数为100的Flash动画作品导出影片后的文件容量约为6MB（参数设置如图所示），则其采用的压缩比约为（　　）
A．5∶1 B．8∶1 C．15∶1 D．90∶1
7．（2020高二上·诸暨期末）数组元素a(1)~a(n)中存储了n个正整数，下列VB表达式的值为True时，可检测数组偶数位置元素的值为奇数的是（　　）
A．a(i) Mod 2 = i Mod 2
B．a(i) Mod 2 < i Mod 2
C．a(i) Mod 2 = 1 Or i Mod 2 = 0
D．a(i) Mod 2 = 1 And i Mod 2 = 0
8．（2020高二上·诸暨期末）某算法的部分流程图如图所示。执行这部分流程，若输入a的值为365，则输出b的值为（　　）
A．365 B．555 C．563 D．365563
9．（2020高二上·诸暨期末）数组a使用如下VB程序段进行排序，第一遍加工后的结果为89，85，82，88，83，87，86，则该数组的原始顺序不可能的是（　　）
For i = 1 To n - 1
For j = n To i + 1 Step -1
If a(j) > a(j - 1) Then
k = a(j): a(j) = a(j - 1): a(j - 1) = k
End If
Next j
Next i
A．85，82，88，83，87，86，89 B．85，82，88，83，89，86，87
C．85，82，89，83，88，87，86 D．89，85，82，83，88，86，87
10．（2020高二上·诸暨期末）有如下VB程序段：
s1 = Text1.Text
s2 = ""
For i = 1 To Len(s1)
c = Mid(s1, i, 1)
If c >= "A" And c <= "Z" Then
c = Chr(Asc(c) + 32)
ElseIf c >= "0" And c <= "9" Then
c = Chr((Asc(c) - Asc("0") + 2) Mod 10 + Asc("0"))
End If
s2 = c + s2
Next i
Text2.Text = s2
该程序段运行后，若在文本框Text1中输入“A19bCD”，则文本框Text2中显示的内容是（　　）
A．a19bcd B．a31bcd C．dcb31a D．dcb13a
11．（2020高二上·诸暨期末）有一VB程序的功能如下：在文本框Text1中输入一个单词，在文本框Text2中输入一行以句号结尾的句子（所有单词均由小写字母组成且句子中各个单词之间仅用空格隔开），单击命令按钮Command1，在文本框Text3中统计单词在句子中出现的次数，VB程序段如下：
s = Text2.Text
i = 1: k = 0: x = 0
Do While i <= Len(s)
c = Mid(s, i, 1)
If c >= "a" And c <= "z" Then
k = k + 1
Else
If word = Text1.Text Then x = x + 1
End If
i = i + 1
Loop
Text3.Text = Str(x)
加框处①、②应填入的代码为（　　）
A．word = Mid(s, i - k, k) k = 0
B．word = Mid(s, i - k, k) k = 1
C．word = Mid(s, i - k + 1 , k) k = 0
D．word = Mid(s, i - k + 1 , k) k = 1
12．（2020高二上·诸暨期末）有如下 VB 程序段：
Dim a(1 To 10) As Integer
a(1) = 20: a(2) = 19: a(3) = 17: a(4) = 15: a(5) = 15
a(6) = 15: a(7) = 16: a(8) = 20: a(9) = 25: a(10) = 27
L = 1: R = 10
Do While L <= R
m = (L + R) \ 2
If a(m) > a(m - 1) Then
R = m - 1
Else
L = m + 1
End If
Loop
Text1.Text = Str(R)
该程序段运行后，文本框Text1中显示的内容是（　　）
A．4 B．5 C．6 D．7
二、非选择题（本大题共4小题，4+8+7+7，共26分）
13．（2020高二上·诸暨期末）图图收集了“近四年某高校各专业学生人数”的相关数据，并使用Excel软件进行数据处理，如图a所示。
（1）为计算图a中各个年份入学的总人数，图图已正确计算了单元格I3中的数据。他希望将单元格I3中的公式向下自动填充至单元格I6，从而正确计算出区域I4:I6中的数据，则下列修改I3中的公式方法不可行的是（单选，填字母）。
（提示：SUMIF函数用于统计某个区域中满足条件的单元格数值之和，例=SUMIF(B3:B22,H3,D3:D22)，用于统计2017年各专业男生人数之和）
A．=SUMIF($B$3:$B$22,H3,$F$3:$F$22)
B．=SUMIF(B$3:B$22,H3,F$3:F$22)
C．=SUMIF($B3:$B22,H3,$F3:$F22)
（2）根据图a中数据制作的图表如图b所示，创建该图表的数据区域是B2,F2,　 　。
（3）在图a所示的工作表中对数据作进一步的数据处理，已知F列中的数据是通过在F3单元格中输入公式“=D3+E3”再向下自动填充至F22计算得到的。则下列说法正确的是 。（多选，填字母）
A．将区域B2:F22中的数据按“总人数”升序排序，则区域I3:I6中的数据不会发生变化
B．若删除A列，则F列中的单元格将出现错误信息“#REF!”
C．将单元格D15中的数据改为“230”，则图表随之变化
D．若要筛选出“2020年”总人数最多的专业名称，可以通过“入学年份”为“2020年”，“总人数”为最大1项筛选得到
14．（2020高二上·诸暨期末）使用Flash软件创建“保护环境”多媒体作品。请回答下列问题：
（1）作品的模块设计框架如图a所示，将各功能模块和主交互界面都设计成独立场景。各功能模块的场景播放完后自动停止，单击“返回”按钮，返回主交互界面。下列说法正确的是__________（多选，填字母）
A．选用Flash软件合成该作品属于创作需求分析
B．确定原始素材的获取方式属于脚本编写
C．主交互界面中包含5个功能模块
D．主交互界面中按钮的应用体现了多媒体技术的交互性
E．要实现“按钮5”的功能，应该在该按钮上添加动作命令fscommand(“quit”);
（2）“低碳出行”场景的编辑界面如图b所示。“人物”图层实现了不断脚踩自行车的人由舞台左下角骑到舞台右下角的动画效果，则该图层第1帧到第36帧的动画类型是　 　（选填：逐帧动画/动画补间/形状补间）。若舞台尺寸为800×450，则该图层第36帧中的人物对象的坐标可能是　 　（单选，填字母：A .（50，50）/B .（700，500）/C .（400，50）/D .（700，400））
（3）要实现“地球”图层的动画出现时“人物”图层的内容消失，在不影响其它动画效果的前提下，可以进行的操作是　 　。
（4）位于舞台左上角的“返回”按钮来自于库中的“返回”元件，该元件的部分编辑界面如图c所示，下列说法正确的是 （多选，填字母）。
A．测试影片时，按钮无法响应鼠标事件
B．测试影片时，鼠标指针移动到按钮上时，文字内容消失
C．测试影片时，鼠标指针移动到按钮上时，能听到声音播放
D．将“文字”图层“弹起”帧的内容改为“退出”，舞台左上角的按钮上的文字随之改变
15．（2020高二上·诸暨期末）两个长度相同的字符串s1和s2，若所含字符及各字符的数量均相等时可以归为一类。
如字符串“ABDAC”与字符串“AABCD”可以归为同一类，与“AABBC”不可以归为同一类。图图编写了一VB程序，功能如下：在文本框Text1中输入字符串s1，在文本框Text2中输入字符串s2，单击“判断”按钮Command1，在标签Label1中显示是否可以归为同一类的结果。部分运行界面如图所示。
请回答下列问题：
（1）要使窗体的标题栏文字显示为“同类字符判断”，则应设置窗体的　 　 属性（单选，填字母：A .Text / B
.Name /C .Caption）。
（2）实现上述功能的
VB 程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim a(1 To
100) As Boolean
Dim i As
Integer, j As Integer
Dim flag
As Boolean
s1 = Text1．Text
s2 = Text2．Text
flag =
True
For i = 1
To Len(s2)
　 　
Next i
If Len(s1)
<> Len(s2) Then
flag =
False
Else
For i = 1
To Len(s1)
c = 　 　
j = 1
Do
While j <= Len(s2)
If
Then
a(j) = False
Exit Do
End If
　 　
Loop
If j = Len(s2) + 1 Then flag = False
Next i
End If
If flag Then
Label1.Caption = "可以归为同一类"
Else
Label1.Caption = "不可归为同一类"
End If
End Sub
（3）程序中加框处代码有错，请改正。
16．（2020高二上·诸暨期末）图图基于排序算法设计了一个数字矩阵排序的VB程序，功能如下：在文本框Text1中输入矩阵的大小n，单击“生成”按钮Command1，在左侧列表框List1中显示行数和列数均为n的随机整数矩阵。单击“排序”按钮Command2，奇数行从左到右升序排序，偶数行从左到右降序排序，结果显示在列表框List2中，输出时保持矩阵大小不变。运行结果如图所示。
请回答下列问题：
（1）实现上述功能的
VB 程序如下，请在划线处填入合适的代码。
Dim a(1 To 100) As Integer
Dim n As Integer
Private Sub Command1_Click()
Dim i As
Integer, j As Integer
Dim s As
String, k As Integer
n =
Val(Text1.Text)
For i = 1 To
n
　 　
For j
= 1 To n
k
= (i - 1) * n + j
a(k)
= Int(Rnd() * 45 + 5) * 2
s
= s + " " + Str(a(k))
Next j
List1.AddItem
s
Next i
End Sub
Private Sub Command2_Click()
Dim i As
Integer, L As Integer, R As Integer
Dim f As
Integer
For i = 1
To n
If i Mod 2
= 1 Then f = 1 Else f = -1
　 　
R = i
* n
List2.AddItem
sort(L, R, f)
Next i
End Sub
Function sort(left As Integer, right As Integer,
order As Integer) As String
Dim i As
Integer, j As Integer, k As Integer
Dim s As
String, t As Integer
s =
""
For i =
left To right - 1
k = i
For j
= i + 1 To right
If
　 　 Then k = j
Next j
If k
<> i Then
t
= a(k): a(k) = a(i): a(i) = t
End If
s = s
+ " " + Str(a(i))
Next i
sort = s
End Function
（2）若删除上述VB程序中加框处代码，　 　（选填：会/不会）影响程序运行结果。
答案解析部分
1．【答案】A
【知识点】信息及其特征；条形码、二维码
2．【答案】D
【知识点】人工智能的应用
3．【答案】B
【知识点】数据表的创建
4．【答案】D
【知识点】进制及数制转换
5．【答案】D
【知识点】图片加工常用工具的使用；图层及图层的基本操作
6．【答案】B
【知识点】声音、图像、视频编码
7．【答案】D
【知识点】运算符、基本运算与表达式
8．【答案】C
【知识点】流程图识读
9．【答案】D
【知识点】排序算法及程序实现
10．【答案】D
【知识点】循环结构语句及程序实现；常用标准函数
11．【答案】A
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
12．【答案】C
【知识点】查找算法及程序实现
13．【答案】（1）C
（2）B15:B18,F15:F18
（3）A；C
【知识点】表格数据的处理与计算；表格数据的图表呈现
14．【答案】（1）A；B；D
（2）动画补间；D
（3）选中“人物”图层第37帧执行“插入空白关键帧”操作或选中“人物”图层第37~60帧执行“删除帧”操作
（4）B；D
【知识点】多媒体作品的规划和设计；动画的类型；时间轴、帧、图层、库的概念及基本操作；元件的类型与应用；二维动画实例属性的设置
15．【答案】（1）C
（2）a(i) = True；Mid(s1, i, 1)；j = j + 1
（3）c = Mid(s2, j, 1) And a(j)
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；分支结构语句及程序实现；循环结构语句及程序实现
16．【答案】（1）s = ""；L = (i - 1) * n + 1；a(j) * order < a(k) * order
（2）会
【知识点】排序算法及程序实现
1 / 1

展开更多......

收起↑