登录二一教育在线组卷平台 助您教考全无忧
浙江省普通高中强基联盟2021-2022学年高三信息技术3月统测试卷
一、选择题(本大题共12小题，每小题2分，共24分。)
1．（2022·浙江模拟）下列有关信息和信息技术说法正确的是( )
A．信息的形态在传递过程中不能转换
B．信息可以传递和共享，加工处理后的信息是真实可靠的
C．同一种信息内容可以采用不同的表达方式
D．信息可以脱离载体但不能脱离它所反映的事物
2．（2022·浙江模拟）下列关于网络与浏览器的说法正确的是( )
A．网站的地址用URL(统一资源地址)标识，即该网站所有网页都有相同的URL
B．实现将邮件从发件服务器发送到收件人客户端的协议是SMTP协议
C．在搜索引擎中可以利用增加关键字的方式来扩大搜索范围
D．选择“网页，全部”保存方式保存的网页被打开后，不能在地址栏看到该网页的URL
3．（2022·浙江模拟）使用UltraEdit软件查看字符内码部分界面如图所示。
下列说法正确的是( )
A．该字符串共有7个ASCI字符
B．字符“C”与字符“b”内码的差值为1111B
C．字符“J”的十六进制内码是“54”
D．“虎虎”两字在存储时占16bit
4．（2022·浙江模拟）小使用Access软件为班级采购设计了如下数据表。
下列说法正确的是( )
A．图中的6个字段中，有5个可以作为主键
B．在数据表视图下添加新的字段，可以撤销
C．“价格”字段的数据类型可能是货币
D．将数据表导出到Excel，则该工作表共有5行数据
5．（2022·浙江模拟）用Photoshop软件制作“虎啸山林”作品，如下图所示：
下列说法正确的是( )
A．可以直接对“背景”图层使用自由变换操作
B．“虎啸山林，气吞天下”图层进行栅格化后，才能添加图层样式
C．“鱼”图层的图层样式效果中，只有“投影”可见
D．“松树”图层可以移动到“鱼”图层的上方
6．（2022·浙江模拟）有一副分辨率为1024*512的BMP图像，其存储容量约为0.5MB，则该幅图像每个像素点能表达的颜色数量是( )
A．2种 B．8种 C．256种 D．65536种
7．（2022·浙江模拟）某算法的部分流程图如图所示，若输人k的值为9，最终i，s的值分别为( )
A．11 0 B．11 -11 C．9 0 D．9 -9
8．（2022·浙江模拟）VB表达式Abs(Int(-6.1)) Mod 42的值是( )
A．2 B．4 C．6 D．7
9．（2022·浙江模拟）在一篇英语短文中统计某字母开头的单词个数的程序，短文以“．”结束，单词之间用空格分隔，单词首写没有大写字母，没有缩写或其他特殊形式。部分程序代码如下所示：
s= Text1. Text '输人的英语短文
t= Text2. Text '要统计的开头字母
b=Len(s): f = True
For i=1 To b
c = Mid(s, i, 1)
If ① Then
n= n+1
②
ElseIf c = "" Or c= "." Then
③
Else
f = False
End If
Next i
Label1.Caption= "以" + t + "为开头的单词个数：" + Str(n)
为实现上述程序，划线处应填入的代码是( )
A．①f and c=t②f= False ③f= True
B．①f=False and c=t②f= False ③f= True
C．①c=t②f= True③f= False
D．①f= True and c=t②f= True③f= False
10．（2022·浙江模拟）有如下VB程序段：
a(0)= Int(Rnd() * 6+95)
For i=1 to 5
a(i)=a(i-1)-Int(Rnd() * 6)
If i Mod 2=0 then
a(i)=a(i)+a(i) Mod 2
End if
Next i
执行该程序段后，在下列选项中，a(0)~a(5)各元素值可能是( )
A．96，95，90，89，86，82 B．95，92，89，87，86，84
C．95，92，88，86，84，85 D．100，92，88，86，86，84
11．（2022·浙江模拟）某程序代码如下所示：
i=1：j=100：Key=20
Do While i<=j
a = i+(j- i)\4： b= i+(j- i)\ 2：c=j-(j-i)\4
If a=Key Or b=Key Or c=Key Then ExitD o
If i<= Key And Key< a Then j= a- 1： w= w+ 1
If a< Key And Key < b Theni = a+ 1： j= b-1：x=x+1
If b < Key And Key < c Then i= b+1：j=c-l：y=y+1
If cLoop
n=w+x+y+z
程序运行结束后，变量n的值是( )
A．1 B．2 C．3 D．4
12．（2022·浙江模拟）有如下VB程序段：
n = 8: flag = True: c=0: x=1: y=n
Do While flag
p = False: flag = False
For j=y To x+1 Step-1
c=c+1
If a(j) < a(j- 1) Then
t=a(j): a(j)=a(j-1): a(j-1)=t
x =j: flag =True
If p=False Then y=j: p=True
End If
Next j
If y <> n Then y= y+ 1
Loop
数组a(1)到a(8)值依次为“4，10，15，18，16，17，20，25”，程序运行后，变量c的值为( )
A．2 B．9 C．14 D．21
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2022·浙江模拟）下面是某校高三年级第一学期期末和期初考试成绩各班各科的平均分汇总表，其中“总平均”一行的值是利用平均值函数计算，现通过期初和期末考试成绩，对各班各学科计算离差值(如图13-1所示)，请回答下列问题：
（1）该校高三年级1班化学学科离差值计算公式(如图13-1所示)，2班的地理学科离差值通过复制F15单元格公式得到的，则J16单元格的公式为 。
（2）下列说法正确的是 (多选)
A．在《期末考各科平均分汇总表》中筛选出选考地理的班级后，上述图表会发生变化；
B．对《期末考各科平均分汇总表》以语文为关键字进降序排序后，上述图表会发生变化；
C．该图表的数据区域为A15：A22，C15：C22；
D．不小心把单元格B3的数据清除，则B15单元格的值会变成负数，而B16：B22区域的值几乎不变；
（3）复制A13：K22区域到新工作表中，对数学学科执行筛选操作(如图13-2所示) ，则筛选出 条记录。
14．（2022·浙江模拟）使用Flash软件制作“冬奥会．fla”多媒体作品，部分编辑界面(如图14-1所示)：
（1）有关多媒体作品设计，下列说法正确的是 (多选)
A．确定作品的主题思想、结构类型、作品内容、作品效益、作品发布方式等均属于创作需求分析；
B．Flash是以时间序列为基础的多媒体创作工具；
C．文字脚本能作为多媒体作品制作的直接依据；
D．在结构设计时需要考虑屏幕布局合理规范和交互设计友好快速；
E．媒体元素分解将进一步细化“媒体素材”中所列出的媒体元素；
（2）“音乐”图层的音乐是从第18 帧开始出现的，要使音乐一开始就出现，不重复播放，则下列说法正确的是 (多选)
A．选择“音乐”图层的第18帧执行“复制帧”，并在该图层的第1帧执行“粘贴帧”命令；
B．选择“音乐”图层的第1帧执行“删除关键帧”命令；
C．选择“音乐”图层的第1帧执行“清除关键帧”命令；
D．选择“音乐”图层的第18帧移至该图层的第1帧；
E．选择“音乐”图层的第1帧执行“清除帧”命令；
（3）“吉祥物”图层中文字“冰墩墩”渐变成冬奥吉祥物图像冰墩墩，但是未创建成功，其第1帧和第15帧的内容分别(如图14-2所示)，要成功创建，该如何修改？
（4）在播放生成的“冬奥会．swf”影片文件时，发现动画播放到最后一帧时出现“看冬奥”按钮，单击按钮链接到网址： https：//www．
beijing2022． cn，并关闭动画，则“看冬奥”按钮的动作脚本为： 。
15．（2022·浙江模拟）某省级医院为了掌握医院内所有患者的体温异常情况，以便做出分类医治处理。现编写了一个VB程序，功能如下：程序运行时，在列表框List1中显示从数据库中读取的所有患者的地区、姓名、体温信息，单击“统计人数”按钮Command1 ，统计出各地区体温异常(大于等于37.4 ℃)的人数，并按照体温异常人数进行降序排序，在列表框List2中显示这些体温有异常的地区和对应的人数；单击“显示名单”按钮Command2，列表框List3中显示有异常体温的地区的人员相关信息。
（1）代码“Private Sub Command1_ Click( )”中的Command1是 (单选，填字母：A .事件名/B .属性名/C .对象名)
（2）加框处代码有误，请改正
Dim n As Integer '总人数
Dim dq(1 To 2000) As String
Dim xm(1 To 2000) As String
Dim tw(1 To 2000) As Single
Dim city(1 To 100) As String
Dim citynum(1 To 100) As Integer
Dim citys As Integer
Private Sub Form_ Load()
'该过程的作用从数据库读取n个患者的信息，并在列表框List1输出所有患者的地区、姓名、体温信息。
'dq数组存储患者的地区信息
'xm数组存储患者的姓名信息
'tw数组存储患者的体温信息
'代码略
End Sub
Private Sub Command1_Click()
Dim i, j As Integer
Dim s As String, t As Integer
citys=0
For i=1 To n
If tw(i)>>=37.4 Then
For j = 1 To citys
If Then citynum(j) = citynum(j) +1:
Exit For
Next j
If j> citys Then citys =
citys +1: city(citys) = dq(i) : citynum(citys) = 1
End If
Next i
For i=1 To citys-1
For j = citys Toi + 1 Step -1
If Then
s = city(j): city(j) = city(i): city(i) = s
t = citynum(j): citynum(j) = citynum(i): citynum(i) = t
End If
Next j
Next i
For i=1 To citys
List2． AddItem city(i)+" "+Str( citynum(i))
Next i
End Sub
Private Sub Command2_ Click( )
Dimi， j As Integer
For
For j=1 To n
If dq(j) = city(i) And tw(j) >= 37.4 Then
List3． AddItem dq(j) + ""+ xm(j) + ""+ Str(tw(j))
End If
Next j
Next i
End Sub
（3）请在划线处填入合适的代码
16．（2022·浙江模拟）某城市有一条横贯东西的大河，河有笔直的南北两岸，岸上有位置各不相同的N个城市。城市按照地理位置先后进行从小到大编号，两岸的部分城市结成--对一的友好城市，即南岸的每个城市有且仅有一个友好城市在北岸，且不同城市的友好城市不能相同。每对友好城市都向政府申请在河上开辟一条直线航道连接两个城市，政府决定避免任意两条航道交叉，以避免事故(如图16-1所示)，请帮助政府做出一些批准和拒绝申请的决定，使得在保证任意两条航道不相交的情况下，被批准的申请尽量多。
小王设计VB程序如下，在标签．上显示南岸城市的位置序号，例如“1，2，3，4，5，"(两岸城市序号之间用逗号分隔)，然后按照南岸城市的顺序在Text1中输入相应的北岸友好城市序号“3，2，4，1，5，”，其中南岸1号城市与北岸3号城市为友好城市，南岸2号城市与北岸2号城市为友好城市，以此类推，单击“分析”按钮，显示最多可批准的申请数量为3个(如图16-2所示)，最终政府批准的3条航道为南岸城市2-北岸城市 2，南岸城市3-北岸城市 4，南岸城市5-北岸城市5。
（1）南岸城市标签显示“1，2，3，4，5，6，7，”，文本框Text1中输人“3，1，2，5，6，4，7，"，最多批准申请数是 个。
（2）请在划线处填入合适的代码。
Private Sub Command1_ Click()
Dim b(1 To 100) As Integer 'b(i)表示编号i南岸城市对应的北岸友好城市
Dim c(1 To 100) As Integer
Dim n1, lenc As Integer
Dim i, j As Integer
Dim s1 As String
Dim st, ch As String
Dim flag As Boolean
n1=0
s1 = Text1. Text
st =""
For i = 1 To Len(s1)
ch = Mid(s1, i, 1)
If ch = "," Then
n1 =
n1+1
st =""
Else
st=st+ch
End If
Next i
c(1) = b(1)
lenc = 1
For i=2 To n1
If b(i) > c(lenc) Then
lenc=lenc+1
c(lenc) = b(i)
Else
j=lenc-1: flag=True
Do While j>= 1 And flag
If Then
c(j+1)=b(i)
flag
= Flase
End If
j=j-1
Loop
If j = 0 And flag Then
End If
End If
Next i
Label1. Caption = "最多批准申请数：" + Str(lenc) + "个"
End Sub
答案解析部分
1．【答案】C
【知识点】信息及其特征；信息表达方式与表达技术
2．【答案】D
【知识点】网络协议；网址与统一资源定位器；网络资源的类型、下载与保存；网络资源的检索
3．【答案】B
【知识点】字符编码
4．【答案】D
【知识点】数据表、字段、记录的编辑
5．【答案】D
【知识点】图片加工常用工具的使用；图层及图层的基本操作
6．【答案】C
【知识点】声音、图像、视频编码
7．【答案】B
【知识点】流程图识读
8．【答案】D
【知识点】运算符、基本运算与表达式
9．【答案】A
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
10．【答案】A
【知识点】分支结构语句及程序实现；循环结构语句及程序实现；常用标准函数
11．【答案】C
【知识点】查找算法及程序实现
12．【答案】B
【知识点】排序算法及程序实现
13．【答案】（1）=(J4/J$11-V4/V$11)* (J$11+V$11)/2
（2）B；D
（3）1
【知识点】表格数据的处理与计算
14．【答案】（1）B；E
（2）C；D
（3）右键单击“吉祥物”图层第一帧在舞台上的实例“冰墩墩”，在弹出快捷菜单中选择“分离”命令后，再次选择“分离”命令，共执行两次。
（4）on( press) {getUrl( *https：//www． beijing2022． cn”")； fscommand(“quit")}
【知识点】多媒体作品的规划和设计；时间轴、帧、图层、库的概念及基本操作；常用影片控制函数的应用
15．【答案】（1）C
（2）dq(i) = city(j)；i=1Tocitys
（3）citynum(j) > > citynum(i)
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；排序算法及程序实现
16．【答案】（1）5
（2）b(n1) = Val(st)；b(i) > c(j)；c(1) = b(i)
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1登录二一教育在线组卷平台 助您教考全无忧
浙江省普通高中强基联盟2021-2022学年高三信息技术3月统测试卷
一、选择题(本大题共12小题，每小题2分，共24分。)
1．（2022·浙江模拟）下列有关信息和信息技术说法正确的是( )
A．信息的形态在传递过程中不能转换
B．信息可以传递和共享，加工处理后的信息是真实可靠的
C．同一种信息内容可以采用不同的表达方式
D．信息可以脱离载体但不能脱离它所反映的事物
【答案】C
【知识点】信息及其特征；信息表达方式与表达技术
2．（2022·浙江模拟）下列关于网络与浏览器的说法正确的是( )
A．网站的地址用URL(统一资源地址)标识，即该网站所有网页都有相同的URL
B．实现将邮件从发件服务器发送到收件人客户端的协议是SMTP协议
C．在搜索引擎中可以利用增加关键字的方式来扩大搜索范围
D．选择“网页，全部”保存方式保存的网页被打开后，不能在地址栏看到该网页的URL
【答案】D
【知识点】网络协议；网址与统一资源定位器；网络资源的类型、下载与保存；网络资源的检索
3．（2022·浙江模拟）使用UltraEdit软件查看字符内码部分界面如图所示。
下列说法正确的是( )
A．该字符串共有7个ASCI字符
B．字符“C”与字符“b”内码的差值为1111B
C．字符“J”的十六进制内码是“54”
D．“虎虎”两字在存储时占16bit
【答案】B
【知识点】字符编码
4．（2022·浙江模拟）小使用Access软件为班级采购设计了如下数据表。
下列说法正确的是( )
A．图中的6个字段中，有5个可以作为主键
B．在数据表视图下添加新的字段，可以撤销
C．“价格”字段的数据类型可能是货币
D．将数据表导出到Excel，则该工作表共有5行数据
【答案】D
【知识点】数据表、字段、记录的编辑
5．（2022·浙江模拟）用Photoshop软件制作“虎啸山林”作品，如下图所示：
下列说法正确的是( )
A．可以直接对“背景”图层使用自由变换操作
B．“虎啸山林，气吞天下”图层进行栅格化后，才能添加图层样式
C．“鱼”图层的图层样式效果中，只有“投影”可见
D．“松树”图层可以移动到“鱼”图层的上方
【答案】D
【知识点】图片加工常用工具的使用；图层及图层的基本操作
6．（2022·浙江模拟）有一副分辨率为1024*512的BMP图像，其存储容量约为0.5MB，则该幅图像每个像素点能表达的颜色数量是( )
A．2种 B．8种 C．256种 D．65536种
【答案】C
【知识点】声音、图像、视频编码
7．（2022·浙江模拟）某算法的部分流程图如图所示，若输人k的值为9，最终i，s的值分别为( )
A．11 0 B．11 -11 C．9 0 D．9 -9
【答案】B
【知识点】流程图识读
8．（2022·浙江模拟）VB表达式Abs(Int(-6.1)) Mod 42的值是( )
A．2 B．4 C．6 D．7
【答案】D
【知识点】运算符、基本运算与表达式
9．（2022·浙江模拟）在一篇英语短文中统计某字母开头的单词个数的程序，短文以“．”结束，单词之间用空格分隔，单词首写没有大写字母，没有缩写或其他特殊形式。部分程序代码如下所示：
s= Text1. Text '输人的英语短文
t= Text2. Text '要统计的开头字母
b=Len(s): f = True
For i=1 To b
c = Mid(s, i, 1)
If ① Then
n= n+1
②
ElseIf c = "" Or c= "." Then
③
Else
f = False
End If
Next i
Label1.Caption= "以" + t + "为开头的单词个数：" + Str(n)
为实现上述程序，划线处应填入的代码是( )
A．①f and c=t②f= False ③f= True
B．①f=False and c=t②f= False ③f= True
C．①c=t②f= True③f= False
D．①f= True and c=t②f= True③f= False
【答案】A
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
10．（2022·浙江模拟）有如下VB程序段：
a(0)= Int(Rnd() * 6+95)
For i=1 to 5
a(i)=a(i-1)-Int(Rnd() * 6)
If i Mod 2=0 then
a(i)=a(i)+a(i) Mod 2
End if
Next i
执行该程序段后，在下列选项中，a(0)~a(5)各元素值可能是( )
A．96，95，90，89，86，82 B．95，92，89，87，86，84
C．95，92，88，86，84，85 D．100，92，88，86，86，84
【答案】A
【知识点】分支结构语句及程序实现；循环结构语句及程序实现；常用标准函数
11．（2022·浙江模拟）某程序代码如下所示：
i=1：j=100：Key=20
Do While i<=j
a = i+(j- i)\4： b= i+(j- i)\ 2：c=j-(j-i)\4
If a=Key Or b=Key Or c=Key Then ExitD o
If i<= Key And Key< a Then j= a- 1： w= w+ 1
If a< Key And Key < b Theni = a+ 1： j= b-1：x=x+1
If b < Key And Key < c Then i= b+1：j=c-l：y=y+1
If cLoop
n=w+x+y+z
程序运行结束后，变量n的值是( )
A．1 B．2 C．3 D．4
【答案】C
【知识点】查找算法及程序实现
12．（2022·浙江模拟）有如下VB程序段：
n = 8: flag = True: c=0: x=1: y=n
Do While flag
p = False: flag = False
For j=y To x+1 Step-1
c=c+1
If a(j) < a(j- 1) Then
t=a(j): a(j)=a(j-1): a(j-1)=t
x =j: flag =True
If p=False Then y=j: p=True
End If
Next j
If y <> n Then y= y+ 1
Loop
数组a(1)到a(8)值依次为“4，10，15，18，16，17，20，25”，程序运行后，变量c的值为( )
A．2 B．9 C．14 D．21
【答案】B
【知识点】排序算法及程序实现
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2022·浙江模拟）下面是某校高三年级第一学期期末和期初考试成绩各班各科的平均分汇总表，其中“总平均”一行的值是利用平均值函数计算，现通过期初和期末考试成绩，对各班各学科计算离差值(如图13-1所示)，请回答下列问题：
（1）该校高三年级1班化学学科离差值计算公式(如图13-1所示)，2班的地理学科离差值通过复制F15单元格公式得到的，则J16单元格的公式为 。
（2）下列说法正确的是 (多选)
A．在《期末考各科平均分汇总表》中筛选出选考地理的班级后，上述图表会发生变化；
B．对《期末考各科平均分汇总表》以语文为关键字进降序排序后，上述图表会发生变化；
C．该图表的数据区域为A15：A22，C15：C22；
D．不小心把单元格B3的数据清除，则B15单元格的值会变成负数，而B16：B22区域的值几乎不变；
（3）复制A13：K22区域到新工作表中，对数学学科执行筛选操作(如图13-2所示) ，则筛选出 条记录。
【答案】（1）=(J4/J$11-V4/V$11)* (J$11+V$11)/2
（2）B；D
（3）1
【知识点】表格数据的处理与计算
14．（2022·浙江模拟）使用Flash软件制作“冬奥会．fla”多媒体作品，部分编辑界面(如图14-1所示)：
（1）有关多媒体作品设计，下列说法正确的是 (多选)
A．确定作品的主题思想、结构类型、作品内容、作品效益、作品发布方式等均属于创作需求分析；
B．Flash是以时间序列为基础的多媒体创作工具；
C．文字脚本能作为多媒体作品制作的直接依据；
D．在结构设计时需要考虑屏幕布局合理规范和交互设计友好快速；
E．媒体元素分解将进一步细化“媒体素材”中所列出的媒体元素；
（2）“音乐”图层的音乐是从第18 帧开始出现的，要使音乐一开始就出现，不重复播放，则下列说法正确的是 (多选)
A．选择“音乐”图层的第18帧执行“复制帧”，并在该图层的第1帧执行“粘贴帧”命令；
B．选择“音乐”图层的第1帧执行“删除关键帧”命令；
C．选择“音乐”图层的第1帧执行“清除关键帧”命令；
D．选择“音乐”图层的第18帧移至该图层的第1帧；
E．选择“音乐”图层的第1帧执行“清除帧”命令；
（3）“吉祥物”图层中文字“冰墩墩”渐变成冬奥吉祥物图像冰墩墩，但是未创建成功，其第1帧和第15帧的内容分别(如图14-2所示)，要成功创建，该如何修改？
（4）在播放生成的“冬奥会．swf”影片文件时，发现动画播放到最后一帧时出现“看冬奥”按钮，单击按钮链接到网址： https：//www．
beijing2022． cn，并关闭动画，则“看冬奥”按钮的动作脚本为： 。
【答案】（1）B；E
（2）C；D
（3）右键单击“吉祥物”图层第一帧在舞台上的实例“冰墩墩”，在弹出快捷菜单中选择“分离”命令后，再次选择“分离”命令，共执行两次。
（4）on( press) {getUrl( *https：//www． beijing2022． cn”")； fscommand(“quit")}
【知识点】多媒体作品的规划和设计；时间轴、帧、图层、库的概念及基本操作；常用影片控制函数的应用
15．（2022·浙江模拟）某省级医院为了掌握医院内所有患者的体温异常情况，以便做出分类医治处理。现编写了一个VB程序，功能如下：程序运行时，在列表框List1中显示从数据库中读取的所有患者的地区、姓名、体温信息，单击“统计人数”按钮Command1 ，统计出各地区体温异常(大于等于37.4 ℃)的人数，并按照体温异常人数进行降序排序，在列表框List2中显示这些体温有异常的地区和对应的人数；单击“显示名单”按钮Command2，列表框List3中显示有异常体温的地区的人员相关信息。
（1）代码“Private Sub Command1_ Click( )”中的Command1是 (单选，填字母：A .事件名/B .属性名/C .对象名)
（2）加框处代码有误，请改正
Dim n As Integer '总人数
Dim dq(1 To 2000) As String
Dim xm(1 To 2000) As String
Dim tw(1 To 2000) As Single
Dim city(1 To 100) As String
Dim citynum(1 To 100) As Integer
Dim citys As Integer
Private Sub Form_ Load()
'该过程的作用从数据库读取n个患者的信息，并在列表框List1输出所有患者的地区、姓名、体温信息。
'dq数组存储患者的地区信息
'xm数组存储患者的姓名信息
'tw数组存储患者的体温信息
'代码略
End Sub
Private Sub Command1_Click()
Dim i, j As Integer
Dim s As String, t As Integer
citys=0
For i=1 To n
If tw(i)>>=37.4 Then
For j = 1 To citys
If Then citynum(j) = citynum(j) +1:
Exit For
Next j
If j> citys Then citys =
citys +1: city(citys) = dq(i) : citynum(citys) = 1
End If
Next i
For i=1 To citys-1
For j = citys Toi + 1 Step -1
If Then
s = city(j): city(j) = city(i): city(i) = s
t = citynum(j): citynum(j) = citynum(i): citynum(i) = t
End If
Next j
Next i
For i=1 To citys
List2． AddItem city(i)+" "+Str( citynum(i))
Next i
End Sub
Private Sub Command2_ Click( )
Dimi， j As Integer
For
For j=1 To n
If dq(j) = city(i) And tw(j) >= 37.4 Then
List3． AddItem dq(j) + ""+ xm(j) + ""+ Str(tw(j))
End If
Next j
Next i
End Sub
（3）请在划线处填入合适的代码
【答案】（1）C
（2）dq(i) = city(j)；i=1Tocitys
（3）citynum(j) > > citynum(i)
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；排序算法及程序实现
16．（2022·浙江模拟）某城市有一条横贯东西的大河，河有笔直的南北两岸，岸上有位置各不相同的N个城市。城市按照地理位置先后进行从小到大编号，两岸的部分城市结成--对一的友好城市，即南岸的每个城市有且仅有一个友好城市在北岸，且不同城市的友好城市不能相同。每对友好城市都向政府申请在河上开辟一条直线航道连接两个城市，政府决定避免任意两条航道交叉，以避免事故(如图16-1所示)，请帮助政府做出一些批准和拒绝申请的决定，使得在保证任意两条航道不相交的情况下，被批准的申请尽量多。
小王设计VB程序如下，在标签．上显示南岸城市的位置序号，例如“1，2，3，4，5，"(两岸城市序号之间用逗号分隔)，然后按照南岸城市的顺序在Text1中输入相应的北岸友好城市序号“3，2，4，1，5，”，其中南岸1号城市与北岸3号城市为友好城市，南岸2号城市与北岸2号城市为友好城市，以此类推，单击“分析”按钮，显示最多可批准的申请数量为3个(如图16-2所示)，最终政府批准的3条航道为南岸城市2-北岸城市 2，南岸城市3-北岸城市 4，南岸城市5-北岸城市5。
（1）南岸城市标签显示“1，2，3，4，5，6，7，”，文本框Text1中输人“3，1，2，5，6，4，7，"，最多批准申请数是 个。
（2）请在划线处填入合适的代码。
Private Sub Command1_ Click()
Dim b(1 To 100) As Integer 'b(i)表示编号i南岸城市对应的北岸友好城市
Dim c(1 To 100) As Integer
Dim n1, lenc As Integer
Dim i, j As Integer
Dim s1 As String
Dim st, ch As String
Dim flag As Boolean
n1=0
s1 = Text1. Text
st =""
For i = 1 To Len(s1)
ch = Mid(s1, i, 1)
If ch = "," Then
n1 =
n1+1
st =""
Else
st=st+ch
End If
Next i
c(1) = b(1)
lenc = 1
For i=2 To n1
If b(i) > c(lenc) Then
lenc=lenc+1
c(lenc) = b(i)
Else
j=lenc-1: flag=True
Do While j>= 1 And flag
If Then
c(j+1)=b(i)
flag
= Flase
End If
j=j-1
Loop
If j = 0 And flag Then
End If
End If
Next i
Label1. Caption = "最多批准申请数：" + Str(lenc) + "个"
End Sub
【答案】（1）5
（2）b(n1) = Val(st)；b(i) > c(j)；c(1) = b(i)
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1
