登录二一教育在线组卷平台 助您教考全无忧
浙江省金华十校2022届高三下学期4月模拟考试信息技术试卷
一、选择题(本大题共12小题，每小题2分，共24分)
1．（2022·金华模拟）很多学校开设了在线课程，老师通过网络与学生互动、直播上课。从信息和信息处理的角度分析，以下说法正确的是( )
A．摄像头采集教师上课的实况，实现了“数模转换"
B．老师可以同时给全班同学上网课，体现了信息可以共享的特性
C．网络直播授课可以脱离线下的“教室"，这说明了信息的传播可以脱离载体
D．网课平台会自动记录每个同学学习的时长并生成统计报表，这是一种人工智能技术
2．（2022·金华模拟）下列关于网页和网络测览器的说法正确的是( )
A．使用搜索引擎查询，也会搜索到一些虚假的信息，用户需要辨别真伪
B．网页文件可以使用记事本编辑，编辑后的网页必定是txt格式
C．保存网页时选择“网页，仅HTML(<*．htm； *．html)”不能保存超链接
D．浏览器与web服务器之间进行传输网页数据使用SMTP协议
3．（2022·金华模拟）某十进制偶数n对应的二进制数据为x，下列说法正确的是( )
A．n+1转换为二进制数后，位数可能比x多
B．nmod4的结果一定与x的最右侧两位等值
C．n转化为十六进制数最低位一定等于0
D．x中1的个数一定比0的个数多
4．（2022·金华模拟）用Access软件设计数据库，存储疫苗接种相关信息，其中已建好的“已接种人员信息"数据表用于存储如图所示的数据，其中“接种编号”的前4位表示年份。
接种编号 疫苗厂家 疫苗批号 接种日期 接种间隔 是否需要补种
2021 1201 北京生物 202008092 2021.11.12 10 是
2021 1202 北京生物 202008098 2021.12.21 15 否
2021 1203 北京生物 202008092 2021.12.10 20 否
…… …… …… …… …… ……
下列关于“已接种人员信息”数据表的描述，正确的是( )
A．一个数据表就是一个数据库文件，该表文件名为“已接种人员信息.accdb”
B．“接种编号”字段设置为“自动编号”类型最合适
C．“是否需要补种”字段的数据类型一定是“是/否”
D．图中6个字段均可设置为“文本”类型
5．（2022·金华模拟）使用GoldWave软件编辑某音频文件，部分界面如图所示。下列说法正确的是( )
A．当前声音文件采用Wave格式，是一种无损压缩音频格式
B．当前声音文件的存储容量约为6.4MB
C．当前状态下，执行“删除”命令后右声道的第14~19 秒将出现静音
D．执行“插人静音”命令，当前状态下插人15秒静音，文件播放时有一段静音
6．（2022·金华模拟）一段未经压缩的AVI格式无声视频参数为：每帧画面为1024*768像素、16位色，PAL制式(25fps) ，若视频文件为375MB，则该视频的时长约为( )
A．2秒 B．8秒 C．10秒 D．15秒
7．（2022·金华模拟）若xy都是正整数且x mod y = 3，则下列表达式的值一定为True是( )
A．x-y=3 B．x/yy D．xmod3=0
8．（2022·金华模拟）某算法的部分流程图如第8题图所示。输出g的值是( )
A．-9 B．-3 C．18 D．63
9．（2022·金华模拟）有如下VB程序段：
s= "Jinhua2022": t="": i= 1
Do While i< Len(s)
c=Mid(s,i,1)：d=Mid(s,i+1,1)
If c <= d Then t=t+ c
Else t=t+d
i=i+2
Loop
Label1.Caption = t
执行该程序段后，标签Label1中显示的内容是( )
A．iha22 B．Jha02 C．Jna02 D．ihu22
10．（2022·金华模拟）有如下VB程序段：
i =1
Do While i<=5
a(i)= Int(Rnd*10)*2 + 1
If Not flag(a(i)) Then flag(a(i))=True
i= i + 1
Loop
已知数组flag各元素的初值为False，运行以上程序段程序，数组元素a(1)到a(5)的值可能为( )
A．3 9 16 15 11 B．5 7 9 7 13
C．9 3 7 1 15 D．9 17 5 21 1
11．（2022·金华模拟）有如下VB程序段：
i =1
Do While i<=5
If i=0 or a(i-1) >= a(i) Then
i=i+1
Else
t = a(i) : a(i) = a(i-1) : a(i-1) = t
i=i-1
End If
Loop
For i =0to5
List1.additem str(a(i))
Next i
数组元素a(0)到a(5)的值依次为“10，77，22，47，79，26”，该程序段运行后，数组元素a(4)的值为( )
A．10 B．77 C．22 D．47
12．（2022·金华模拟）某对分查找算法的VB程序段如下：
Key = Val(Text1.Text)
c=0：i=1：j=10
Do While i<=j
m=(i+j)\2
c=c+1
If key >= a(m) Then i=m+1 Else j=m-1
Loop
Text2.Text = Str(c)
数组a(1)到a(10)的值依次为“10，15，15，25，27，28，33，35，36，56”，执行该程序段后，文本框Text2中显示的值为3，则key值可能是( )
A．10 B．15 C．28 D．36
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2022·金华模拟）某同学收集了1980-2021 年浙江省学校教师负担学生数相关信息，并用Excel软件进行数据处理，如图a所示。请回答下列问题：
（1）将D4单元格公式粘贴到G4单元格计算出中等学校学生总数，则G4单元格公式为 。
（2）为了更加直观地比较2014-2021年高等学校“平均每个教师负担学生人数”的变化情况，建立如图b所示的图表。则生成该图表的数据区域是 。
（3）若要整理高等学校“平均每个教师负担学生人数”大于5.0的年份的信息，下列说法正确的是 (多选，填字母)。
A．将表中A4：G45中数据，以列C为关键字降序排序，可自上而下选取C列中大于5.0的记录
B．对表格中C列数据进行筛选，在如图c搜索框中输入“>5.0”
C．对表格中C列数据进行筛选，自定义筛选条件为“大于5.0”
D．若在C列设置筛选条件“大于5.0”，图b所示的图表将发生变化
14．（2022·金华模拟）制作“香浓奶茶"多媒体广告，首先在Photoshop软件中制作效果图，然后在Flash软件中制作动画，相关界面如下所示，请回答以下问题。
（1）如图a所示，在photoshop软件中制作广告效果图，其中“奶茶“的画面区域已经建立了选区，以下说法正确的是 。(多选，填字母)
A．“标题”图层与“文字”图层设置了相同的图层样式
B．当前状态下，选中“背景”图层，可以直接为整个背景画面设置滤镜效果
C．当前状态下，无法使用“自由变换”命令修改“标题”图层的字体大小
D．“标题”图层与“奶茶”选区没有重叠部分，“投影”效果不可见
E．“奶茶”与“文字”图层锁定，无法使用“图像大小”命令调整图像
F．当前状态下，有4个图层可以设置滤镜效果
（2）根据制作脚本，“标题”图层要实现“标题文字从完全透明到完全显示，停留一段时间后再“淡出”的效果，则标题图层第1帧中的标题文字实例的Alpha属性值应设置为 ，第1-20帧的补间类型为 。
（3）测试影片，发现“标题”图层第48-80帧未能实现淡出效果，根据图b分析，其原因可能是 。
（4）结合图b，以下说法正确的是 (多选，填字母)
A．“背景”图层第80帧执行“清除关键帧”操作可使背景画面从头到尾一直显示
B．“按钮"图层第1帧移至第80帧，按钮将在场景结束时才出现，不改变其它动画效果
C．“奶茶”图层的动画为“逐帧动画”
D．“音乐”图层的声音同步属性设置为“数据流”或“事件”，播放效果无异
E．若将影片的帧频调整为10fps，声音的播放速度不会改变
F．“按钮”图层第80帧的动作脚本可能是on(press){stop()；}
（5）点击“新品上新”按钮，跳转到“new”场景第1帧播放，并停止音乐的播放，则在该按钮上设置的动作脚本为on(press){ }。
15．（2022·金华模拟）某校要举行国际象棋比赛，计划组织k场对弈。每个人最多参加2场对弈，最少参加0场对弈。每个人都有一个与其他人不相同的等级(用一个正整数来表示)。在对弈中，等级高的人用黑色的棋子，等级低的人用白色的棋子。每个人最多只能用一次黑色的棋子和一次白色的棋子。为增加比赛的可观度，观众希望k场对弈中双方的等级差的总和最小。
比如有7个选手，他们的等级分别是30，17，26，41，19，38，18，要进行3场比赛。最好的安排是选手2对选手7，选手7对选手5，选手6对选手4。此时等级差的总和等于(18-17)+(19-18)+(41-38)=5达到最小。
窗体form1的运行界面如下图所示，用户在文本框Text1中输入各位选手的等级(以逗号分隔)，在文本框Text2中输人要对弈的场数k，单击计算按钮Commmand1，在文本框Text3中显示最小等级差总和。程序运行界面如图所示。
（1）若要使得的在程序启动时文本框text1中内容自动清空，可在以下哪个事件处理过程中编写代码实现 (选填)
A．form1_load() B．Text1 _Change()
C．form_load() D．text1_load()
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Dim a(0 To 1000) As Integer
Dim b(0 To 1000) As Integer
Private Sub Command1_ Click()
Sum=0
k = Val(Text2. Text)
s =Text1. Text
cnt =1
For i=1 To Len(s)
c=mid(s, i, 1)
If
c="," Then cnt=cnt+1 Else
Next i
For i=1 To cnt-1
For j=1 To cnt-i
If Then
t =
a(j): a(j) = a(j+ 1): a(j+1)= t
End
If
Next
j
Next i
'计算出各等级选手之间差值
For i=1To cnt- 1
b(i)=a(i+1)-a(i)
Next i
For i=1 To k
Min=i
If b(j) < b(Min) Then Min = j
Next j
Sum = Sum + b(Min)
Next i
Text3. Text = Str(Sum)
End Sub
（3）加框处的程序代码有错，应改为 。
16．（2022·金华模拟）张老师在筹备一次班级活动，活动的场地可以看成由m*n个小方格组成的矩阵(m，n<=100)，由于活动需要，计划给这个场地铺上红地毯。当前的地毯都是矩形的，但是大小不一每块地毯铺设位置由左上角(x1，y1)和右下角(x2，y2)两个坐标确定，且刚好铺满该矩形区域。
张老师想了解每个小方格被多少块地毯覆盖，以便更好地调整地毯铺设位置，他编写了VB程序，实现以下功能：在文本框Text1中输人行数m，在文本框Text2中输入列数n，在Text3中输入每块地毯铺设的坐标x1，y1，x2，y2……坐标之间逗号分隔，地毯数量不超过100)，单击计算按钮Commmand1，在列表框List1中显示每个小方格被多少块地毯覆盖。程序运行界面如图所示。
（1）文本框Text1中输人行数为5，在文本框Text2中输人列数5，在Text3中输人的地毯铺设的坐标为s=1，1，2，2，1，2，3，3则最后输出矩阵a(7)的值为 。 (填数字)
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Dim m As Integer
Dim n As Integer
Dim a, b, C, d As Integer
Dim flag(0 To 10000) As Integer
Dim sum(0 To 10000) As Integer
Dim pos(0 To 100) As Integer
Private Sub Command1_Click()
List1. Clear
m = Val(Text1. Text)
n = Val(Text2. Text)
s = Text3. Text
'读取每块地毯坐标,并按顺序存储在pos数组中
'地毯总数量存储在变量k中
For i=1 To k
a= pos(i * 4- 3)：b= pos(i * 4- 2)：c= pos(i * 4- 1)：d= pos(i * 4)
Next i
For i=1 To m
For
j=1 To n
sum((i- 1) *n+ j) = sum((i- 1) * n+ j- 1) +
flag((i- 1)*n+ j)
s=s+Str(sum((i-1)*n+j))
Next j
List1. AddItem s
Next i
End Sub
Sub add (ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer,
ByVal y2 As Integer)
'按行标记地毯铺设情况
For i=x1 To x2
flag((i - 1) * n + y1) =
flag((i- 1)*n+y1) + 1
Next i
End Sub
答案解析部分
1．【答案】B
【知识点】信息及其特征
2．【答案】A
【知识点】信息来源的选择与判断；网络协议；网络资源的类型、下载与保存
3．【答案】B
【知识点】进制及数制转换
4．【答案】D
【知识点】数据表、字段、记录的编辑
5．【答案】D
【知识点】声音素材的基本处理
6．【答案】C
【知识点】声音、图像、视频编码
7．【答案】B
【知识点】运算符、基本运算与表达式
8．【答案】A
【知识点】流程图识读
9．【答案】B
【知识点】循环结构语句及程序实现
10．【答案】C
【知识点】循环结构语句及程序实现；常用标准函数
11．【答案】C
【知识点】排序算法及程序实现
12．【答案】A
【知识点】查找算法及程序实现
13．【答案】（1）=E4*F4*10000
（2）C3， C38：C45
（3）A；C
【知识点】表格数据的处理与计算
14．【答案】（1）C；F
（2）0%；动画补间
（3）标题图层第48帧为空白关键帧(或者无内容)
（4）A；E
（5）gotoAndPlay( "new", 1) ；stopAllSounds( )：
【知识点】图层及图层的基本操作；动画的类型；常用影片控制函数的应用；声音同步属性设置
15．【答案】（1）C
（2）a(cnt)=a(cnt)*10+val (c)；a(j) > a(j+1)；b(Min) = b(i)
（3）for j=i+1 to cnt-1
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；排序算法及程序实现
16．【答案】（1）2
（2）add(a, b, c, d)；s=""；flag((i - 1) * n+ y2+1) = flag((i-1)*n+y2+1)- 1
【知识点】常见数据类型、数组；分支结构语句及程序实现；循环结构语句及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1登录二一教育在线组卷平台 助您教考全无忧
浙江省金华十校2022届高三下学期4月模拟考试信息技术试卷
一、选择题(本大题共12小题，每小题2分，共24分)
1．（2022·金华模拟）很多学校开设了在线课程，老师通过网络与学生互动、直播上课。从信息和信息处理的角度分析，以下说法正确的是( )
A．摄像头采集教师上课的实况，实现了“数模转换"
B．老师可以同时给全班同学上网课，体现了信息可以共享的特性
C．网络直播授课可以脱离线下的“教室"，这说明了信息的传播可以脱离载体
D．网课平台会自动记录每个同学学习的时长并生成统计报表，这是一种人工智能技术
【答案】B
【知识点】信息及其特征
2．（2022·金华模拟）下列关于网页和网络测览器的说法正确的是( )
A．使用搜索引擎查询，也会搜索到一些虚假的信息，用户需要辨别真伪
B．网页文件可以使用记事本编辑，编辑后的网页必定是txt格式
C．保存网页时选择“网页，仅HTML(<*．htm； *．html)”不能保存超链接
D．浏览器与web服务器之间进行传输网页数据使用SMTP协议
【答案】A
【知识点】信息来源的选择与判断；网络协议；网络资源的类型、下载与保存
3．（2022·金华模拟）某十进制偶数n对应的二进制数据为x，下列说法正确的是( )
A．n+1转换为二进制数后，位数可能比x多
B．nmod4的结果一定与x的最右侧两位等值
C．n转化为十六进制数最低位一定等于0
D．x中1的个数一定比0的个数多
【答案】B
【知识点】进制及数制转换
4．（2022·金华模拟）用Access软件设计数据库，存储疫苗接种相关信息，其中已建好的“已接种人员信息"数据表用于存储如图所示的数据，其中“接种编号”的前4位表示年份。
接种编号 疫苗厂家 疫苗批号 接种日期 接种间隔 是否需要补种
2021 1201 北京生物 202008092 2021.11.12 10 是
2021 1202 北京生物 202008098 2021.12.21 15 否
2021 1203 北京生物 202008092 2021.12.10 20 否
…… …… …… …… …… ……
下列关于“已接种人员信息”数据表的描述，正确的是( )
A．一个数据表就是一个数据库文件，该表文件名为“已接种人员信息.accdb”
B．“接种编号”字段设置为“自动编号”类型最合适
C．“是否需要补种”字段的数据类型一定是“是/否”
D．图中6个字段均可设置为“文本”类型
【答案】D
【知识点】数据表、字段、记录的编辑
5．（2022·金华模拟）使用GoldWave软件编辑某音频文件，部分界面如图所示。下列说法正确的是( )
A．当前声音文件采用Wave格式，是一种无损压缩音频格式
B．当前声音文件的存储容量约为6.4MB
C．当前状态下，执行“删除”命令后右声道的第14~19 秒将出现静音
D．执行“插人静音”命令，当前状态下插人15秒静音，文件播放时有一段静音
【答案】D
【知识点】声音素材的基本处理
6．（2022·金华模拟）一段未经压缩的AVI格式无声视频参数为：每帧画面为1024*768像素、16位色，PAL制式(25fps) ，若视频文件为375MB，则该视频的时长约为( )
A．2秒 B．8秒 C．10秒 D．15秒
【答案】C
【知识点】声音、图像、视频编码
7．（2022·金华模拟）若xy都是正整数且x mod y = 3，则下列表达式的值一定为True是( )
A．x-y=3 B．x/yy D．xmod3=0
【答案】B
【知识点】运算符、基本运算与表达式
8．（2022·金华模拟）某算法的部分流程图如第8题图所示。输出g的值是( )
A．-9 B．-3 C．18 D．63
【答案】A
【知识点】流程图识读
9．（2022·金华模拟）有如下VB程序段：
s= "Jinhua2022": t="": i= 1
Do While i< Len(s)
c=Mid(s,i,1)：d=Mid(s,i+1,1)
If c <= d Then t=t+ c
Else t=t+d
i=i+2
Loop
Label1.Caption = t
执行该程序段后，标签Label1中显示的内容是( )
A．iha22 B．Jha02 C．Jna02 D．ihu22
【答案】B
【知识点】循环结构语句及程序实现
10．（2022·金华模拟）有如下VB程序段：
i =1
Do While i<=5
a(i)= Int(Rnd*10)*2 + 1
If Not flag(a(i)) Then flag(a(i))=True
i= i + 1
Loop
已知数组flag各元素的初值为False，运行以上程序段程序，数组元素a(1)到a(5)的值可能为( )
A．3 9 16 15 11 B．5 7 9 7 13
C．9 3 7 1 15 D．9 17 5 21 1
【答案】C
【知识点】循环结构语句及程序实现；常用标准函数
11．（2022·金华模拟）有如下VB程序段：
i =1
Do While i<=5
If i=0 or a(i-1) >= a(i) Then
i=i+1
Else
t = a(i) : a(i) = a(i-1) : a(i-1) = t
i=i-1
End If
Loop
For i =0to5
List1.additem str(a(i))
Next i
数组元素a(0)到a(5)的值依次为“10，77，22，47，79，26”，该程序段运行后，数组元素a(4)的值为( )
A．10 B．77 C．22 D．47
【答案】C
【知识点】排序算法及程序实现
12．（2022·金华模拟）某对分查找算法的VB程序段如下：
Key = Val(Text1.Text)
c=0：i=1：j=10
Do While i<=j
m=(i+j)\2
c=c+1
If key >= a(m) Then i=m+1 Else j=m-1
Loop
Text2.Text = Str(c)
数组a(1)到a(10)的值依次为“10，15，15，25，27，28，33，35，36，56”，执行该程序段后，文本框Text2中显示的值为3，则key值可能是( )
A．10 B．15 C．28 D．36
【答案】A
【知识点】查找算法及程序实现
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2022·金华模拟）某同学收集了1980-2021 年浙江省学校教师负担学生数相关信息，并用Excel软件进行数据处理，如图a所示。请回答下列问题：
（1）将D4单元格公式粘贴到G4单元格计算出中等学校学生总数，则G4单元格公式为 。
（2）为了更加直观地比较2014-2021年高等学校“平均每个教师负担学生人数”的变化情况，建立如图b所示的图表。则生成该图表的数据区域是 。
（3）若要整理高等学校“平均每个教师负担学生人数”大于5.0的年份的信息，下列说法正确的是 (多选，填字母)。
A．将表中A4：G45中数据，以列C为关键字降序排序，可自上而下选取C列中大于5.0的记录
B．对表格中C列数据进行筛选，在如图c搜索框中输入“>5.0”
C．对表格中C列数据进行筛选，自定义筛选条件为“大于5.0”
D．若在C列设置筛选条件“大于5.0”，图b所示的图表将发生变化
【答案】（1）=E4*F4*10000
（2）C3， C38：C45
（3）A；C
【知识点】表格数据的处理与计算
14．（2022·金华模拟）制作“香浓奶茶"多媒体广告，首先在Photoshop软件中制作效果图，然后在Flash软件中制作动画，相关界面如下所示，请回答以下问题。
（1）如图a所示，在photoshop软件中制作广告效果图，其中“奶茶“的画面区域已经建立了选区，以下说法正确的是 。(多选，填字母)
A．“标题”图层与“文字”图层设置了相同的图层样式
B．当前状态下，选中“背景”图层，可以直接为整个背景画面设置滤镜效果
C．当前状态下，无法使用“自由变换”命令修改“标题”图层的字体大小
D．“标题”图层与“奶茶”选区没有重叠部分，“投影”效果不可见
E．“奶茶”与“文字”图层锁定，无法使用“图像大小”命令调整图像
F．当前状态下，有4个图层可以设置滤镜效果
（2）根据制作脚本，“标题”图层要实现“标题文字从完全透明到完全显示，停留一段时间后再“淡出”的效果，则标题图层第1帧中的标题文字实例的Alpha属性值应设置为 ，第1-20帧的补间类型为 。
（3）测试影片，发现“标题”图层第48-80帧未能实现淡出效果，根据图b分析，其原因可能是 。
（4）结合图b，以下说法正确的是 (多选，填字母)
A．“背景”图层第80帧执行“清除关键帧”操作可使背景画面从头到尾一直显示
B．“按钮"图层第1帧移至第80帧，按钮将在场景结束时才出现，不改变其它动画效果
C．“奶茶”图层的动画为“逐帧动画”
D．“音乐”图层的声音同步属性设置为“数据流”或“事件”，播放效果无异
E．若将影片的帧频调整为10fps，声音的播放速度不会改变
F．“按钮”图层第80帧的动作脚本可能是on(press){stop()；}
（5）点击“新品上新”按钮，跳转到“new”场景第1帧播放，并停止音乐的播放，则在该按钮上设置的动作脚本为on(press){ }。
【答案】（1）C；F
（2）0%；动画补间
（3）标题图层第48帧为空白关键帧(或者无内容)
（4）A；E
（5）gotoAndPlay( "new", 1) ；stopAllSounds( )：
【知识点】图层及图层的基本操作；动画的类型；常用影片控制函数的应用；声音同步属性设置
15．（2022·金华模拟）某校要举行国际象棋比赛，计划组织k场对弈。每个人最多参加2场对弈，最少参加0场对弈。每个人都有一个与其他人不相同的等级(用一个正整数来表示)。在对弈中，等级高的人用黑色的棋子，等级低的人用白色的棋子。每个人最多只能用一次黑色的棋子和一次白色的棋子。为增加比赛的可观度，观众希望k场对弈中双方的等级差的总和最小。
比如有7个选手，他们的等级分别是30，17，26，41，19，38，18，要进行3场比赛。最好的安排是选手2对选手7，选手7对选手5，选手6对选手4。此时等级差的总和等于(18-17)+(19-18)+(41-38)=5达到最小。
窗体form1的运行界面如下图所示，用户在文本框Text1中输入各位选手的等级(以逗号分隔)，在文本框Text2中输人要对弈的场数k，单击计算按钮Commmand1，在文本框Text3中显示最小等级差总和。程序运行界面如图所示。
（1）若要使得的在程序启动时文本框text1中内容自动清空，可在以下哪个事件处理过程中编写代码实现 (选填)
A．form1_load() B．Text1 _Change()
C．form_load() D．text1_load()
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Dim a(0 To 1000) As Integer
Dim b(0 To 1000) As Integer
Private Sub Command1_ Click()
Sum=0
k = Val(Text2. Text)
s =Text1. Text
cnt =1
For i=1 To Len(s)
c=mid(s, i, 1)
If
c="," Then cnt=cnt+1 Else
Next i
For i=1 To cnt-1
For j=1 To cnt-i
If Then
t =
a(j): a(j) = a(j+ 1): a(j+1)= t
End
If
Next
j
Next i
'计算出各等级选手之间差值
For i=1To cnt- 1
b(i)=a(i+1)-a(i)
Next i
For i=1 To k
Min=i
If b(j) < b(Min) Then Min = j
Next j
Sum = Sum + b(Min)
Next i
Text3. Text = Str(Sum)
End Sub
（3）加框处的程序代码有错，应改为 。
【答案】（1）C
（2）a(cnt)=a(cnt)*10+val (c)；a(j) > a(j+1)；b(Min) = b(i)
（3）for j=i+1 to cnt-1
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；排序算法及程序实现
16．（2022·金华模拟）张老师在筹备一次班级活动，活动的场地可以看成由m*n个小方格组成的矩阵(m，n<=100)，由于活动需要，计划给这个场地铺上红地毯。当前的地毯都是矩形的，但是大小不一每块地毯铺设位置由左上角(x1，y1)和右下角(x2，y2)两个坐标确定，且刚好铺满该矩形区域。
张老师想了解每个小方格被多少块地毯覆盖，以便更好地调整地毯铺设位置，他编写了VB程序，实现以下功能：在文本框Text1中输人行数m，在文本框Text2中输入列数n，在Text3中输入每块地毯铺设的坐标x1，y1，x2，y2……坐标之间逗号分隔，地毯数量不超过100)，单击计算按钮Commmand1，在列表框List1中显示每个小方格被多少块地毯覆盖。程序运行界面如图所示。
（1）文本框Text1中输人行数为5，在文本框Text2中输人列数5，在Text3中输人的地毯铺设的坐标为s=1，1，2，2，1，2，3，3则最后输出矩阵a(7)的值为 。 (填数字)
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Dim m As Integer
Dim n As Integer
Dim a, b, C, d As Integer
Dim flag(0 To 10000) As Integer
Dim sum(0 To 10000) As Integer
Dim pos(0 To 100) As Integer
Private Sub Command1_Click()
List1. Clear
m = Val(Text1. Text)
n = Val(Text2. Text)
s = Text3. Text
'读取每块地毯坐标,并按顺序存储在pos数组中
'地毯总数量存储在变量k中
For i=1 To k
a= pos(i * 4- 3)：b= pos(i * 4- 2)：c= pos(i * 4- 1)：d= pos(i * 4)
Next i
For i=1 To m
For
j=1 To n
sum((i- 1) *n+ j) = sum((i- 1) * n+ j- 1) +
flag((i- 1)*n+ j)
s=s+Str(sum((i-1)*n+j))
Next j
List1. AddItem s
Next i
End Sub
Sub add (ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer,
ByVal y2 As Integer)
'按行标记地毯铺设情况
For i=x1 To x2
flag((i - 1) * n + y1) =
flag((i- 1)*n+y1) + 1
Next i
End Sub
【答案】（1）2
（2）add(a, b, c, d)；s=""；flag((i - 1) * n+ y2+1) = flag((i-1)*n+y2+1)- 1
【知识点】常见数据类型、数组；分支结构语句及程序实现；循环结构语句及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1
