浙江省湖州市2021-2022学年高三上学期信息技术12月选考模拟（一）试卷
一、选择题（本大题共12小题，每小题2分，共24分。）
1．（2021·湖州模拟）下列有关信息与信息技术的说法，正确的是（ ）
A．无线网络传输数据不需要载体
B．过期的信息不具有任何价值
C．语言、文字与多媒体技术是比较重要的信息表达技术
D．OCR软件识别图像的过程属于信息的加工和处理
2．（2021·湖州模拟）关于网页与浏览器的说法，正确的是（ ）
A．网页由超文本标记语言（HTML）进行传输
B．搜索引擎一般包含两大核心技术：自动网页检索技术和全文检索技术
C．可以在收藏夹中创建多个文件夹，分门别类保存网页内容
D．在IE浏览器中，以“*.txt”类型保存网页，可以保存网页中的文字信息和超链接
3．（2021·湖州模拟）使用Access软件编辑某班级学生信息管理数据库，部分界面如图所示。
下列说法正确的是（ ）
A．在当前状态下，可直接修改表名为“学生信息”
B．“学号”数据的字段类型可以设置为“自动编号”
C．在“20180312”前添加一条学号为“20180311”的新记录
D．在设计视图下可以将“身份证号”字段设置为主键
4．（2021·湖州模拟）下列有关信息编码的说法，错误的是（ ）
A．十六进制数41H与十进制数65D的值相等
B．使用UltraEdit软件观察字符“挑战！”，其内码可能是“CC F4 D5 BD 21”
C．已知小写字母“a”的ASCII码值为61H，则大写字母“J”的ASCII码值为50H
D．十六进制EA30转换为二进制数后含有奇数个“1”卷
5．（2021·湖州模拟）用Photoshop软件制作“中国空间站”作品，部分编辑界面如图所示。
下列说法正确的是（ ）
A．可对“空间站”图层直接设置滤镜效果
B．“背景”图层的黑色部分可用橡皮擦擦除
C．执行“自由变换”命令，可调整“中国空间站”图层中文字的大小和位置
D．“中国空间站”图层设置了变形文字，因而不能再添加图层样式
6．（2021·湖州模拟）一幅未经压缩的2048×1536 像素、256级灰度的BMP图像另存为JPEG格式文件，存储后的JPEG文件存储容量约182KB，则BMP文件与JPEG文件的存储容量比约为（ ）
A．5:1 B．16:1 C．63:1 D．126:1
7．（2021·湖州模拟）VB表达式3^(-2)\2 + 6 Mod 3/3 的值是（ ）
A．5 B．1 C．0 D．－5
8．（2021·湖州模拟）某算法的部分流程图如图所示。执行这部分流程，则输出sum,a(i),i的值为（ ）
A．7,5,5 B．7,8,6 C．6,5,7 D．6,8,6
9．（2021·湖州模拟）有百位和个位未知的4位整数“3*9*”，能同时被37与12整除。以下VB程序段的功能是：在满足条件的所有数中，将最小一个4位数的百位与个位依次显示在文本框Text1中。
i = 0: flag = False
Do While i <= 9 And Not flag
For j = 0 To 9
flag = True
Exit For
End If
Next j
i = i + 1
Loop
方框中的代码由以下三部分组成：
①If s Mod 12 = 0 And s Mod 37= 0 Then
②s = 3 * 1000 + i * 100 + 9 * 10 + j
③Text1.Text = Str(i) + Str(j)
下列选项中代码顺序正确的是（ ）
A．②①③ B．②③① C．①②③ D．①③②
10．（2021·湖州模拟）某对分查找算法的VB程序如下：
i = 1: j = 20
m = (i + j + 1) \2
Do While i < j And Key <> a(m)
If a(m) > Key Then i = m+ 1 Else j = m -1
m = (i + j + 1) \2'①
Loop
数组元素a(1)到a(20)各不相同且按降序排列，若查找键key与a(4)相等，执行该程序段，①处语句的执行次数有（ ）
A．5 B．4 C．3 D．2
11．（2021·湖州模拟）有如下VB程序段：
s = "ABCDEF"
For i = 1 To Len(s)
a = Int(Rnd * 3 + 1)
b = Mid(s, a Mod 6 + 1, 1)
ch = ch + Chr(Asc(b) + 32)
Next i
执行该程序后，变量ch的值可能是（ ）
A．Dccebd B．Bdbfbd C．Ddcefb D．Bdddbc
12．（2021·湖州模拟）如下VB程序段实现对数组元素a(1)到a(n)从小到大排序。
For i = 1 To n -1
①
For j = i To n-1
If a(j) < a(k) Then k = j卷（信息技术）（一） 第4页（共 8 页）
Next j
s = a(i): a(i) = a(k): a(k) = s
Next i
则代码①中的语句为（ ）
A．k=n B．k=n-1 C．k=i D．k=i -1
二、非选择题（本大题共4小题，4+8+7+7，共26 分）
13．（2021·湖州模拟）收集某地农产品市场价格表，并用Excel软件进行数据处理，如图a所示。
请回答下列问题：
（1）区域H4:H30的数据是通过公式计算得到的，在H4单元格中输入公式 ，再使用自动填充功能完成区域H5:H30的计算。
（2）对区域A3:I30进行相关数据分析，下列说法正确的是 （多选，填字母）。
A．更新F列数据，H列数据会随之改变
B．C6单元格与D6单元格内的实际数值可能不相同
C．为了找出农产品市场平均价中价格最高的肉蛋类，可先对“类别”进行筛选，选择值为“肉蛋类”，再对“农产品市场平均价”进行降序排序，选取排在最前面的肉蛋类
D．为了将农产品市场平均价中价格最高的肉蛋类显示在当前工作表第4行，可选择类别为主要关键字，农产品市场平均价为次要关键字均按降序排序
E．为了显示农产品市场平均价中价格最高的3种蔬菜，可先对“类别”进行筛选，选择值为“蔬菜类”，再对“农产品市场平均价”进行筛选，选择“10个最大的值”并显示最大的3项
（3）对图a中数据进行相关统计，结果放在新工作表中，如图b所示。根据图b中的数据制作的图表如图c所示。创建该图表的数据区域是 ,E7:G11。
14．（2021·湖州模拟）使用Flash软件创作“江山”多媒体作品，部分编辑界面如图a所示。
请回答下列问题：
（1）在创作之前进行的作品设计，下列说法正确的是 （多选，填字母）。
A．了解用户的计算机应用水平，属于作品的创作需求分析
B．根据主题思想和内容，制订作品的脚本大纲，属于应用需求分析
C．要了解整个作品的组成部分、工作流程和主要界面，可查阅其系统结构设计
D．文字脚本可以作为多媒体作品制作的直接依据
E．将所需的素材列成表格，确定获取原始素材的方式，属于媒体元素分解
（2）测试影片时，动画播放到第1帧自动停止，同时“BGM”图层音乐不播放，结合图b，则“按钮”图层第1帧的动作脚本是 。
（3）“文字”图层第40帧中仅有的对象为形状，第20帧已设置形状补间。测试场景时，第20帧到第40帧没有实现从“人民就是江山”渐变为“江山就是人民”的效果，原因是 。
（4）测试场景时发现背景图片播放到中间时出现1秒的空白，为了使该空白消失（第1帧和第37帧内容相同），同时保持其他动画不变，下列操作方法可行的是 （多选，填字母）。
A．选中该图层第25帧到第36帧执行“删除帧”操作
B．选中该图层第25帧执行“清除关键帧”操作
C．将该图层第37帧移动到第25帧
D．选中该图层第1帧中的内容，复制后粘贴到第25帧
E．选中该图层第24帧执行“插入关键帧”操作
15．（2021·湖州模拟）某志愿服务APP用于整理浙江省内各城市志愿者服务工作情况，每个志愿者的数据用一个长度为8的字符串表示，例如“6 YFH 5 ”，6表示城市序号，YFH为志愿者姓名字母编写，5为参加志愿者服务次数。整理要求：先按城市序号从小到大排列；然后，同一城市的志愿者按参加志愿服务的次数降序排列。按上述要求，编写VB程序，功能如下：在列表List1中显示整理前的数据，单击“整理”按钮Command1，整理结果显示在列表框List2中，程序运行界面如图所示。
（1）在VB表达式Command1_Click()中，Command1、Click、Command1_Click()依次表示 （单选，填字母：A .方法名、属性名、事件名/B .对象名、事件名、事件处理过程名/C .函数名、对象名、方法名）
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const nc=10 '城市数
Const n=200000'志愿者总人数
Dim a(1 To n) As String'存储志愿者数据
Private Sub Form_Load()
'本过程读取志愿者数据，存入数组a并显示在列表框List1中，代码略
End Sub
Private Sub Command1_Click()
Dim city(1 To n) As Integer,pname(1 To n) As String,cs(1 To n) As Integer
Dim t As Integer,t1 As String
Dim b(1 To nc) As Integer '存储每个城市的报名人数
Dim index(1 To n) As Integer '定义索引数组
For i = 1 To n
city(i) = Val(Mid(a(i), 1, 1))
pname(i) =
cs(i) = Val(Mid(a(i), 7))
Next i
i = 1 '按城市序号升序排序
Do While i < n
k = i: i = n
For j = n To k + 1 Step -1
If city(j) < city(j -1) Then
t = city(j): city(j) = city(j -1): city(j -1) = t
t1= pname(j): pname(j) = pname(j -1): pname(j -1) = t1
t = cs(j): cs(j) = cs(j -1): cs(j -1) = t
End If
Next j
Loop
For i = 1 To n
index(i) = i
Next i
pos = 1 '相同城市志愿者按服务次数降序排序
For i = 1 To nc
For j = pos To pos + b(i) -2
k = j
For p = j + 1 To
If cs(index(p)) > cs(index(k)) Then k = p
Next p
t = index(j): index(j) = index(k): index(k) = t
Next j
pos = pos + b(i)
Next i
'最终结果显示在列表框List2中，代码略
End Sub
（3）程序中加框处代码有错，请改正。
16．（2021·湖州模拟）某校内活动需要n（1≤n≤10）名学生迎宾，要求是：男女生站成一排，男生不能相邻，男女生比例大于1/2。考虑到方案只包含了男和女两种情况，可以用二进制的0来代替女生，1来代替男生。当全部是0时最小，此数为0；当全部是1时最大。枚举从0到最大数的每一种情况，逐一判断是否包含男生相邻（二进制1相连），符合的0、1转换为女、男后输出，并在此基础上输出男女生比例较合适的方案（男:女>1/2）。
按上述要求，编写VB程序，功能如下：在文本框Text1中输入n的值，点击“开始枚举”按钮Command1，在列表框List1中输出所有方案，在列表框List2中输出比例合适方案。
实现上述功能的VB程序如下，回答下列问题：
（1）如果输入的n值等于4，那么男女比例合适的方案有 种。
（2）请在划线处填入合适的代码。
Dim n As Integer, Getstr As String
Private Sub Command1_Click()
Dim i As Integer, j As Integer, mAs Integer
n = Val(Text1.Text)
Getstr = ""
For i = 0 To 2 ^ n -1
m = i
If Then
For j = 1 To n
If m Mod 2 = 0 Then
Getstr = "女" + Getstr
Else
Getstr = "男" + Getstr
End If
m = m \2
Next j
List1.AddItem Getstr
If Team(Getstr) <> "" Then List2.AddItem (Team(Getstr))
Getstr =""
End If
Next i
End Sub
Function search(i As Integer) As Boolean '判读男生是否相邻
Dim j As Integer，t As Integer
Dim a(1 To 15) As Integer
t = i
For j = 1 To n
a(j) = t Mod 2
t = t \2
Next j
flag = True
For k = 1 To n -1
If Then flag = False: Exit For
Next k
search = flag
End Function
Function Team(ch As String) As String '判读男女生比例是否合适
Dim num As Integer, st As Integer, i As Integer，c(0 To 1) As Integer
Team = “”
For i = 0 To 1
c(i) = 0
Next i
For i = 1 To n
st= Mid(ch, i, 1)
If st= "男" Then num=1: c(num)= c(num)+1 Else num =0: c(num)= c(num)+1
Next i
If Then Team = ch
End Function
答案解析部分
1．【答案】D
【知识点】信息及其特征；信息表达方式与表达技术
2．【答案】B
【知识点】网络资源的类型、下载与保存；浏览器；网络资源的检索；网页、网站的概念与联系
3．【答案】D
【知识点】数据表、字段、记录的编辑；字段的数据类型
4．【答案】C
【知识点】进制及数制转换；字符编码
5．【答案】C
【知识点】图层及图层的基本操作
6．【答案】B
【知识点】声音、图像、视频编码
7．【答案】C
【知识点】运算符、基本运算与表达式
8．【答案】A
【知识点】流程图识读
9．【答案】A
【知识点】循环结构语句及程序实现
10．【答案】B
【知识点】查找算法及程序实现
11．【答案】D
【知识点】循环结构语句及程序实现；常用标准函数
12．【答案】A
【知识点】排序算法及程序实现
13．【答案】（1）AVERAGE(C4:D4) 或=(C400)/2
（2）B；C
（3）B3,.B7:B11, EB3:03
【知识点】表格数据的处理与计算；数据分析
14．【答案】（1）C；E
（2）stop ( ):stopA11Sounds( );
（3）“文字”阳层第20帧中的对象没有分离成形状
（4）B；C；D
【知识点】多媒体作品的规划和设计；时间轴、帧、图层、库的概念及基本操作；常用影片控制函数的应用
15．【答案】（1）B
（2）Mid(a(i), 3, 3)；i=j；pos+b(i)-1
（3）b(city(i)) = b(city(i)) + 1
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；排序算法及程序实现
16．【答案】（1）3
（2）search(i)；a(k) =a(k+1) Anod a(k)= 1或其他合理答案；2*c(1)>c(0) 或c(1)/c(0)>1/2 或c(1)/c(0)>0.5
【知识点】枚举算法及程序实现
1 / 1浙江省湖州市2021-2022学年高三上学期信息技术12月选考模拟（一）试卷
一、选择题（本大题共12小题，每小题2分，共24分。）
1．（2021·湖州模拟）下列有关信息与信息技术的说法，正确的是（ ）
A．无线网络传输数据不需要载体
B．过期的信息不具有任何价值
C．语言、文字与多媒体技术是比较重要的信息表达技术
D．OCR软件识别图像的过程属于信息的加工和处理
【答案】D
【知识点】信息及其特征；信息表达方式与表达技术
2．（2021·湖州模拟）关于网页与浏览器的说法，正确的是（ ）
A．网页由超文本标记语言（HTML）进行传输
B．搜索引擎一般包含两大核心技术：自动网页检索技术和全文检索技术
C．可以在收藏夹中创建多个文件夹，分门别类保存网页内容
D．在IE浏览器中，以“*.txt”类型保存网页，可以保存网页中的文字信息和超链接
【答案】B
【知识点】网络资源的类型、下载与保存；浏览器；网络资源的检索；网页、网站的概念与联系
3．（2021·湖州模拟）使用Access软件编辑某班级学生信息管理数据库，部分界面如图所示。
下列说法正确的是（ ）
A．在当前状态下，可直接修改表名为“学生信息”
B．“学号”数据的字段类型可以设置为“自动编号”
C．在“20180312”前添加一条学号为“20180311”的新记录
D．在设计视图下可以将“身份证号”字段设置为主键
【答案】D
【知识点】数据表、字段、记录的编辑；字段的数据类型
4．（2021·湖州模拟）下列有关信息编码的说法，错误的是（ ）
A．十六进制数41H与十进制数65D的值相等
B．使用UltraEdit软件观察字符“挑战！”，其内码可能是“CC F4 D5 BD 21”
C．已知小写字母“a”的ASCII码值为61H，则大写字母“J”的ASCII码值为50H
D．十六进制EA30转换为二进制数后含有奇数个“1”卷
【答案】C
【知识点】进制及数制转换；字符编码
5．（2021·湖州模拟）用Photoshop软件制作“中国空间站”作品，部分编辑界面如图所示。
下列说法正确的是（ ）
A．可对“空间站”图层直接设置滤镜效果
B．“背景”图层的黑色部分可用橡皮擦擦除
C．执行“自由变换”命令，可调整“中国空间站”图层中文字的大小和位置
D．“中国空间站”图层设置了变形文字，因而不能再添加图层样式
【答案】C
【知识点】图层及图层的基本操作
6．（2021·湖州模拟）一幅未经压缩的2048×1536 像素、256级灰度的BMP图像另存为JPEG格式文件，存储后的JPEG文件存储容量约182KB，则BMP文件与JPEG文件的存储容量比约为（ ）
A．5:1 B．16:1 C．63:1 D．126:1
【答案】B
【知识点】声音、图像、视频编码
7．（2021·湖州模拟）VB表达式3^(-2)\2 + 6 Mod 3/3 的值是（ ）
A．5 B．1 C．0 D．－5
【答案】C
【知识点】运算符、基本运算与表达式
8．（2021·湖州模拟）某算法的部分流程图如图所示。执行这部分流程，则输出sum,a(i),i的值为（ ）
A．7,5,5 B．7,8,6 C．6,5,7 D．6,8,6
【答案】A
【知识点】流程图识读
9．（2021·湖州模拟）有百位和个位未知的4位整数“3*9*”，能同时被37与12整除。以下VB程序段的功能是：在满足条件的所有数中，将最小一个4位数的百位与个位依次显示在文本框Text1中。
i = 0: flag = False
Do While i <= 9 And Not flag
For j = 0 To 9
flag = True
Exit For
End If
Next j
i = i + 1
Loop
方框中的代码由以下三部分组成：
①If s Mod 12 = 0 And s Mod 37= 0 Then
②s = 3 * 1000 + i * 100 + 9 * 10 + j
③Text1.Text = Str(i) + Str(j)
下列选项中代码顺序正确的是（ ）
A．②①③ B．②③① C．①②③ D．①③②
【答案】A
【知识点】循环结构语句及程序实现
10．（2021·湖州模拟）某对分查找算法的VB程序如下：
i = 1: j = 20
m = (i + j + 1) \2
Do While i < j And Key <> a(m)
If a(m) > Key Then i = m+ 1 Else j = m -1
m = (i + j + 1) \2'①
Loop
数组元素a(1)到a(20)各不相同且按降序排列，若查找键key与a(4)相等，执行该程序段，①处语句的执行次数有（ ）
A．5 B．4 C．3 D．2
【答案】B
【知识点】查找算法及程序实现
11．（2021·湖州模拟）有如下VB程序段：
s = "ABCDEF"
For i = 1 To Len(s)
a = Int(Rnd * 3 + 1)
b = Mid(s, a Mod 6 + 1, 1)
ch = ch + Chr(Asc(b) + 32)
Next i
执行该程序后，变量ch的值可能是（ ）
A．Dccebd B．Bdbfbd C．Ddcefb D．Bdddbc
【答案】D
【知识点】循环结构语句及程序实现；常用标准函数
12．（2021·湖州模拟）如下VB程序段实现对数组元素a(1)到a(n)从小到大排序。
For i = 1 To n -1
①
For j = i To n-1
If a(j) < a(k) Then k = j卷（信息技术）（一） 第4页（共 8 页）
Next j
s = a(i): a(i) = a(k): a(k) = s
Next i
则代码①中的语句为（ ）
A．k=n B．k=n-1 C．k=i D．k=i -1
【答案】A
【知识点】排序算法及程序实现
二、非选择题（本大题共4小题，4+8+7+7，共26 分）
13．（2021·湖州模拟）收集某地农产品市场价格表，并用Excel软件进行数据处理，如图a所示。
请回答下列问题：
（1）区域H4:H30的数据是通过公式计算得到的，在H4单元格中输入公式 ，再使用自动填充功能完成区域H5:H30的计算。
（2）对区域A3:I30进行相关数据分析，下列说法正确的是 （多选，填字母）。
A．更新F列数据，H列数据会随之改变
B．C6单元格与D6单元格内的实际数值可能不相同
C．为了找出农产品市场平均价中价格最高的肉蛋类，可先对“类别”进行筛选，选择值为“肉蛋类”，再对“农产品市场平均价”进行降序排序，选取排在最前面的肉蛋类
D．为了将农产品市场平均价中价格最高的肉蛋类显示在当前工作表第4行，可选择类别为主要关键字，农产品市场平均价为次要关键字均按降序排序
E．为了显示农产品市场平均价中价格最高的3种蔬菜，可先对“类别”进行筛选，选择值为“蔬菜类”，再对“农产品市场平均价”进行筛选，选择“10个最大的值”并显示最大的3项
（3）对图a中数据进行相关统计，结果放在新工作表中，如图b所示。根据图b中的数据制作的图表如图c所示。创建该图表的数据区域是 ,E7:G11。
【答案】（1）AVERAGE(C4:D4) 或=(C400)/2
（2）B；C
（3）B3,.B7:B11, EB3:03
【知识点】表格数据的处理与计算；数据分析
14．（2021·湖州模拟）使用Flash软件创作“江山”多媒体作品，部分编辑界面如图a所示。
请回答下列问题：
（1）在创作之前进行的作品设计，下列说法正确的是 （多选，填字母）。
A．了解用户的计算机应用水平，属于作品的创作需求分析
B．根据主题思想和内容，制订作品的脚本大纲，属于应用需求分析
C．要了解整个作品的组成部分、工作流程和主要界面，可查阅其系统结构设计
D．文字脚本可以作为多媒体作品制作的直接依据
E．将所需的素材列成表格，确定获取原始素材的方式，属于媒体元素分解
（2）测试影片时，动画播放到第1帧自动停止，同时“BGM”图层音乐不播放，结合图b，则“按钮”图层第1帧的动作脚本是 。
（3）“文字”图层第40帧中仅有的对象为形状，第20帧已设置形状补间。测试场景时，第20帧到第40帧没有实现从“人民就是江山”渐变为“江山就是人民”的效果，原因是 。
（4）测试场景时发现背景图片播放到中间时出现1秒的空白，为了使该空白消失（第1帧和第37帧内容相同），同时保持其他动画不变，下列操作方法可行的是 （多选，填字母）。
A．选中该图层第25帧到第36帧执行“删除帧”操作
B．选中该图层第25帧执行“清除关键帧”操作
C．将该图层第37帧移动到第25帧
D．选中该图层第1帧中的内容，复制后粘贴到第25帧
E．选中该图层第24帧执行“插入关键帧”操作
【答案】（1）C；E
（2）stop ( ):stopA11Sounds( );
（3）“文字”阳层第20帧中的对象没有分离成形状
（4）B；C；D
【知识点】多媒体作品的规划和设计；时间轴、帧、图层、库的概念及基本操作；常用影片控制函数的应用
15．（2021·湖州模拟）某志愿服务APP用于整理浙江省内各城市志愿者服务工作情况，每个志愿者的数据用一个长度为8的字符串表示，例如“6 YFH 5 ”，6表示城市序号，YFH为志愿者姓名字母编写，5为参加志愿者服务次数。整理要求：先按城市序号从小到大排列；然后，同一城市的志愿者按参加志愿服务的次数降序排列。按上述要求，编写VB程序，功能如下：在列表List1中显示整理前的数据，单击“整理”按钮Command1，整理结果显示在列表框List2中，程序运行界面如图所示。
（1）在VB表达式Command1_Click()中，Command1、Click、Command1_Click()依次表示 （单选，填字母：A .方法名、属性名、事件名/B .对象名、事件名、事件处理过程名/C .函数名、对象名、方法名）
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const nc=10 '城市数
Const n=200000'志愿者总人数
Dim a(1 To n) As String'存储志愿者数据
Private Sub Form_Load()
'本过程读取志愿者数据，存入数组a并显示在列表框List1中，代码略
End Sub
Private Sub Command1_Click()
Dim city(1 To n) As Integer,pname(1 To n) As String,cs(1 To n) As Integer
Dim t As Integer,t1 As String
Dim b(1 To nc) As Integer '存储每个城市的报名人数
Dim index(1 To n) As Integer '定义索引数组
For i = 1 To n
city(i) = Val(Mid(a(i), 1, 1))
pname(i) =
cs(i) = Val(Mid(a(i), 7))
Next i
i = 1 '按城市序号升序排序
Do While i < n
k = i: i = n
For j = n To k + 1 Step -1
If city(j) < city(j -1) Then
t = city(j): city(j) = city(j -1): city(j -1) = t
t1= pname(j): pname(j) = pname(j -1): pname(j -1) = t1
t = cs(j): cs(j) = cs(j -1): cs(j -1) = t
End If
Next j
Loop
For i = 1 To n
index(i) = i
Next i
pos = 1 '相同城市志愿者按服务次数降序排序
For i = 1 To nc
For j = pos To pos + b(i) -2
k = j
For p = j + 1 To
If cs(index(p)) > cs(index(k)) Then k = p
Next p
t = index(j): index(j) = index(k): index(k) = t
Next j
pos = pos + b(i)
Next i
'最终结果显示在列表框List2中，代码略
End Sub
（3）程序中加框处代码有错，请改正。
【答案】（1）B
（2）Mid(a(i), 3, 3)；i=j；pos+b(i)-1
（3）b(city(i)) = b(city(i)) + 1
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；排序算法及程序实现
16．（2021·湖州模拟）某校内活动需要n（1≤n≤10）名学生迎宾，要求是：男女生站成一排，男生不能相邻，男女生比例大于1/2。考虑到方案只包含了男和女两种情况，可以用二进制的0来代替女生，1来代替男生。当全部是0时最小，此数为0；当全部是1时最大。枚举从0到最大数的每一种情况，逐一判断是否包含男生相邻（二进制1相连），符合的0、1转换为女、男后输出，并在此基础上输出男女生比例较合适的方案（男:女>1/2）。
按上述要求，编写VB程序，功能如下：在文本框Text1中输入n的值，点击“开始枚举”按钮Command1，在列表框List1中输出所有方案，在列表框List2中输出比例合适方案。
实现上述功能的VB程序如下，回答下列问题：
（1）如果输入的n值等于4，那么男女比例合适的方案有 种。
（2）请在划线处填入合适的代码。
Dim n As Integer, Getstr As String
Private Sub Command1_Click()
Dim i As Integer, j As Integer, mAs Integer
n = Val(Text1.Text)
Getstr = ""
For i = 0 To 2 ^ n -1
m = i
If Then
For j = 1 To n
If m Mod 2 = 0 Then
Getstr = "女" + Getstr
Else
Getstr = "男" + Getstr
End If
m = m \2
Next j
List1.AddItem Getstr
If Team(Getstr) <> "" Then List2.AddItem (Team(Getstr))
Getstr =""
End If
Next i
End Sub
Function search(i As Integer) As Boolean '判读男生是否相邻
Dim j As Integer，t As Integer
Dim a(1 To 15) As Integer
t = i
For j = 1 To n
a(j) = t Mod 2
t = t \2
Next j
flag = True
For k = 1 To n -1
If Then flag = False: Exit For
Next k
search = flag
End Function
Function Team(ch As String) As String '判读男女生比例是否合适
Dim num As Integer, st As Integer, i As Integer，c(0 To 1) As Integer
Team = “”
For i = 0 To 1
c(i) = 0
Next i
For i = 1 To n
st= Mid(ch, i, 1)
If st= "男" Then num=1: c(num)= c(num)+1 Else num =0: c(num)= c(num)+1
Next i
If Then Team = ch
End Function
【答案】（1）3
（2）search(i)；a(k) =a(k+1) Anod a(k)= 1或其他合理答案；2*c(1)>c(0) 或c(1)/c(0)>1/2 或c(1)/c(0)>0.5
【知识点】枚举算法及程序实现
1 / 1
