资源简介

(
…………○…………外…………○…………装…………○…………订…………○…………线…………○…………
) (
※※请※※不※※要※※在※※装※※订※※线※※内※※答※※题※※
) (
…………○…………内…………○…………装…………○…………订…………○…………线…………○…………
)
登陆二一教育在线组卷平台 助您教考全无忧
浙江省五校2021届高三下学期信息技术5月联考试卷
一、选择题(本大题共12小题，每小题2分，共24分。)
1.（2021·浙江模拟）下列关于信息与信息技术的说法，正确的是（ ）
A. 信息必须依附于某种载体，因此其表现形态不可以转换
B. 信息具有载体依附性，所以信息不能脱离它所反映的事物进行传播
C. 信息的载体可以是文字，也可以是图像、声音等
D. 信息技术是计算机对信息进行采集、处理、传输、存储、表达和使用的技术
【答案】 C
【考点】信息及其特征，信息技术的概念与关键技术
【解析】
2.（2021·浙江模拟）下列应用中，没有体现人工智能技术的是（ ）
A. 某综艺节目中能和人智能对话的虚拟机器主持人
B. 某线上购物软件可以采用指纹识别支付
C. 通过在线翻译软件将外文网站内容自动翻译成中文
D. 用户在家中通过佩戴特殊的设备体验刺激的过山车
【答案】 D
【考点】信息的智能化处理
【解析】
3.（2021·浙江模拟）下列关于网络与网络协议，说法正确的是（ ）
A. 只有纯文字的网页才能够用记事本编辑
B. 网页地址用URL标识，收藏夹收藏网页实质上就是保存该网页的URL
C. 使用SMTP协议可以实现发件人的邮件直接发送到收件人的计算机中
D. 采用“网页，仅HTML”方式保存网页，得到的文件是用HTTP语言描述的
【答案】 B
【考点】网络协议，网址与统一资源定位器，网络资源的类型、下载与保存，常用的网页编辑与制作工具
【解析】
4.（2021·浙江模拟）使用Access软件打开某数据库，部分界面如图所示，下列说法正确的是（ ）
A. Access是常用的小型数据库应用系统
B. Access无法存储图片
C. 添加一条新记录，其“收藏日期”字段可能显示为“2001年4月5日”
D. Access中“是否借出”字段在导出到Excel时值会显示TRUE或FALSE
【答案】 D
【考点】系统软件、应用软件及其功能，数据表、字段、记录的编辑
【解析】
5.（2021·浙江模拟）用Photoshop软件制作“最美逆行者”作品，部分界面如图所示，下列说法不正确的是（ ）
A. 可将“武汉”图层的图层样式拷贝到“病毒2”图层
B. 可在“背景”图层中用“画笔”工具直接绘制图像
C. 当前状态下，“武汉”图层仅显示“投影”和“外发光”效果
D. 可用“自由变换”命令将“病毒2”图层中的病毒缩小到原来的50%
【答案】 D
【考点】图片加工常用工具的使用，图层及图层的基本操作
【解析】
6.（2021·浙江模拟）按以下参数存储BMP格式文件，占用存储空间最小的是（ ）
A. 1600*1200黑白位图 B. 800*60016位色
C. 400*300RGB/8 D. 800*600256色
【答案】 A
【考点】声音、图像、视频编码
【解析】
7.（2021·浙江模拟）下列VB表达式的值与其余三个选项不同的是（ ）
A. Val(Mid("2021"，3，2)) B. 2021mod1000\10
C. Abs(Int(-21.1)) D. Val("2"+"1")
【答案】 C
【考点】运算符、基本运算与表达式
【解析】
8.（2021·浙江模拟）某算法的流程图如图所示，执行完该流程图后输出结果可能的是（ ）
A. 0 0 0 0 0 0 B. 2 4 2 5 2 8 C. 6 10 8 12 6 8 D. 10 22 14 16 18 12
【答案】 A
【考点】流程图识读
【解析】
9.（2021·浙江模拟）下列四段VB程序执行后运行结果与其余三个选项不相同的是（ ）
A. B.
C. D.
【答案】 B
【考点】循环结构语句及程序实现
【解析】
10.（2021·浙江模拟）由大写字母组成的长度相同的两个字符串s1和s2，若所含各字母数量相等则可以归为一类。如“ABDAC”与“AABCD”归为一类，与“AABBC”不可以归为一类。实现该功能的VB程序段如下：
Dim s1 As String, s2 As String, a As Integer, i As Integer, b(1 To 26) As Integer 'b数组初值均为0
s1 = Text1.Text: s2 = Text2.Text
For i= 1 To Len(s1)
a= Asc(Mid(s1, i, 1))-65+ 1
⑴
Next i
For i= 1 To Len(s2)
a= Asc(Mid(s2, i, 1))-65+ 1
⑵
Next i
For i= 1 To 26
If ⑶ Then Exit For
Next i
If ⑷ Then Label1.Caption = "能归为一类" Else Labl1.Caption= "不能归为一类"
填空处的代码可以由以下部分组成：
①b(a)=b(a)+1 ②b(a)=b(a)-1 ③b(i)<>0 ④b(i)=0 ⑤i<=26 ⑥i>26
代码顺序正确的是（ ）
A. ①②③⑤ B. ①②④⑥ C. ②①③⑥ D. ②①④⑤
【答案】 C
【考点】循环结构语句及程序实现
【解析】
11.（2021·浙江模拟）某排序算法的VB程序段如下：
n=6: c=0: d=0: st=1: ed=n
Do While st < ed
c=c+1
For j=st To ed- 1
d=d+1
If a(j)> a(j+ 1) Then
tmp = a(j): a(i)=a(j+1): a(j+1)= tmp
ed=j
End If
Next j
For j=ed To st+1 Step-1
d=d+ 1
If a(j)< a(j- 1) Then
tmp= a(j): a(i)=a(j- 1): a(j- 1)= tmp
st=j
End If
Next j
Loop
数组元素a(1)到a(6)的值依次为“5，6，12，15，10，8”，程序结束时，c和d的值分别为（ ）
A. 2，9 B. 2，10 C. 4，9 D. 4，10
【答案】 B
【考点】排序算法及程序实现
【解析】
12.（2021·浙江模拟）下列对分查找代码用于查找非升序序列中不小于key的下标最大值，部分代码如下：
L=1: R=n+ 1
Do While L< R
m=(L+R)\2
If key > a(m) Then
①
Else
L=m+ 1
End If
Loop
If R= 1 Then
Text2.Text = "数组中所有元素均小于" & Str(key)
Else
Text2.Text= "不小于" & Str(key) & "的下标最大值是: " & Str( ② )
End If
则划线处代码正确的是（ ）
A. ①R=m-1 ②L B. ①R=m-1 ②L-1 C. ①R=m ②L D. ①R=m ②L-1
【答案】 D
【考点】查找算法及程序实现
【解析】
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13.（2021·浙江模拟）小张收集了某校图书馆借阅排行TOP300的相关数据，并用Excel软件进行处理，如图a所示：
图a
（1）为计算图a中的“流通次数”和“预约次数”，小张已利用公式正确计算了“流通次数”，他希望通过修改K3单元格的公式，利用自动填充得到“预约次数”L3：L7区域中正确的数据，则单元格K3中的公式应修改为________。(提示：SUMIF函数用于求满足条件的单元格之和，例如=SUMIF(E3：E302，J3，G3：G302)用于求单元格区域E3：E302中与单元格J3中值相等的对应单元格区域G3：G302中的值之和。)
（2）根据图a中数据制作了图表如图b所示，则创建图表的数据区域________。
图b
（3）根据图a所示，下列说法正确是 (多选题)
A.若表格已排序，则主要关键字是“流通人次”，次要关键字是“预约人次”
B.若以“类型”为文学，以“流通人次”最大的5项进行筛选，得到的记录数可能大于等于5条
C.因误操作将“价格”所在列删除，则“流通次数”和“预约次数”的数据将不能正确计算
D.若要找出文学类流通人次大于10次的书籍，则可以利用“类型”为文学，“流通人次”大于10进行筛选
【答案】 （1）=SUMIF($E$3:$E$302,$J3,G$3:G$302)
（2）J4：K7
（3）B,D
【考点】表格数据的处理与计算，数据分析
【解析】
14.（2021·浙江模拟）小组创作了主题为“保护环境”的Flash作品，部分界面如图a所示，请回答下列问题：
图a
（1）在制作并合成该作品前，小组应先完成下列哪些工作？________(多选，填字母：A .确定获取原始素材的方式/B .策划制作脚本/C .发布作品/D .刻录光盘，递交作品/E .需求分析)。
（2）“声音”图层的声音设置如图b所示，若将“重复”修改为2次，则测试影片时该声音文件将播放________秒。
图b
（3）下列不属于元件类型是________(单选，填字母：A .影片剪辑/B .位图/C .图形)
（4）如图a所示，则以下说法不正确的是 (多选题)
A.Flash是以帧为基础的多媒体创作工具
B.若将“汽车”图层的补间动画的缓动值设置为-100，则动画时长不变
C.“保护环境”图层实现了“汽车尾气”图形逐渐变成“保护环境”字形，该动画属于形状补间
D.若将“背景”图层第60帧移动到第20帧，则“背景”图层中的内容约2秒后消失
E.该动画“按钮”一直显示于舞台，若要“按钮”仅最后一帧出现，则将“按钮”图层第1帧执行“清除帧”可以实现。
（5）测试影片时，点击“相关文件”按钮，实现在浏览器中显示位于同一文件夹下“环境.html”文件的内容并关闭动画，则按钮上添加的命令为________。
【答案】 （1）ABE
（2）6
（3）B
（4）A,D,E
（5）on(press){getURL(“环境.html”);fscommand(“quit”);} 或on (press) {getURL(“环境.html”);fscommand(“quit”);}
【考点】多媒体作品的规划和设计，时间轴、帧、图层、库的概念及基本操作，元件的类型与应用，常用影片控制函数的应用，声音同步属性设置
【解析】
15.（2021·浙江模拟）果园里有n堆果子放在地上，现要将所有果子合并成一堆。每次只能合并两堆果子，消耗的体力等于两堆果子的重量之和。显然，n堆果子需要经过n-1次合并。合并果子的过程中总共消耗的体力等于每次合并所耗体力之和。为了尽可能地节省体力，我们每次都选择重量最小两堆进行合并。例如，有三堆果子，重量依次为1，2，9。可以先将1、2堆合并，新堆重量为3，耗费体力为3。接着，将新堆与原先的第三堆合并，又得到新的堆，重量为12，耗费体力为12。所以总共耗费体力为3+12=15。可以证明15为最小的体力耗费值。
编写VB程序，实现上述合并功能。运行程序时，将n堆果子的重量从数据库读入到a数组。单击“合并”按钮Command1后，在文本框Text1中输出最小的体力耗费值。请回答下列问题：
（1）若要清空文本框Text1中的内容，能实现该功能的语句是________(单选，填字母：A .Text1.Caption=“”/B .Text1.Clear/C .Text1.Text=“”)。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Form_ Load( )
‘将n堆果子的重量从数据库导入到数组a，代码略。
End Sub
Private Sub Command1_Click( )
Dim f As Boolean
Dim last As Integer
Dim a(1 To n) As Integer
i= 1
Do While i f=True
For j=n To i+1 Step-1
If a(j) t= a(j): a(j)=a(j- 1): a(j-1)=t
last= j
f= False
End If
Next j

Loop
For i= 1 To n-2
tmp=a(i)+a(i+1)
j=________
Do While a(j)< tmp
a(j-1)= a(j)
j=j+1
If j=n+ 1 Then Exit Do
Loop
________
Min=Min+tmp
Next i
________
Text1.Text = Min
End Sub
（3）程序中加框处代码有错，请改正。
【答案】 （1）C
（2）i + 2；a(j - 1) = tmp；Min = Min + a(n - 1) + a(n)
（3）i=last 或i=1
【考点】排序算法及程序实现，基本语句
【解析】
16.（2021·浙江模拟）“一笔画游戏”是指图上的所有边有且仅经过一次刚好将整个图描完。一般图由点和边组成，一条边连接两个点，一个点可以连接多条边。若某点连接的边数是奇数，则被称为奇点，反之称为偶点。如图a图中A点连接的边有3条，A点就是奇点，B点连接的边为2条，B点就是偶点。如果图中存在0个奇点或2个奇点，则能被一笔画成，否则就不能。如图a图中奇点数为2个，可以一笔画成；如b图中奇点数为4个，不可以一笔画成。
现有VB程序用于判断某图能否一笔画成，若能，则通过穷举边的顺序来找到一种合法的路径。如c图有三条边，第1条由①②相连，第2条由④③相连，第3条由③②相连，若边的顺序231就是其中一种合法的边的顺序，代表先描第2条边，再描第3边，最后描第1条边，对应的路径④→③→②→①。在程序运行过程中，在文本框Text1中输入点的个数n，表示图中有n个点编号为1～n。在文本框Text2中输入若干点的编号，每两个点代表一条边(保证输入为偶数个点)，以“，”开头，点击“一笔画”按钮Command1后，在Label3中输出结果，在若能一笔画成，则输出一条路径，否则，提示“无法一笔画！”。程序界面如c图：
c图
（1）在Text1中输入“4”，在Text2中输入“，2，3，1，2，2，4”。则Label3输出结果是________。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim n As Integer, t As Integer, m As Integer, I As Integer, j As Integer
Dim ans As Integer, u As Integer, st As Integer, p As Long
Dim a(21) As Integer, b(11) As Integer, f(11) As Integer
Dim c(11)As Integer '用于存储构成一笔画各边的序号
Dim s As String, ss As String
Private Sub Command1_Click()
n= Val(Text1.Text)
s= Text2.Text: t= 0
For j= 1 To Len(s)
ch = Mid(s, j, 1)
If ch = "," Then
b(a(t)) = b(a(t)+1
t=t+1
a(t)= 0
Else
a(t)= a(t)*10 + Val(ch)
End If
Next j
________: m=t\2: ans=0
st= 1
For i= 1 To n
If b(i) Mod 2=1 Then ans = ans+ 1: st=i
Next i
If ans=0 Or ans=2 Then
For p=1 To m^m '穷举边的顺序
If try(p) Then
u= st: ss = Str(u)
For j=1 To m
If (a(c(j)* 2)<>u) And (a(c(j)*2-1)<>u) Then Exit For
If________ Then u= a(c(j)*2- 1) Else u=a(c(j)*2)
ss=ss +"->"+ Str(u)
Next j
If j> m Then Exit For
End If
Next p
Else
ss="无法一笔画!"
End If
Label3.Caption=ss
End Sub
Function try(x As Long) As Boolean '生成边的访问顺序，并判断有无重复的边
Dim k As Integer, y As Long
y=x
For k=1 To m
c(k)=y Mod m+1: y-y\m
If f(c(k)) = x Then Exit For
________
Next k
If k> m Then try=True Else try = False
End Function
【答案】 （1）无法一笔画！或“无法一笔画！”
（2）b(a(t)) = b(a(t)) + 1；a(c(j) * 2) = u 或者a(c(j) * 2) = u And a(c(j) * 2-1) <> u；f(c(k)) = x
【考点】过程与自定义函数，枚举算法及程序实现
【解析】
1 / 1(
…………○…………外…………○…………装…………○…………订…………○…………线…………○…………
) (
※※请※※不※※要※※在※※装※※订※※线※※内※※答※※题※※
) (
…………○…………内…………○…………装…………○…………订…………○…………线…………○…………
)
登陆二一教育在线组卷平台 助您教考全无忧
浙江省五校2021届高三下学期信息技术5月联考试卷
一、选择题(本大题共12小题，每小题2分，共24分。)
1.（2021·浙江模拟）下列关于信息与信息技术的说法，正确的是（ ）
A. 信息必须依附于某种载体，因此其表现形态不可以转换
B. 信息具有载体依附性，所以信息不能脱离它所反映的事物进行传播
C. 信息的载体可以是文字，也可以是图像、声音等
D. 信息技术是计算机对信息进行采集、处理、传输、存储、表达和使用的技术
2.（2021·浙江模拟）下列应用中，没有体现人工智能技术的是（ ）
A. 某综艺节目中能和人智能对话的虚拟机器主持人
B. 某线上购物软件可以采用指纹识别支付
C. 通过在线翻译软件将外文网站内容自动翻译成中文
D. 用户在家中通过佩戴特殊的设备体验刺激的过山车
3.（2021·浙江模拟）下列关于网络与网络协议，说法正确的是（ ）
A. 只有纯文字的网页才能够用记事本编辑
B. 网页地址用URL标识，收藏夹收藏网页实质上就是保存该网页的URL
C. 使用SMTP协议可以实现发件人的邮件直接发送到收件人的计算机中
D. 采用“网页，仅HTML”方式保存网页，得到的文件是用HTTP语言描述的
4.（2021·浙江模拟）使用Access软件打开某数据库，部分界面如图所示，下列说法正确的是（ ）
A. Access是常用的小型数据库应用系统
B. Access无法存储图片
C. 添加一条新记录，其“收藏日期”字段可能显示为“2001年4月5日”
D. Access中“是否借出”字段在导出到Excel时值会显示TRUE或FALSE
5.（2021·浙江模拟）用Photoshop软件制作“最美逆行者”作品，部分界面如图所示，下列说法不正确的是（ ）
A. 可将“武汉”图层的图层样式拷贝到“病毒2”图层
B. 可在“背景”图层中用“画笔”工具直接绘制图像
C. 当前状态下，“武汉”图层仅显示“投影”和“外发光”效果
D. 可用“自由变换”命令将“病毒2”图层中的病毒缩小到原来的50%
6.（2021·浙江模拟）按以下参数存储BMP格式文件，占用存储空间最小的是（ ）
A. 1600*1200黑白位图 B. 800*60016位色
C. 400*300RGB/8 D. 800*600256色
7.（2021·浙江模拟）下列VB表达式的值与其余三个选项不同的是（ ）
A. Val(Mid("2021"，3，2)) B. 2021mod1000\10
C. Abs(Int(-21.1)) D. Val("2"+"1")
8.（2021·浙江模拟）某算法的流程图如图所示，执行完该流程图后输出结果可能的是（ ）
A. 0 0 0 0 0 0 B. 2 4 2 5 2 8 C. 6 10 8 12 6 8 D. 10 22 14 16 18 12
9.（2021·浙江模拟）下列四段VB程序执行后运行结果与其余三个选项不相同的是（ ）
A. B.
C. D.
10.（2021·浙江模拟）由大写字母组成的长度相同的两个字符串s1和s2，若所含各字母数量相等则可以归为一类。如“ABDAC”与“AABCD”归为一类，与“AABBC”不可以归为一类。实现该功能的VB程序段如下：
Dim s1 As String, s2 As String, a As Integer, i As Integer, b(1 To 26) As Integer 'b数组初值均为0
s1 = Text1.Text: s2 = Text2.Text
For i= 1 To Len(s1)
a= Asc(Mid(s1, i, 1))-65+ 1
⑴
Next i
For i= 1 To Len(s2)
a= Asc(Mid(s2, i, 1))-65+ 1
⑵
Next i
For i= 1 To 26
If ⑶ Then Exit For
Next i
If ⑷ Then Label1.Caption = "能归为一类" Else Labl1.Caption= "不能归为一类"
填空处的代码可以由以下部分组成：
①b(a)=b(a)+1 ②b(a)=b(a)-1 ③b(i)<>0 ④b(i)=0 ⑤i<=26 ⑥i>26
代码顺序正确的是（ ）
A. ①②③⑤ B. ①②④⑥ C. ②①③⑥ D. ②①④⑤
11.（2021·浙江模拟）某排序算法的VB程序段如下：
n=6: c=0: d=0: st=1: ed=n
Do While st < ed
c=c+1
For j=st To ed- 1
d=d+1
If a(j)> a(j+ 1) Then
tmp = a(j): a(i)=a(j+1): a(j+1)= tmp
ed=j
End If
Next j
For j=ed To st+1 Step-1
d=d+ 1
If a(j)< a(j- 1) Then
tmp= a(j): a(i)=a(j- 1): a(j- 1)= tmp
st=j
End If
Next j
Loop
数组元素a(1)到a(6)的值依次为“5，6，12，15，10，8”，程序结束时，c和d的值分别为（ ）
A. 2，9 B. 2，10 C. 4，9 D. 4，10
12.（2021·浙江模拟）下列对分查找代码用于查找非升序序列中不小于key的下标最大值，部分代码如下：
L=1: R=n+ 1
Do While L< R
m=(L+R)\2
If key > a(m) Then
①
Else
L=m+ 1
End If
Loop
If R= 1 Then
Text2.Text = "数组中所有元素均小于" & Str(key)
Else
Text2.Text= "不小于" & Str(key) & "的下标最大值是: " & Str( ② )
End If
则划线处代码正确的是（ ）
A. ①R=m-1 ②L B. ①R=m-1 ②L-1 C. ①R=m ②L D. ①R=m ②L-1
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13.（2021·浙江模拟）小张收集了某校图书馆借阅排行TOP300的相关数据，并用Excel软件进行处理，如图a所示：
图a
（1）为计算图a中的“流通次数”和“预约次数”，小张已利用公式正确计算了“流通次数”，他希望通过修改K3单元格的公式，利用自动填充得到“预约次数”L3：L7区域中正确的数据，则单元格K3中的公式应修改为________。(提示：SUMIF函数用于求满足条件的单元格之和，例如=SUMIF(E3：E302，J3，G3：G302)用于求单元格区域E3：E302中与单元格J3中值相等的对应单元格区域G3：G302中的值之和。)
（2）根据图a中数据制作了图表如图b所示，则创建图表的数据区域________。
图b
（3）根据图a所示，下列说法正确是 (多选题)
A.若表格已排序，则主要关键字是“流通人次”，次要关键字是“预约人次”
B.若以“类型”为文学，以“流通人次”最大的5项进行筛选，得到的记录数可能大于等于5条
C.因误操作将“价格”所在列删除，则“流通次数”和“预约次数”的数据将不能正确计算
D.若要找出文学类流通人次大于10次的书籍，则可以利用“类型”为文学，“流通人次”大于10进行筛选
14.（2021·浙江模拟）小组创作了主题为“保护环境”的Flash作品，部分界面如图a所示，请回答下列问题：
图a
（1）在制作并合成该作品前，小组应先完成下列哪些工作？________(多选，填字母：A .确定获取原始素材的方式/B .策划制作脚本/C .发布作品/D .刻录光盘，递交作品/E .需求分析)。
（2）“声音”图层的声音设置如图b所示，若将“重复”修改为2次，则测试影片时该声音文件将播放________秒。
图b
（3）下列不属于元件类型是________(单选，填字母：A .影片剪辑/B .位图/C .图形)
（4）如图a所示，则以下说法不正确的是 (多选题)
A.Flash是以帧为基础的多媒体创作工具
B.若将“汽车”图层的补间动画的缓动值设置为-100，则动画时长不变
C.“保护环境”图层实现了“汽车尾气”图形逐渐变成“保护环境”字形，该动画属于形状补间
D.若将“背景”图层第60帧移动到第20帧，则“背景”图层中的内容约2秒后消失
E.该动画“按钮”一直显示于舞台，若要“按钮”仅最后一帧出现，则将“按钮”图层第1帧执行“清除帧”可以实现。
（5）测试影片时，点击“相关文件”按钮，实现在浏览器中显示位于同一文件夹下“环境.html”文件的内容并关闭动画，则按钮上添加的命令为________。
15.（2021·浙江模拟）果园里有n堆果子放在地上，现要将所有果子合并成一堆。每次只能合并两堆果子，消耗的体力等于两堆果子的重量之和。显然，n堆果子需要经过n-1次合并。合并果子的过程中总共消耗的体力等于每次合并所耗体力之和。为了尽可能地节省体力，我们每次都选择重量最小两堆进行合并。例如，有三堆果子，重量依次为1，2，9。可以先将1、2堆合并，新堆重量为3，耗费体力为3。接着，将新堆与原先的第三堆合并，又得到新的堆，重量为12，耗费体力为12。所以总共耗费体力为3+12=15。可以证明15为最小的体力耗费值。
编写VB程序，实现上述合并功能。运行程序时，将n堆果子的重量从数据库读入到a数组。单击“合并”按钮Command1后，在文本框Text1中输出最小的体力耗费值。请回答下列问题：
（1）若要清空文本框Text1中的内容，能实现该功能的语句是________(单选，填字母：A .Text1.Caption=“”/B .Text1.Clear/C .Text1.Text=“”)。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Form_ Load( )
‘将n堆果子的重量从数据库导入到数组a，代码略。
End Sub
Private Sub Command1_Click( )
Dim f As Boolean
Dim last As Integer
Dim a(1 To n) As Integer
i= 1
Do While i f=True
For j=n To i+1 Step-1
If a(j) t= a(j): a(j)=a(j- 1): a(j-1)=t
last= j
f= False
End If
Next j

Loop
For i= 1 To n-2
tmp=a(i)+a(i+1)
j=________
Do While a(j)< tmp
a(j-1)= a(j)
j=j+1
If j=n+ 1 Then Exit Do
Loop
________
Min=Min+tmp
Next i
________
Text1.Text = Min
End Sub
（3）程序中加框处代码有错，请改正。
16.（2021·浙江模拟）“一笔画游戏”是指图上的所有边有且仅经过一次刚好将整个图描完。一般图由点和边组成，一条边连接两个点，一个点可以连接多条边。若某点连接的边数是奇数，则被称为奇点，反之称为偶点。如图a图中A点连接的边有3条，A点就是奇点，B点连接的边为2条，B点就是偶点。如果图中存在0个奇点或2个奇点，则能被一笔画成，否则就不能。如图a图中奇点数为2个，可以一笔画成；如b图中奇点数为4个，不可以一笔画成。
现有VB程序用于判断某图能否一笔画成，若能，则通过穷举边的顺序来找到一种合法的路径。如c图有三条边，第1条由①②相连，第2条由④③相连，第3条由③②相连，若边的顺序231就是其中一种合法的边的顺序，代表先描第2条边，再描第3边，最后描第1条边，对应的路径④→③→②→①。在程序运行过程中，在文本框Text1中输入点的个数n，表示图中有n个点编号为1～n。在文本框Text2中输入若干点的编号，每两个点代表一条边(保证输入为偶数个点)，以“，”开头，点击“一笔画”按钮Command1后，在Label3中输出结果，在若能一笔画成，则输出一条路径，否则，提示“无法一笔画！”。程序界面如c图：
c图
（1）在Text1中输入“4”，在Text2中输入“，2，3，1，2，2，4”。则Label3输出结果是________。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim n As Integer, t As Integer, m As Integer, I As Integer, j As Integer
Dim ans As Integer, u As Integer, st As Integer, p As Long
Dim a(21) As Integer, b(11) As Integer, f(11) As Integer
Dim c(11)As Integer '用于存储构成一笔画各边的序号
Dim s As String, ss As String
Private Sub Command1_Click()
n= Val(Text1.Text)
s= Text2.Text: t= 0
For j= 1 To Len(s)
ch = Mid(s, j, 1)
If ch = "," Then
b(a(t)) = b(a(t)+1
t=t+1
a(t)= 0
Else
a(t)= a(t)*10 + Val(ch)
End If
Next j
________: m=t\2: ans=0
st= 1
For i= 1 To n
If b(i) Mod 2=1 Then ans = ans+ 1: st=i
Next i
If ans=0 Or ans=2 Then
For p=1 To m^m '穷举边的顺序
If try(p) Then
u= st: ss = Str(u)
For j=1 To m
If (a(c(j)* 2)<>u) And (a(c(j)*2-1)<>u) Then Exit For
If________ Then u= a(c(j)*2- 1) Else u=a(c(j)*2)
ss=ss +"->"+ Str(u)
Next j
If j> m Then Exit For
End If
Next p
Else
ss="无法一笔画!"
End If
Label3.Caption=ss
End Sub
Function try(x As Long) As Boolean '生成边的访问顺序，并判断有无重复的边
Dim k As Integer, y As Long
y=x
For k=1 To m
c(k)=y Mod m+1: y-y\m
If f(c(k)) = x Then Exit For
________
Next k
If k> m Then try=True Else try = False
End Function
答案解析部分
一、选择题(本大题共12小题，每小题2分，共24分。)
1.【答案】 C
【考点】信息及其特征，信息技术的概念与关键技术
【解析】
2.【答案】 D
【考点】信息的智能化处理
【解析】
3.【答案】 B
【考点】网络协议，网址与统一资源定位器，网络资源的类型、下载与保存，常用的网页编辑与制作工具
【解析】
4.【答案】 D
【考点】系统软件、应用软件及其功能，数据表、字段、记录的编辑
【解析】
5.【答案】 D
【考点】图片加工常用工具的使用，图层及图层的基本操作
【解析】
6.【答案】 A
【考点】声音、图像、视频编码
【解析】
7.【答案】 C
【考点】运算符、基本运算与表达式
【解析】
8.【答案】 A
【考点】流程图识读
【解析】
9.【答案】 B
【考点】循环结构语句及程序实现
【解析】
10.【答案】 C
【考点】循环结构语句及程序实现
【解析】
11.【答案】 B
【考点】排序算法及程序实现
【解析】
12.【答案】 D
【考点】查找算法及程序实现
【解析】
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13.【答案】 （1）=SUMIF($E$3:$E$302,$J3,G$3:G$302)
（2）J4：K7
（3）B,D
【考点】表格数据的处理与计算，数据分析
【解析】
14.【答案】 （1）ABE
（2）6
（3）B
（4）A,D,E
（5）on(press){getURL(“环境.html”);fscommand(“quit”);} 或on (press) {getURL(“环境.html”);fscommand(“quit”);}
【考点】多媒体作品的规划和设计，时间轴、帧、图层、库的概念及基本操作，元件的类型与应用，常用影片控制函数的应用，声音同步属性设置
【解析】
15.【答案】 （1）C
（2）i + 2；a(j - 1) = tmp；Min = Min + a(n - 1) + a(n)
（3）i=last 或i=1
【考点】排序算法及程序实现，基本语句
【解析】
16.【答案】 （1）无法一笔画！或“无法一笔画！”
（2）b(a(t)) = b(a(t)) + 1；a(c(j) * 2) = u 或者a(c(j) * 2) = u And a(c(j) * 2-1) <> u；f(c(k)) = x
【考点】过程与自定义函数，枚举算法及程序实现
【解析】
1 / 1

展开更多......

收起↑