登录二一教育在线组卷平台 助您教考全无忧
浙江省普通高校招生2022年6月信息技术选考试卷
一、选择题（本大题共12小题，每小题2分，共24分。）
1．（2022·浙江）下列关于信息安全的说法，不正确的是（ ）
A．登录系统时进行刷脸认证，其作用是防止未经授权用户使用相关信息
B．泄漏的个人隐私信息可能被用于“量身定做”的精准诈骗
C．计算机磁盘中出现了很多来历不明的文件，可能是感染了病毒
D．接收好友发来的电子邮件，运行附件中的程序是安全的
2．（2022·浙江）下列关于网页和浏览器的说法，正确的是（ ）
A．网页中的图像、超链接等元素是由HTTP进行描述的
B．可以用搜索引擎根据关键字检索网页信息
C．通过网页中超链接访问的资源均为网页
D．将某网页的URL添加到收藏夹后，再次启动浏览器将自动访问该网页
3．（2022·浙江）小明开发“在线学习系统”，为学生提供在线选课和学习服务。使用Access软件设计该系统的数据库，部分界面如图所示。
下列说法正确的是（ ）
A．“在线学习系统”是数据库管理系统
B．在当前数据库中不能创建新的数据表
C．“学号”字段的数据类型不可能为“自动编号”
D．“考核”字段名称改为“是否通过”，该字段数据会丢失
4．（2022·浙江）下列关于信息编码的说法，正确的是（ ）
A．十进制数36转换为二进制数后，该二进制数中1的个数为4
B．二进制整数最右边增加1位后，奇偶性不会发生变化
C．某字符的ASCII码十六进制表示为74，在计算机中存储为二进制编码01110100
D．扫描某文字稿生成只有黑、白两种颜色的图像，每个像素至少用两位二进制数编码
5．（2022·浙江）使用GoldWave软件录制并编辑某音频文件，部分界面如图所示。
下列关于该音频的说法，正确的是（ ）
A．每个采样点量化值的编码长度为24字节
B．设置“淡出”效果可能会减少该音频的量化位数
C．删除选中部分后直接保存，其存储容量变为原来的1/2
D．另存为“旁白．mp3”文件的过程中采用了有损压缩编码方法
6．（2022·浙江）一个时长为80秒、2048×1080像素、24位色、25帧/秒的未经压缩的AVI格式无声视频文件，其存储容量约为（ ）
A．506.3MB B．1.5GB C．12.4GB D．98.9GB
7．（2022·浙江）下列VB表达式中，值最大的是（ ）
A．Asc("F")-Asc("A") B．Sqr(20)
C．Rnd( )*5 D．Len("2022")
8．（2022·浙江）某算法的部分流程图如图所示，若输入n的值为17879，则输出s的值是（ ）
A．42 B．60 C．68 D．78
9．（2022·浙江）某排序算法的VB程序段如下：
‘读取n个整数，依次存入a（1）到a（n）中，代码略
For i=1 To n - 1
For j=n To i+ 1 Step -l
If a(j)>a(j-1) Then t=a(j) : a(j)=a(j-1) : a(j-1)=t
Next j
Next i
执行上述程序段，下列说法正确的是（ ）
A．交换过位置的数据，可能会再回到其初始位置
B．执行完成后，数组元素a(1)到a(n)从小到大排列
C．若n为5，整个排序过程总的比较次数是20
D．整个排序过程总的交换次数至少为1
10．（2022·浙江）数组元素a（1）到a（n*2）为互不相等的正整数（n≥1），要在其中找到最大值和次大值，并分别存储到变量m1和m2中。实现该功能的VB程序段如下：
m1=0：m2=0
For i=1 To n * 2 Step 2
If a（i）>a（i＋1）Then
t1=a（i）：t2=a（i＋1）
Else
t1=a（i＋1）：t2=a（i）
End If
If Then
m1=t1：m2=t2
ElseIf Then
m2=m1：m1=t1
ElseIf Then
m2=t1
End If
Next i
上述程序段中方框处可选代码为：①t1>m1 ②t1>m2 ③t2>m1
则（1）（2）（3）处代码依次为（ ）
A．①②③ B．②③① C．③①② D．③②①
11．（2022·浙江）有如下VB程序段：
k=3 : sum=0 : j=0 : c=0
For i=1 To Len（s）
ch=Mid（s, I, 1）
If ch >= "0"And ch<= "9" Then
c=c * 10+Val（ch）
j=j＋1
Else
If j=k Then sum=sum+c
j=0：c=0
End If
Next i
字符串s为“ab300cde2022fg002h”时，执行该程序段后，sum的值为（ ）
A．300 B．302 C．504 D．2324
12．（2022·浙江）有如下VB程序段：
n=6
For i=1 To n\2
flag=True : t=a(i+1)-a(1)
j=i+2
Do While j<=n And flag
If a(j)-a(j-i)=t Then j=j+1 Else flag=False
Loop
If j>n Then Exit For ‘Exit For表示退出循环
Next i
整型数组元素a（1）到a（6）的值依次为“3，x，11，14，19，22”，执行该程序段后，变量i的值为2，则x的值为（ ）
A．5 B．6 C．7 D．8
二、非选择题（本大题共4小题，其中第13小题4分，第14小题8分，第15小题7分，第16小题7分，共26分）
13．（2022·浙江）收集某校高二（7）班2022年4月校园消费数据，并使用Excel软件进行处理，如图a所示。
请回答下列问题：
（1）区域G4：I42的数据是通过公式计算得到的，在G4单元格中输入公式 ，然后使用自动填充功能完成区域G4：I42的计算。（提示：各项消费占比是指该学生相应项目的消费金额占该学生三项消费总金额的百分比）
（2）为直观反映该月高二（7）班校园各项消费的占比情况，根据图a中的数据制作的图表如图b所示。创建该图表的数据区域为D3：F3， 。
（3）对图a中的数据进行分析，下列说法正确的有 （多选，填字母）。
A．当前选中的单元格是通过合并区域A1：I1得到的，单元格名称为A1
B．设置区域F4：F42的单元格格式为“数值”、1位小数，区域I4：I42中数据会发生改变
C．以“性别”为男、“食堂消费”小于400进行筛选，可以找出该班食堂消费低于400元的男生
D．选中区域D3：I42，按“超市消费”降序排序后，该班超市消费金额最高的学生姓名显示在B4单元格中
14．（2022·浙江）小王创作主题为“冬奥会中的人工智能”的多媒体作品。首先使用Photoshop软件处理图像，然后使用Flash软件制作动画作品。请回答下列问题：
（1）处理图像的部分界面如图a所示。在当前状态下，下列操作可行的有______（多选，填字母）。
A．使用“矩形选框”工具选中文字“手语”并删除
B．使用“自由变换”命令对文字进行缩放和移动
C．选中“人物”图层并添加“光照效果”滤镜
D．选中“背景”图层并删除该图层
（2）制作动画作品的部分界面如图b所示，当前选中的内容是“冬奥会中的人工智能”。“标题”图层第1帧到第10帧的补间类型为 （选填：动画/形状）。“按钮”图层中的声音时长为7.5秒，同步属性为“数据流”，测试场景时该声音播放 秒。
（3）要使“主播”图层第1帧至第9帧显示内容与第10帧的相同，且保持其他动画效果不变，则在该图层可进行的操作是 。
（4）当前作品的部分交互要求为：“主交互”场景播放到最后一帧时停止；单击“AI主播”“AI裁判”按钮，分别跳转到“AI主播”“AI裁判”场景第1帧开始播放，播放到最后一帧（有关键帧）时返回并停止在“主交互”场景的最后一帧；单击“更多”按钮，在浏览器中打开同目录下的文件“more.htm”；单击“退出”按钮，关闭动画放映。下列操作中符合上述交互要求的有________（多选，填字母）。
A．在“AI主播”按钮上添加动作脚本on（release）{play（ ）；}
B．在“AI裁判”按钮上添加动作脚本on（release）{gotoAndPlay（1）；}
C．在“更多”按钮上添加动作脚本on（press）{getURL（"more. htm"）；}
D．在“退出”按钮上添加动作脚本fscommand（"quit"）；
E．在“AI主播”“AI裁判”场景最后一帧均添加动作脚本gotoAndStop（"主交互"，50）；
15．（2022·浙江）有m个人结伴旅行（m≤9，每个人用整数1～m编号）。期间既有全员参与的集体活动，也有自主参与的小团队活动。每项活动的消费由参与人平均分摊，其中一人先行垫付并记录。记录内容包括该项活动的人均消费金额（整数，单位：元）、参与人。每项活动的参与人用字符串表示，垫付人排在第1位。如“25134”表示2、5、1、3、4号参与该项活动，其中2号是垫付人。旅行结束后依据所有活动的消费记录进行结算：
1）计算每个人的应还款（应还款=应分摊的总金额-先行垫付的总金额）；
2）根据所有人的应还款数据计算转账明细（应还款为正的人转给应还款为负的人）。
根据上述要求编写VB程序，功能如下：运行程序，读取消费记录数据并在列表框List 1中显示。单击“结算”按钮Command 1，在列表框List 2中显示每个人的应还款，在列表框List 3中显示转账明细。程序运行界面如图所示。
（1）结合程序与界面可知，AddItem是List 2的 （单选，填字母：A .方法名/B .事件名/C .属性名）。
（2）实现上述功能的部分VB程序如下，请在划线处填入合适的代码。
Const
n=9, m=15
Dim
x(1 To n)As Integer ‘x(i)存储第i项消费记录的人均消费金额
Dim
a(1 To n)As String ‘a(i)存储第i项消费记录的参与人
Private
Sub Form_Load( )
‘读取所有消费记录，存入数组x和a中，并显示在列表框List 1中
‘代码略
End
Sub
Private
Sub Command1_Click( )
Dim i
As Integer, j As Integer, k As Integer, p As Integer
Dim c
As Integer, w As Integer, v As Integer
Dim b(1
To m)As Integer ‘保存应还款数据
For
i= 1 To m
b(i)=0
Next
i
For
i=1 To n ‘根据消费记录计算应还款
k=Len(a(i))
p=Val(Mid(a(i),
1, 1))
b(p)=b(p)-(k–1)*x(i)
For
j=2 To k
p=Val(Mid(a(i),
j, 1))
Next
j
Next
i
c=0
For
i=1 To m
List
2. AddItem Str(i)+“号”＋Str(b(i))
If b(i)>0
Then c=c+1
Next
i
i=1 :
j=1 ‘根据应还款数据计算转账明细
Do
While
Do
While b(i)<=0
i=i+1
Loop
Do
While b(j)>=0
j=j+1
Loop：
If
w>0 Then Else v =b(i)
b(i)=b(i)-v：b(j)=b(j)+v
List 3. AddItem Str(i)+“号->”＋Str(j)+“号 ”+Str(v)
If w<=0 Then c=c–1
Loop
End Sub
（3）程序中加框处代码有错，请改正。
16．（2022·浙江）有n个从小到大排列的正整数依次存储在数组a中，另有m（m小李为了解决该问题，首先结合数组a的有序性，找出a，b两个数组中要剔除的m个数据，再将数组b中保留的数据插入到数组a中。示例如下：
n=10，数组a：2，4，6，8，10，12，14，16，18，20 m=5，数组b：41，11，17，29，9 处理后的数组a：2，4，6，8，9，10，11，12，14，16
（1）若n=8，m=4，数组a的元素依次为“3，4，6，10，13，14，21，25”，数组b的元素依次为“3，18，7，15”，按上述要求剔除m个数据后，数组b中保留的数据个数为 个。
（2）实现上述功能的部分VB程序如下，请在划线处填入合适的代码。
Const
n=1000，m=50
Dim
a(1 To n)As Integer, b(1 To m)As Integer
Function
getImax(k As Integer)As Integer
‘在数组元素b(1)~b(k)中找出值最大的元素，返回其下标，代码略
End
Function
Private
Sub Commandl_Click( )
Dim i
As Integer, j As Integer, k As Integer
Dim
na As Integer, nb As Integer, imax As Integer, mean As Integer
‘读取数据分别存入数组a、b，代码略
na=n :
nb=m
imax=getImax(nb)
For
i=1 To m
If a(na)<=
Then
b(imax)=b(nb)
nb=nb-1
If
nb>0 Then imax=getImax(nb)
Else
na=na-1
End
If
Next
i
Do
While nb>0
i=1 :
j=na
imax=
getImax(nb)
Do
While i<=j
mean
=(i+j)\2
If
a(mean)Loop
For
k=na To 1 Step-1
Next
k
a(i+nb-1)=b(imax)
b(imax)=b(nb)
nb=nb-1
Loop
'输出数组a，代码略
End
Sub
答案解析部分
1．【答案】D
【知识点】个人信息及安全防范
【解析】
2．【答案】B
【知识点】浏览器；网络资源的检索
【解析】
3．【答案】C
【知识点】数据库、数据库系统及其特征；数据表、字段、记录的编辑
【解析】
4．【答案】C
【知识点】进制及数制转换；字符编码
【解析】
5．【答案】D
【知识点】声音素材的基本处理；声音、图像、视频编码
【解析】
6．【答案】C
【知识点】声音、图像、视频编码
【解析】
7．【答案】A
【知识点】运算符、基本运算与表达式
【解析】
8．【答案】B
【知识点】流程图识读
【解析】
9．【答案】A
【知识点】排序算法及程序实现
【解析】
10．【答案】A
【知识点】常见数据类型、数组；分支结构语句及程序实现；循环结构语句及程序实现
【解析】
11．【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
【解析】
12．【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
【解析】
13．【答案】（1）=D4/SUM($D4:$F4)或= D4/ ($D4+$E4+$F4)
（2）D43:F43
（3）A；C
【知识点】表格数据的处理与计算；数据分析
【解析】
14．【答案】（1）B；D
（2）形状；4
（3）将第10帧复制到第1帧 或 在第10帧执行复制帧，在第1帧执行粘贴帧
（4）A；C；E
【知识点】图片加工常用工具的使用；图层及图层的基本操作；常用影片控制函数的应用；声音同步属性设置
【解析】
15．【答案】（1）A
（2）b(p)= b(p)+x(i)；c>0；w=b(i)+b(j)
（3）v=b(i)-w 或v=-b(j) 或 v=Abs(b(j))
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；分支结构语句及程序实现；循环结构语句及程序实现
【解析】
16．【答案】（1）2
（2）b(imax)；a(k+nb)=a(k)；na=k 或 na=j 或na=i-1
【知识点】常见数据类型、数组；分支结构语句及程序实现；循环结构语句及程序实现
【解析】
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1登录二一教育在线组卷平台 助您教考全无忧
浙江省普通高校招生2022年6月信息技术选考试卷
一、选择题（本大题共12小题，每小题2分，共24分。）
1．（2022·浙江）下列关于信息安全的说法，不正确的是（ ）
A．登录系统时进行刷脸认证，其作用是防止未经授权用户使用相关信息
B．泄漏的个人隐私信息可能被用于“量身定做”的精准诈骗
C．计算机磁盘中出现了很多来历不明的文件，可能是感染了病毒
D．接收好友发来的电子邮件，运行附件中的程序是安全的
【答案】D
【知识点】个人信息及安全防范
【解析】
2．（2022·浙江）下列关于网页和浏览器的说法，正确的是（ ）
A．网页中的图像、超链接等元素是由HTTP进行描述的
B．可以用搜索引擎根据关键字检索网页信息
C．通过网页中超链接访问的资源均为网页
D．将某网页的URL添加到收藏夹后，再次启动浏览器将自动访问该网页
【答案】B
【知识点】浏览器；网络资源的检索
【解析】
3．（2022·浙江）小明开发“在线学习系统”，为学生提供在线选课和学习服务。使用Access软件设计该系统的数据库，部分界面如图所示。
下列说法正确的是（ ）
A．“在线学习系统”是数据库管理系统
B．在当前数据库中不能创建新的数据表
C．“学号”字段的数据类型不可能为“自动编号”
D．“考核”字段名称改为“是否通过”，该字段数据会丢失
【答案】C
【知识点】数据库、数据库系统及其特征；数据表、字段、记录的编辑
【解析】
4．（2022·浙江）下列关于信息编码的说法，正确的是（ ）
A．十进制数36转换为二进制数后，该二进制数中1的个数为4
B．二进制整数最右边增加1位后，奇偶性不会发生变化
C．某字符的ASCII码十六进制表示为74，在计算机中存储为二进制编码01110100
D．扫描某文字稿生成只有黑、白两种颜色的图像，每个像素至少用两位二进制数编码
【答案】C
【知识点】进制及数制转换；字符编码
【解析】
5．（2022·浙江）使用GoldWave软件录制并编辑某音频文件，部分界面如图所示。
下列关于该音频的说法，正确的是（ ）
A．每个采样点量化值的编码长度为24字节
B．设置“淡出”效果可能会减少该音频的量化位数
C．删除选中部分后直接保存，其存储容量变为原来的1/2
D．另存为“旁白．mp3”文件的过程中采用了有损压缩编码方法
【答案】D
【知识点】声音素材的基本处理；声音、图像、视频编码
【解析】
6．（2022·浙江）一个时长为80秒、2048×1080像素、24位色、25帧/秒的未经压缩的AVI格式无声视频文件，其存储容量约为（ ）
A．506.3MB B．1.5GB C．12.4GB D．98.9GB
【答案】C
【知识点】声音、图像、视频编码
【解析】
7．（2022·浙江）下列VB表达式中，值最大的是（ ）
A．Asc("F")-Asc("A") B．Sqr(20)
C．Rnd( )*5 D．Len("2022")
【答案】A
【知识点】运算符、基本运算与表达式
【解析】
8．（2022·浙江）某算法的部分流程图如图所示，若输入n的值为17879，则输出s的值是（ ）
A．42 B．60 C．68 D．78
【答案】B
【知识点】流程图识读
【解析】
9．（2022·浙江）某排序算法的VB程序段如下：
‘读取n个整数，依次存入a（1）到a（n）中，代码略
For i=1 To n - 1
For j=n To i+ 1 Step -l
If a(j)>a(j-1) Then t=a(j) : a(j)=a(j-1) : a(j-1)=t
Next j
Next i
执行上述程序段，下列说法正确的是（ ）
A．交换过位置的数据，可能会再回到其初始位置
B．执行完成后，数组元素a(1)到a(n)从小到大排列
C．若n为5，整个排序过程总的比较次数是20
D．整个排序过程总的交换次数至少为1
【答案】A
【知识点】排序算法及程序实现
【解析】
10．（2022·浙江）数组元素a（1）到a（n*2）为互不相等的正整数（n≥1），要在其中找到最大值和次大值，并分别存储到变量m1和m2中。实现该功能的VB程序段如下：
m1=0：m2=0
For i=1 To n * 2 Step 2
If a（i）>a（i＋1）Then
t1=a（i）：t2=a（i＋1）
Else
t1=a（i＋1）：t2=a（i）
End If
If Then
m1=t1：m2=t2
ElseIf Then
m2=m1：m1=t1
ElseIf Then
m2=t1
End If
Next i
上述程序段中方框处可选代码为：①t1>m1 ②t1>m2 ③t2>m1
则（1）（2）（3）处代码依次为（ ）
A．①②③ B．②③① C．③①② D．③②①
【答案】A
【知识点】常见数据类型、数组；分支结构语句及程序实现；循环结构语句及程序实现
【解析】
11．（2022·浙江）有如下VB程序段：
k=3 : sum=0 : j=0 : c=0
For i=1 To Len（s）
ch=Mid（s, I, 1）
If ch >= "0"And ch<= "9" Then
c=c * 10+Val（ch）
j=j＋1
Else
If j=k Then sum=sum+c
j=0：c=0
End If
Next i
字符串s为“ab300cde2022fg002h”时，执行该程序段后，sum的值为（ ）
A．300 B．302 C．504 D．2324
【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
【解析】
12．（2022·浙江）有如下VB程序段：
n=6
For i=1 To n\2
flag=True : t=a(i+1)-a(1)
j=i+2
Do While j<=n And flag
If a(j)-a(j-i)=t Then j=j+1 Else flag=False
Loop
If j>n Then Exit For ‘Exit For表示退出循环
Next i
整型数组元素a（1）到a（6）的值依次为“3，x，11，14，19，22”，执行该程序段后，变量i的值为2，则x的值为（ ）
A．5 B．6 C．7 D．8
【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
【解析】
二、非选择题（本大题共4小题，其中第13小题4分，第14小题8分，第15小题7分，第16小题7分，共26分）
13．（2022·浙江）收集某校高二（7）班2022年4月校园消费数据，并使用Excel软件进行处理，如图a所示。
请回答下列问题：
（1）区域G4：I42的数据是通过公式计算得到的，在G4单元格中输入公式 ，然后使用自动填充功能完成区域G4：I42的计算。（提示：各项消费占比是指该学生相应项目的消费金额占该学生三项消费总金额的百分比）
（2）为直观反映该月高二（7）班校园各项消费的占比情况，根据图a中的数据制作的图表如图b所示。创建该图表的数据区域为D3：F3， 。
（3）对图a中的数据进行分析，下列说法正确的有 （多选，填字母）。
A．当前选中的单元格是通过合并区域A1：I1得到的，单元格名称为A1
B．设置区域F4：F42的单元格格式为“数值”、1位小数，区域I4：I42中数据会发生改变
C．以“性别”为男、“食堂消费”小于400进行筛选，可以找出该班食堂消费低于400元的男生
D．选中区域D3：I42，按“超市消费”降序排序后，该班超市消费金额最高的学生姓名显示在B4单元格中
【答案】（1）=D4/SUM($D4:$F4)或= D4/ ($D4+$E4+$F4)
（2）D43:F43
（3）A；C
【知识点】表格数据的处理与计算；数据分析
【解析】
14．（2022·浙江）小王创作主题为“冬奥会中的人工智能”的多媒体作品。首先使用Photoshop软件处理图像，然后使用Flash软件制作动画作品。请回答下列问题：
（1）处理图像的部分界面如图a所示。在当前状态下，下列操作可行的有______（多选，填字母）。
A．使用“矩形选框”工具选中文字“手语”并删除
B．使用“自由变换”命令对文字进行缩放和移动
C．选中“人物”图层并添加“光照效果”滤镜
D．选中“背景”图层并删除该图层
（2）制作动画作品的部分界面如图b所示，当前选中的内容是“冬奥会中的人工智能”。“标题”图层第1帧到第10帧的补间类型为 （选填：动画/形状）。“按钮”图层中的声音时长为7.5秒，同步属性为“数据流”，测试场景时该声音播放 秒。
（3）要使“主播”图层第1帧至第9帧显示内容与第10帧的相同，且保持其他动画效果不变，则在该图层可进行的操作是 。
（4）当前作品的部分交互要求为：“主交互”场景播放到最后一帧时停止；单击“AI主播”“AI裁判”按钮，分别跳转到“AI主播”“AI裁判”场景第1帧开始播放，播放到最后一帧（有关键帧）时返回并停止在“主交互”场景的最后一帧；单击“更多”按钮，在浏览器中打开同目录下的文件“more.htm”；单击“退出”按钮，关闭动画放映。下列操作中符合上述交互要求的有________（多选，填字母）。
A．在“AI主播”按钮上添加动作脚本on（release）{play（ ）；}
B．在“AI裁判”按钮上添加动作脚本on（release）{gotoAndPlay（1）；}
C．在“更多”按钮上添加动作脚本on（press）{getURL（"more. htm"）；}
D．在“退出”按钮上添加动作脚本fscommand（"quit"）；
E．在“AI主播”“AI裁判”场景最后一帧均添加动作脚本gotoAndStop（"主交互"，50）；
【答案】（1）B；D
（2）形状；4
（3）将第10帧复制到第1帧 或 在第10帧执行复制帧，在第1帧执行粘贴帧
（4）A；C；E
【知识点】图片加工常用工具的使用；图层及图层的基本操作；常用影片控制函数的应用；声音同步属性设置
【解析】
15．（2022·浙江）有m个人结伴旅行（m≤9，每个人用整数1～m编号）。期间既有全员参与的集体活动，也有自主参与的小团队活动。每项活动的消费由参与人平均分摊，其中一人先行垫付并记录。记录内容包括该项活动的人均消费金额（整数，单位：元）、参与人。每项活动的参与人用字符串表示，垫付人排在第1位。如“25134”表示2、5、1、3、4号参与该项活动，其中2号是垫付人。旅行结束后依据所有活动的消费记录进行结算：
1）计算每个人的应还款（应还款=应分摊的总金额-先行垫付的总金额）；
2）根据所有人的应还款数据计算转账明细（应还款为正的人转给应还款为负的人）。
根据上述要求编写VB程序，功能如下：运行程序，读取消费记录数据并在列表框List 1中显示。单击“结算”按钮Command 1，在列表框List 2中显示每个人的应还款，在列表框List 3中显示转账明细。程序运行界面如图所示。
（1）结合程序与界面可知，AddItem是List 2的 （单选，填字母：A .方法名/B .事件名/C .属性名）。
（2）实现上述功能的部分VB程序如下，请在划线处填入合适的代码。
Const
n=9, m=15
Dim
x(1 To n)As Integer ‘x(i)存储第i项消费记录的人均消费金额
Dim
a(1 To n)As String ‘a(i)存储第i项消费记录的参与人
Private
Sub Form_Load( )
‘读取所有消费记录，存入数组x和a中，并显示在列表框List 1中
‘代码略
End
Sub
Private
Sub Command1_Click( )
Dim i
As Integer, j As Integer, k As Integer, p As Integer
Dim c
As Integer, w As Integer, v As Integer
Dim b(1
To m)As Integer ‘保存应还款数据
For
i= 1 To m
b(i)=0
Next
i
For
i=1 To n ‘根据消费记录计算应还款
k=Len(a(i))
p=Val(Mid(a(i),
1, 1))
b(p)=b(p)-(k–1)*x(i)
For
j=2 To k
p=Val(Mid(a(i),
j, 1))
Next
j
Next
i
c=0
For
i=1 To m
List
2. AddItem Str(i)+“号”＋Str(b(i))
If b(i)>0
Then c=c+1
Next
i
i=1 :
j=1 ‘根据应还款数据计算转账明细
Do
While
Do
While b(i)<=0
i=i+1
Loop
Do
While b(j)>=0
j=j+1
Loop：
If
w>0 Then Else v =b(i)
b(i)=b(i)-v：b(j)=b(j)+v
List 3. AddItem Str(i)+“号->”＋Str(j)+“号 ”+Str(v)
If w<=0 Then c=c–1
Loop
End Sub
（3）程序中加框处代码有错，请改正。
【答案】（1）A
（2）b(p)= b(p)+x(i)；c>0；w=b(i)+b(j)
（3）v=b(i)-w 或v=-b(j) 或 v=Abs(b(j))
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；分支结构语句及程序实现；循环结构语句及程序实现
【解析】
16．（2022·浙江）有n个从小到大排列的正整数依次存储在数组a中，另有m（m小李为了解决该问题，首先结合数组a的有序性，找出a，b两个数组中要剔除的m个数据，再将数组b中保留的数据插入到数组a中。示例如下：
n=10，数组a：2，4，6，8，10，12，14，16，18，20 m=5，数组b：41，11，17，29，9 处理后的数组a：2，4，6，8，9，10，11，12，14，16
（1）若n=8，m=4，数组a的元素依次为“3，4，6，10，13，14，21，25”，数组b的元素依次为“3，18，7，15”，按上述要求剔除m个数据后，数组b中保留的数据个数为 个。
（2）实现上述功能的部分VB程序如下，请在划线处填入合适的代码。
Const
n=1000，m=50
Dim
a(1 To n)As Integer, b(1 To m)As Integer
Function
getImax(k As Integer)As Integer
‘在数组元素b(1)~b(k)中找出值最大的元素，返回其下标，代码略
End
Function
Private
Sub Commandl_Click( )
Dim i
As Integer, j As Integer, k As Integer
Dim
na As Integer, nb As Integer, imax As Integer, mean As Integer
‘读取数据分别存入数组a、b，代码略
na=n :
nb=m
imax=getImax(nb)
For
i=1 To m
If a(na)<=
Then
b(imax)=b(nb)
nb=nb-1
If
nb>0 Then imax=getImax(nb)
Else
na=na-1
End
If
Next
i
Do
While nb>0
i=1 :
j=na
imax=
getImax(nb)
Do
While i<=j
mean
=(i+j)\2
If
a(mean)Loop
For
k=na To 1 Step-1
Next
k
a(i+nb-1)=b(imax)
b(imax)=b(nb)
nb=nb-1
Loop
'输出数组a，代码略
End
Sub
【答案】（1）2
（2）b(imax)；a(k+nb)=a(k)；na=k 或 na=j 或na=i-1
【知识点】常见数据类型、数组；分支结构语句及程序实现；循环结构语句及程序实现
【解析】
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1
