资源简介

浙江省2021-2022学年高三上学期信息技术10月TBY在线联考试卷
一、选择题
1．（2021高三上·浙江月考）下列关于计算机、信息和信息技术的说法，不正确的是（　　）
A．近代信息技术包括摄影技术、电影技术、广播电视技术、微电子技术等
B．文字、图像、声音、代码等都是信息的载体
C．OCR中的“删除区域”命令的作用是取消该区域的选中状态
D．信息可以传递和共享，而不会像物质、能源那样产生消耗
【答案】A
【知识点】信息及其特征；信息技术的概念与关键技术；字符识别
2．（2021高三上·浙江月考）下列关于网页和网络协议的说法，不正确的是（　　）
A．网上检索资源的方式包括：搜索引擎、主题目录、元搜索引擎
B．网页的三种基本元素是文字、图形图像和超链接
C．使用浏览器登录邮箱进行收发邮件需要用到HTTP
D．SMTP的全称是通用邮件传送协议
【答案】D
【知识点】网络协议；网络资源的检索；网页组成元素
3．（2021高三上·浙江月考）使用Access软件设计五校联考阅卷平台的数据库，部分界面如下图所示：
下列关于该数据库的说法，正确的是（　　）
A．数据表“五校联考成绩”处于打开状态
B．“姓名”字段可以输入“亚里士多德”
C．不能将“姓名”字段的对齐方式设置为居中
D．可以修改整个数据表的字体为楷体
【答案】D
【知识点】数据表、字段、记录的编辑
4．（2021高三上·浙江月考）已知异或是一个数学运算符，它的数学符号为 ，a b的计算方法为：将a和b转换为二进制，从最低位开始按位比较，如果不同，则该位异或结果为1，否则该位异或结果为0。例如：9D 7D=1001B 0111B=1110B。用UltraEdit软件查看字符内码，部分界面如图所示。
下列说法中，正确的是（　　）
A．图中共有16个ASCII码字符
B．字符“2”的内码异或字符“5”的内码的结果是7D
C．汉字“糕”的内码为B8E2D
D．字符“y”的内码为31D
【答案】B
【知识点】字符编码
5．（2021高三上·浙江月考）使用Photoshop软件制作“将卓越进行到底”作品，部分界面如图所示：
在当前状态下，下列说法不正确的是（　　）
A．可以将“背景”图层移动到“蔡left”图层下方
B．“文字”图层是一个文字图层，其内容一定为“文字”
C．可以移动“文字”图层里的文字
D．“蔡left”图层可以移动到“蔡right”图层的上方
【答案】B
【知识点】图层及图层的基本操作
6．（2021高三上·浙江月考）使用GoldWave软件编辑某音频文件，选中其中一段音频后，部分界面如图所示。
下列说法正确的是（　　）
A．执行插入5秒静音后直接保存，音频文件容量约为350KB
B．点击“删除”按钮后直接保存，该文件的容量约为480KB
C．执行删除后插入5秒静音然后保存，该文件的容量不变
D．执行“剪裁”后左声道的5秒至30秒为静音
【答案】B
【知识点】声音素材的基本处理；声音、图像、视频编码
7．（2021高三上·浙江月考）VB表达式20 Mod 3 ^ 2 + Not 1 + 99 = 99 < 2的值是（　　）
A．2 B．3 C．4 D．5
【答案】A
【知识点】运算符、基本运算与表达式
8．（2021高三上·浙江月考）某算法的部分流程图如图所示。若输入n的值为7，则输出的ans值是（　　）
A．0 B．-2 C．-5 D．-8
【答案】D
【知识点】流程图识读
9．（2021高三上·浙江月考）对一个有n个元素的数组进行操作，所有操作均采用未优化的标准算法，下列说法正确的是（　　）
A．若数组有序，对其进行一次对分查找，则最多查找次数为Int(log2n)+1
B．对数组进行一次冒泡排序比进行一次选择排序的比较次数要多
C．若数组无序，对其进行一次对分查找，一定不能找到要找的数
D．对数组进行一次查找，最少查找次数与n有关
【答案】A
【知识点】排序算法及程序实现；查找算法及程序实现
10．（2021高三上·浙江月考）有如下VB程序段：
Private Sub Command1_Click()
Dim n As Integer， ans As Integer
n = 5
Dim x(1 To 5) As Integer
x(1) = -30: x(2) = 26: x(3) = -18: x(4) = 60: x(5) = 22
ans = 60
For i = 1 To n
If x(i) < 0 Then x(i) = -x(i)
ans = ans + gcd(ans， x(i))
Next i
Text1.Text = Str(ans)
End Sub
Function gcd(a As Integer， b As Integer)
If b = 0 Then
gcd = a
Else
gcd = gcd(b， a Mod b)
End If
End Function
执行该程序段后，Text1. Text中显示的值为（　　）
A．1 B．2 C．90 D．98
【答案】D
【知识点】过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
11．（2021高三上·浙江月考）为了准备五校联考，小卷王买了n套卷子，每套卷子数量不等，第i套试卷有a(i)张。小卷王每天可以将第i套到第j套卷子各做完一张。作为同学，小汤想要知道小卷王最快几天可以做完全部的卷子，因此小汤编写了下面这个程序，但他有几个空不知道该写什么，请求你的帮忙。
Private Sub Command1_Click()
For i = 2 To n
If a(i) > a(i-1) Then ①
Next i
Text1.Text = ②
End Sub
下列选项中，①②中的代码填写正确的是（　　）
A．①ans = ans + a(i) - a(i-1) ②Str(a(1) + ans)
B．①ans = ans + a(i) - a(i-1) ②Str(ans)
C．①ans = a(i) - a(i-1) ②Str(a(1) + ans)
D．①ans = a(i) - a(i-1) ②Str(ans)
【答案】A
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
12．（2021高三上·浙江月考）某算法的VB程序段如下：
Private Sub Command1_Click()
Dim key As Integer， i As Integer， j As Integer， ans As Integer
Dim n As Integer
n = 10
Dim x(1 To 10) As Integer
x(1) = 5 : x(2) = 52 : x(3) = 2 : x(4) = 72 : x(5) = 86
x(6) = 3256 : x(7) = 123 : x(8) = 25 : x(9) = 30 : x(10) = 87
key = Val(Text1.Text)
i = 1 : j = n : ans = 0
Do While i < j
m = (i + j + 1) \ 2
If key <= x(m) Then
j = m - 1 : ans = ans + 1
Else
i = m + 1 : ans = ans + 2
End If
Loop
End Sub
在Text1中输入3256，单击Command1，程序运行完毕后，以下变量的值不正确的是（　　）
A．i=6 B．j=5 C．ans=5 D．x(m)=5
【答案】D
【知识点】查找算法及程序实现
二、非选择题
13．（2021高三上·浙江月考）TBY进行了一项调查，收集到了一些数据，并使用Excel软件对数据进行处理，如图所示。
（1）在D34单元格输入“=AVERAGE(D2:D33)”后立即按下回车，D34单元格中将会显示　 　（单选，填字母：A
.=AVERAGE(D2:D33)/B .4.9/C .#DIV/0!/D .#VALUE!）
（2）当前状态下，以A1:A33,D1:E33为数据区域创建的图表可能为 （单选，填字母）
A．
B．
C．
D．
（3）选中A1:G33执行“筛选”后，下列有关说法正确的是（多选） 。
A．在列A上设置筛选条件为“等于8”，筛选结果一定为空
B．在列A上设置筛选条件为“等于1”，筛选完毕后清除筛选，隐藏列会显示出来
C．复制F2:F33，在I2单元格执行“粘贴链接”命令后，修改G2单元格内容为“感谢参与TBY线上联考”，则I2单元格的内容保持不变
D．可以隐藏列A和列B
【答案】（1）A
（2）A
（3）B；D
【知识点】表格数据的处理与计算
14．（2021高三上·浙江月考）为了迎接五校联考的到来，TBY创作主题为“将卓越进行到底”的多媒体作品，部分编辑页面如图所示。
请回答下列问题：
（1）在创作之前，TBY进行了作品设计，下列说法正确的是 （多选，填字母）
A．为迎接五校联考的到来，考虑该作品的受众为五校联考的考生，属于作品的应用需求分析
B．考虑背景图片从杭州第二中学官网下载，属于脚本编写
C．为让五校联考的考生能看到这一作品，考虑把这一作品以模拟试题的方式发布，属于应用需求分析
D．为丰富画面效果，考虑用Photoshop和Flash软件制作，属于规划设计
E．考虑背景音乐和文字的来源，属于创作需求分析
（2）在测试影片过程中，发现背景图层的画面会在播放到一半时消失，怎样才能使得背景图层的画面始终显示？
（3）为实现点击按钮后停止播放背景音乐，该按钮实例上添加的动作脚本应该为　 　。
（4）关于当前作品，下列说法正确的是 （多选，填字母）
A．可以直接移动“右蔡”图层的内容
B．可以将“左蔡”图层的第20帧复制到“右蔡”图层的第25帧
C．在不点击按钮的情况下，观看者听不到背景音乐
D．隐藏“图层6”后发布作品，观看者可以看到图层6
E．“测试影片”操作执行后，会在同一目录下生成“T14．flv”文件
【答案】（1）A；B
（2）将“背景”图层的第20帧移动到第40帧 或其他等价表述
（3）on(press){stopAllSounds();}或on(release){stopAllSounds();}
（4）B；D
【知识点】多媒体作品的规划和设计；图层及图层的基本操作；常用影片控制函数的应用
15．（2021高三上·浙江月考）校服烘干。五校联考要求学生统一穿校服参加，但是不幸的是，考试前所有考生的校服全都打湿了。一件衣服在自然条件下用一秒的时间可以晒干a点湿度。现在学校里有且仅有一台烘衣机，且目前烘衣机全部断货（即无法购入新机器）使用用一秒烘衣机可以让一件衣服额外烘干b点湿度（一秒晒干a+b湿度），但在同一时间内只能烘一件衣服。现在有n件衣服，第i衣服的湿度为w(i)（保证互不相同），要你求出弄干所有衣服的最少时间（湿度为0为干）。编写VB程序，实现上述功能。运行程序，显示窗体From1，在文本框Text1输入衣服总数n，在文本框Text2中输入a，在文本框Text3中输入b，在文本框Text4中输入各件衣服的湿度（共n个数据，数据与数据使用空格隔开），点击命令按钮Command1后，在标签Label1中显示弄干所有衣服的最少时间。程序运行界面如图所示。请回答下列问题：
（1）若要使程序运行时，命令按钮Command1上显示为“计算”，可以在　 　事件处理过程中添加语句Command1．Caption="计算"。（单选，填字母：A .Form_Load/B .Form1_Load/mand1_Click/D
.Form1_Start）
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Const maxn = 500005
Dim n As Long， a As Long， b As Long
Dim f(1 To maxn) As Long
Dim i As Long， tby As Long
Private Sub Command1_Click()
tby = 1
n = Val(Text1.Text) : a =
Val(Text2.Text) : b = Val(Text3.Text)
For i = 1 To n
f(i) = Getin()
Next i
Dim l As Long， r As
Long， m As Long
l = 0: r = n
Do While l <= r
m = (l + r) / 2
If 　 　Then
r = m - 1
Else
l = m
+ 1
End If
Loop
Label1.Caption = Str(r + 1)
End Sub
Function check(x As Long)
Dim y As Long
y = x
For i = 1 To n
Dim tmp As Long
　 　
If tmp > 0 Then
If y < 0 Then
check = True
Exit Function
End If
Next i
check = False
End Function
Function Getin() As Long
Dim aaa As String
aaa = Mid(Text4.Text， tby， 1)
If aaa = " " Then tby = tby + 1
aaa = Mid(Text4.Text， tby， 1)
Dim bbb As Long
bbb = 0
Do While aaa <> " " And tby <= Len(Text4.Text)
bbb = bbb * 10 + Val(aaa) : tby = tby + 1
aaa = Mid(Text4.Text， tby， 1)
Loop
Getin = bbb
End Function
（3）程序中加框处代码有错，请改正。
【答案】（1）A
（2）Not Check(m) 或 Check(m) = False；tmp = f(i) - a * x
（3）y = y - (tmp \ b + (tmp Mod b <> 0)) 或y = y + Int((tmp / b) * (-1))
【知识点】过程与自定义函数
16．（2021高三上·浙江月考）试卷运送。五校联考就要到了，本次负责安排运送试卷的路线的是TBY。由于各所学校都参与了一些科目命题工作，所以目前每个学校里都有几个科目的试卷。为了节省运输费用，TBY想要找到一种能连接所有学校且线路总长最短的方案。
一共有n（3<=n<=100）个学校，各所学校之间的线路长度以一行共n*n个数据输入，
第i组的n个数据为从第i个学校出发到其他学校的线路长度，保证第i组的第i个数据为0。
编写VB程序，实现上述功能。运行程序，在文本框Text1中输入学校总数，
在文本框Text2中按题述方法输入各校之间的距离，点击命令按钮Command1后，在标签Label1中显示最短的线路总长。程序运行界面如图所示。
请回答下列问题：
（1）若n=4，各校距离为0242831240352528350303125300，则最短的线路总长为　 　。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Const INF = 2147483646
Dim n As Long， a As Long
Dim dis(1 To 10001) As Long， flag(1 To 10001) As Boolean
Dim head(1 To 10001) As Long， nxt(1 To 10001) As Long
Dim ed(1 To 10001) As Long， value(1 To 10001) As Long
Dim cnt As Long， tby As Long， sss As String
Dim i As Long， j As Long
Private Sub Command1_Click()
cnt = 0
n = Val(Text1.Text)
For i = 1 To n
dis(i)
= INF : flag(i) = False : head(i) = 0
Next i
tby = 1
sss = Text2.Text
For i = 1 To n
For j = 1 To n
　 　
If i <> j Then
Call addedge(i， j， a)
Next j
Next i
Dim ans As Long
dis(1) = 0 : ans = 0
For i = 1 To n
Dim
hg As Long， u As Long
hg = INF
u = 0
For j = 1 To n
If 　 　 Then
hg = dis(j)
u = j
End If
Next j
　 　
flag(u) = True
Dim p As Long
p = head(u)
Do While p <> 0
Dim v
As Long
v = ed(p)
If Not flag(v) And
dis(v) > value(p) Then
dis(v) = value(p)
End If
p = nxt(p)
Loop
Next i
Label1.Caption = Str(ans)
End Sub
Sub addedge(a As Long， b As Long， x As Long)
cnt = cnt + 1
value(cnt) = x
ed(cnt) = b
nxt(cnt) = head(a)
head(a) = cnt
End Sub
Function Getin() As Long
Dim aaa As String
aaa = Mid(sss， tby，
1)
If aaa = " " Then tby = tby + 1
aaa = Mid(sss， tby，
1)
Dim bbb As Long
bbb = 0
Do While aaa <> " " And tby
<= Len(sss)
bbb = bbb * 10 + Val(aaa) : tby = tby + 1
aaa = Mid(sss， tby， 1)
Loop
Getin = bbb
End Function
【答案】（1）77
（2）a = Getin()；Not flag(j) And dis(j) < hg；ans = ans + hg
【知识点】过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
1 / 1浙江省2021-2022学年高三上学期信息技术10月TBY在线联考试卷
一、选择题
1．（2021高三上·浙江月考）下列关于计算机、信息和信息技术的说法，不正确的是（　　）
A．近代信息技术包括摄影技术、电影技术、广播电视技术、微电子技术等
B．文字、图像、声音、代码等都是信息的载体
C．OCR中的“删除区域”命令的作用是取消该区域的选中状态
D．信息可以传递和共享，而不会像物质、能源那样产生消耗
2．（2021高三上·浙江月考）下列关于网页和网络协议的说法，不正确的是（　　）
A．网上检索资源的方式包括：搜索引擎、主题目录、元搜索引擎
B．网页的三种基本元素是文字、图形图像和超链接
C．使用浏览器登录邮箱进行收发邮件需要用到HTTP
D．SMTP的全称是通用邮件传送协议
3．（2021高三上·浙江月考）使用Access软件设计五校联考阅卷平台的数据库，部分界面如下图所示：
下列关于该数据库的说法，正确的是（　　）
A．数据表“五校联考成绩”处于打开状态
B．“姓名”字段可以输入“亚里士多德”
C．不能将“姓名”字段的对齐方式设置为居中
D．可以修改整个数据表的字体为楷体
4．（2021高三上·浙江月考）已知异或是一个数学运算符，它的数学符号为 ，a b的计算方法为：将a和b转换为二进制，从最低位开始按位比较，如果不同，则该位异或结果为1，否则该位异或结果为0。例如：9D 7D=1001B 0111B=1110B。用UltraEdit软件查看字符内码，部分界面如图所示。
下列说法中，正确的是（　　）
A．图中共有16个ASCII码字符
B．字符“2”的内码异或字符“5”的内码的结果是7D
C．汉字“糕”的内码为B8E2D
D．字符“y”的内码为31D
5．（2021高三上·浙江月考）使用Photoshop软件制作“将卓越进行到底”作品，部分界面如图所示：
在当前状态下，下列说法不正确的是（　　）
A．可以将“背景”图层移动到“蔡left”图层下方
B．“文字”图层是一个文字图层，其内容一定为“文字”
C．可以移动“文字”图层里的文字
D．“蔡left”图层可以移动到“蔡right”图层的上方
6．（2021高三上·浙江月考）使用GoldWave软件编辑某音频文件，选中其中一段音频后，部分界面如图所示。
下列说法正确的是（　　）
A．执行插入5秒静音后直接保存，音频文件容量约为350KB
B．点击“删除”按钮后直接保存，该文件的容量约为480KB
C．执行删除后插入5秒静音然后保存，该文件的容量不变
D．执行“剪裁”后左声道的5秒至30秒为静音
7．（2021高三上·浙江月考）VB表达式20 Mod 3 ^ 2 + Not 1 + 99 = 99 < 2的值是（　　）
A．2 B．3 C．4 D．5
8．（2021高三上·浙江月考）某算法的部分流程图如图所示。若输入n的值为7，则输出的ans值是（　　）
A．0 B．-2 C．-5 D．-8
9．（2021高三上·浙江月考）对一个有n个元素的数组进行操作，所有操作均采用未优化的标准算法，下列说法正确的是（　　）
A．若数组有序，对其进行一次对分查找，则最多查找次数为Int(log2n)+1
B．对数组进行一次冒泡排序比进行一次选择排序的比较次数要多
C．若数组无序，对其进行一次对分查找，一定不能找到要找的数
D．对数组进行一次查找，最少查找次数与n有关
10．（2021高三上·浙江月考）有如下VB程序段：
Private Sub Command1_Click()
Dim n As Integer， ans As Integer
n = 5
Dim x(1 To 5) As Integer
x(1) = -30: x(2) = 26: x(3) = -18: x(4) = 60: x(5) = 22
ans = 60
For i = 1 To n
If x(i) < 0 Then x(i) = -x(i)
ans = ans + gcd(ans， x(i))
Next i
Text1.Text = Str(ans)
End Sub
Function gcd(a As Integer， b As Integer)
If b = 0 Then
gcd = a
Else
gcd = gcd(b， a Mod b)
End If
End Function
执行该程序段后，Text1. Text中显示的值为（　　）
A．1 B．2 C．90 D．98
11．（2021高三上·浙江月考）为了准备五校联考，小卷王买了n套卷子，每套卷子数量不等，第i套试卷有a(i)张。小卷王每天可以将第i套到第j套卷子各做完一张。作为同学，小汤想要知道小卷王最快几天可以做完全部的卷子，因此小汤编写了下面这个程序，但他有几个空不知道该写什么，请求你的帮忙。
Private Sub Command1_Click()
For i = 2 To n
If a(i) > a(i-1) Then ①
Next i
Text1.Text = ②
End Sub
下列选项中，①②中的代码填写正确的是（　　）
A．①ans = ans + a(i) - a(i-1) ②Str(a(1) + ans)
B．①ans = ans + a(i) - a(i-1) ②Str(ans)
C．①ans = a(i) - a(i-1) ②Str(a(1) + ans)
D．①ans = a(i) - a(i-1) ②Str(ans)
12．（2021高三上·浙江月考）某算法的VB程序段如下：
Private Sub Command1_Click()
Dim key As Integer， i As Integer， j As Integer， ans As Integer
Dim n As Integer
n = 10
Dim x(1 To 10) As Integer
x(1) = 5 : x(2) = 52 : x(3) = 2 : x(4) = 72 : x(5) = 86
x(6) = 3256 : x(7) = 123 : x(8) = 25 : x(9) = 30 : x(10) = 87
key = Val(Text1.Text)
i = 1 : j = n : ans = 0
Do While i < j
m = (i + j + 1) \ 2
If key <= x(m) Then
j = m - 1 : ans = ans + 1
Else
i = m + 1 : ans = ans + 2
End If
Loop
End Sub
在Text1中输入3256，单击Command1，程序运行完毕后，以下变量的值不正确的是（　　）
A．i=6 B．j=5 C．ans=5 D．x(m)=5
二、非选择题
13．（2021高三上·浙江月考）TBY进行了一项调查，收集到了一些数据，并使用Excel软件对数据进行处理，如图所示。
（1）在D34单元格输入“=AVERAGE(D2:D33)”后立即按下回车，D34单元格中将会显示　 　（单选，填字母：A
.=AVERAGE(D2:D33)/B .4.9/C .#DIV/0!/D .#VALUE!）
（2）当前状态下，以A1:A33,D1:E33为数据区域创建的图表可能为 （单选，填字母）
A．
B．
C．
D．
（3）选中A1:G33执行“筛选”后，下列有关说法正确的是（多选） 。
A．在列A上设置筛选条件为“等于8”，筛选结果一定为空
B．在列A上设置筛选条件为“等于1”，筛选完毕后清除筛选，隐藏列会显示出来
C．复制F2:F33，在I2单元格执行“粘贴链接”命令后，修改G2单元格内容为“感谢参与TBY线上联考”，则I2单元格的内容保持不变
D．可以隐藏列A和列B
14．（2021高三上·浙江月考）为了迎接五校联考的到来，TBY创作主题为“将卓越进行到底”的多媒体作品，部分编辑页面如图所示。
请回答下列问题：
（1）在创作之前，TBY进行了作品设计，下列说法正确的是 （多选，填字母）
A．为迎接五校联考的到来，考虑该作品的受众为五校联考的考生，属于作品的应用需求分析
B．考虑背景图片从杭州第二中学官网下载，属于脚本编写
C．为让五校联考的考生能看到这一作品，考虑把这一作品以模拟试题的方式发布，属于应用需求分析
D．为丰富画面效果，考虑用Photoshop和Flash软件制作，属于规划设计
E．考虑背景音乐和文字的来源，属于创作需求分析
（2）在测试影片过程中，发现背景图层的画面会在播放到一半时消失，怎样才能使得背景图层的画面始终显示？
（3）为实现点击按钮后停止播放背景音乐，该按钮实例上添加的动作脚本应该为　 　。
（4）关于当前作品，下列说法正确的是 （多选，填字母）
A．可以直接移动“右蔡”图层的内容
B．可以将“左蔡”图层的第20帧复制到“右蔡”图层的第25帧
C．在不点击按钮的情况下，观看者听不到背景音乐
D．隐藏“图层6”后发布作品，观看者可以看到图层6
E．“测试影片”操作执行后，会在同一目录下生成“T14．flv”文件
15．（2021高三上·浙江月考）校服烘干。五校联考要求学生统一穿校服参加，但是不幸的是，考试前所有考生的校服全都打湿了。一件衣服在自然条件下用一秒的时间可以晒干a点湿度。现在学校里有且仅有一台烘衣机，且目前烘衣机全部断货（即无法购入新机器）使用用一秒烘衣机可以让一件衣服额外烘干b点湿度（一秒晒干a+b湿度），但在同一时间内只能烘一件衣服。现在有n件衣服，第i衣服的湿度为w(i)（保证互不相同），要你求出弄干所有衣服的最少时间（湿度为0为干）。编写VB程序，实现上述功能。运行程序，显示窗体From1，在文本框Text1输入衣服总数n，在文本框Text2中输入a，在文本框Text3中输入b，在文本框Text4中输入各件衣服的湿度（共n个数据，数据与数据使用空格隔开），点击命令按钮Command1后，在标签Label1中显示弄干所有衣服的最少时间。程序运行界面如图所示。请回答下列问题：
（1）若要使程序运行时，命令按钮Command1上显示为“计算”，可以在　 　事件处理过程中添加语句Command1．Caption="计算"。（单选，填字母：A .Form_Load/B .Form1_Load/mand1_Click/D
.Form1_Start）
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Const maxn = 500005
Dim n As Long， a As Long， b As Long
Dim f(1 To maxn) As Long
Dim i As Long， tby As Long
Private Sub Command1_Click()
tby = 1
n = Val(Text1.Text) : a =
Val(Text2.Text) : b = Val(Text3.Text)
For i = 1 To n
f(i) = Getin()
Next i
Dim l As Long， r As
Long， m As Long
l = 0: r = n
Do While l <= r
m = (l + r) / 2
If 　 　Then
r = m - 1
Else
l = m
+ 1
End If
Loop
Label1.Caption = Str(r + 1)
End Sub
Function check(x As Long)
Dim y As Long
y = x
For i = 1 To n
Dim tmp As Long
　 　
If tmp > 0 Then
If y < 0 Then
check = True
Exit Function
End If
Next i
check = False
End Function
Function Getin() As Long
Dim aaa As String
aaa = Mid(Text4.Text， tby， 1)
If aaa = " " Then tby = tby + 1
aaa = Mid(Text4.Text， tby， 1)
Dim bbb As Long
bbb = 0
Do While aaa <> " " And tby <= Len(Text4.Text)
bbb = bbb * 10 + Val(aaa) : tby = tby + 1
aaa = Mid(Text4.Text， tby， 1)
Loop
Getin = bbb
End Function
（3）程序中加框处代码有错，请改正。
16．（2021高三上·浙江月考）试卷运送。五校联考就要到了，本次负责安排运送试卷的路线的是TBY。由于各所学校都参与了一些科目命题工作，所以目前每个学校里都有几个科目的试卷。为了节省运输费用，TBY想要找到一种能连接所有学校且线路总长最短的方案。
一共有n（3<=n<=100）个学校，各所学校之间的线路长度以一行共n*n个数据输入，
第i组的n个数据为从第i个学校出发到其他学校的线路长度，保证第i组的第i个数据为0。
编写VB程序，实现上述功能。运行程序，在文本框Text1中输入学校总数，
在文本框Text2中按题述方法输入各校之间的距离，点击命令按钮Command1后，在标签Label1中显示最短的线路总长。程序运行界面如图所示。
请回答下列问题：
（1）若n=4，各校距离为0242831240352528350303125300，则最短的线路总长为　 　。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Const INF = 2147483646
Dim n As Long， a As Long
Dim dis(1 To 10001) As Long， flag(1 To 10001) As Boolean
Dim head(1 To 10001) As Long， nxt(1 To 10001) As Long
Dim ed(1 To 10001) As Long， value(1 To 10001) As Long
Dim cnt As Long， tby As Long， sss As String
Dim i As Long， j As Long
Private Sub Command1_Click()
cnt = 0
n = Val(Text1.Text)
For i = 1 To n
dis(i)
= INF : flag(i) = False : head(i) = 0
Next i
tby = 1
sss = Text2.Text
For i = 1 To n
For j = 1 To n
　 　
If i <> j Then
Call addedge(i， j， a)
Next j
Next i
Dim ans As Long
dis(1) = 0 : ans = 0
For i = 1 To n
Dim
hg As Long， u As Long
hg = INF
u = 0
For j = 1 To n
If 　 　 Then
hg = dis(j)
u = j
End If
Next j
　 　
flag(u) = True
Dim p As Long
p = head(u)
Do While p <> 0
Dim v
As Long
v = ed(p)
If Not flag(v) And
dis(v) > value(p) Then
dis(v) = value(p)
End If
p = nxt(p)
Loop
Next i
Label1.Caption = Str(ans)
End Sub
Sub addedge(a As Long， b As Long， x As Long)
cnt = cnt + 1
value(cnt) = x
ed(cnt) = b
nxt(cnt) = head(a)
head(a) = cnt
End Sub
Function Getin() As Long
Dim aaa As String
aaa = Mid(sss， tby，
1)
If aaa = " " Then tby = tby + 1
aaa = Mid(sss， tby，
1)
Dim bbb As Long
bbb = 0
Do While aaa <> " " And tby
<= Len(sss)
bbb = bbb * 10 + Val(aaa) : tby = tby + 1
aaa = Mid(sss， tby， 1)
Loop
Getin = bbb
End Function
答案解析部分
1．【答案】A
【知识点】信息及其特征；信息技术的概念与关键技术；字符识别
2．【答案】D
【知识点】网络协议；网络资源的检索；网页组成元素
3．【答案】D
【知识点】数据表、字段、记录的编辑
4．【答案】B
【知识点】字符编码
5．【答案】B
【知识点】图层及图层的基本操作
6．【答案】B
【知识点】声音素材的基本处理；声音、图像、视频编码
7．【答案】A
【知识点】运算符、基本运算与表达式
8．【答案】D
【知识点】流程图识读
9．【答案】A
【知识点】排序算法及程序实现；查找算法及程序实现
10．【答案】D
【知识点】过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
11．【答案】A
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
12．【答案】D
【知识点】查找算法及程序实现
13．【答案】（1）A
（2）A
（3）B；D
【知识点】表格数据的处理与计算
14．【答案】（1）A；B
（2）将“背景”图层的第20帧移动到第40帧 或其他等价表述
（3）on(press){stopAllSounds();}或on(release){stopAllSounds();}
（4）B；D
【知识点】多媒体作品的规划和设计；图层及图层的基本操作；常用影片控制函数的应用
15．【答案】（1）A
（2）Not Check(m) 或 Check(m) = False；tmp = f(i) - a * x
（3）y = y - (tmp \ b + (tmp Mod b <> 0)) 或y = y + Int((tmp / b) * (-1))
【知识点】过程与自定义函数
16．【答案】（1）77
（2）a = Getin()；Not flag(j) And dis(j) < hg；ans = ans + hg
【知识点】过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
1 / 1

展开更多......

收起↑