浙江省嘉兴市2020届高三信息技术5月教学测试卷
一、选择题(本大题共12小题，每小题2分，共24分。每小题列出的四个备选项中只有一个是符合题目要求的。)
1．（2020·嘉兴模拟）下列关于信息的说法，错误的是（ ）
A．报刊书籍是常用的信息表达技术
B．信息可以脱离载体但不能脱离它所反映的事物
C．信息必须通过编码转换为二进制代码才能被计算机处理
D．英文字母的机内码一般使用ASCII码，反映了信息表达的规范化
2．（2020·嘉兴模拟）下列关于人工智能的说法，错误的是（ ）
A．人工智能技术可以对人的意识、思维进行模拟
B．学生上课刷卡签到的过程应用了人工智能技术
C．通过虹膜识别辨识身份的开锁方式应用了人工智能技术
D．人工智能研究领域包括语音识别、图像识别和自然语言处理等
3．（2020·嘉兴模拟）下列有关数据库的说法，正确的是（ ）
A．Access数据表中的记录删除后可以撤销
B．一个数据库管理系统只能管理一个数据库
C．数据库系统中的数据不存在冗余
D．数据表是关于特定主题数据的集合
4．（2020·嘉兴模拟）下列应用中，没有体现对信息进行编码的是（ ）
A．在Word文档中查找“2020”
B．用扫描仪获取一张纸质照片的电子稿
C．生成址的二维码
D．用麦克风和GoldWave软件录制一段音频
5．（2020·嘉兴模拟）用Photoshop软件设计一张名片，部分界面如下图所示。下列说法正确的是（ ）
A．当前有3个图层可以直接设置滤镜效果
B．降低“背景”图层的不透明度背景颜色会变淡
C．可用“自由变换”命令修改“个人信息”图层中文字大小
D．交换“横条”和“艺海广告有限公司”图层顺序不影响作品呈现效果
6．（2020·嘉兴模拟）一幅未经压缩的1024×768像素、24位真彩色的BMP图像，存储为JPG格式(其他参数不变)后其存储容量为168KB，则该图像的压缩比约为（ ）
A．2：1 B．4：1 C．14：1 D．110：1
7．（2020·嘉兴模拟）数组元素a(1)～a(n)中存储了n个正整数，下列哪个表达式为True时，可检测数组奇数位置元素的值为偶数（ ）
A．a(i) Mod 2=i Mod 2-1 B．a(i) Mod 2=i Mod 2
C．a(i) Mod 2=0 Or i Mod 2=1 D．a(i) Mod 2=1 And i Mod 2=0
8．（2020·嘉兴模拟）某算法的部分流程图如图所示。执行这部分流程后，n2和n1的值分别是（ ）
A．7，8 B．7，0 C．8，8 D．8，0
9．（2020·嘉兴模拟）采用冒泡排序算法对字符串序列“f，i，g，h，t”自右向左排序，两遍排序后的序列可能为（ ）
①t，f，i，g，h ②f，g，h，i，t ③t，i，f，h，g ④i，h，t，g，f
A．①④ B．①③ C．②③ D．②④
10．（2020·嘉兴模拟）有如下VB程序段：
Const n=3
Dim a(1 To n * n) As Integer
Dim I As Integer, j As Integer, s As String
List1.Clear
Randomize
For i=1To n
s=“”
For j=1 To n
a((i- 1)*n+ j)= Int(Rnd*i+j)
s=s + Str(a((i-1)*n+j))
Next j
List1.AddItem s
Next i
执行程序后，列表框List1中输出的不可能是（ ）
A． B． C． D．
11．（2020·嘉兴模拟）有如下VB程序段，在文本框Text1中输入一个仅包含字符“0”与“1”的字符串(字符串中没有连续的“1”)，将其中任意位置的“0”翻转为“1”，但要确保翻转之后的字符串中仍然没有连续的“1”，求最多可翻转的“0”的个数，并在标签Label1中输出。
如：字符串“100101000100”中最多可将2个“0”翻转为“1”，变为“ ”
s = "0" & Text1.Text & "0"
c=0: i= 2
Do While i< Len(s)
If ① Then
i=i+2
ElseIf ② Then
i=i+ 1
Elself ③ Then
i=i+3
Else
i=i+2: c=c+ 1
End If
Loop
Label1.Caption = "最多可翻转" & Str(c) & "个0"
上述程序中方框处可选语句为：
①Mid(s，i-1，1)="1" ②Mid(s，i，1)="1" ③Mid(s，i+1，1)="1"
则①②③处语句依次是（ ）
A．①②③ B．③②① C．②①③ D．②③①
12．（2020·嘉兴模拟）编写一个基于对分查找插入数据的程序代码。实现把数据temp插入降序序列后得到一个新的降序序列，原序列各元素存放在数组元素a(1)-a(n)中。实现上述功能的程序段如下：
temp = Val(Text1.Text)
If temp <= a(n) Then
a(n + 1)= temp
Else
left= 1: right= n
Do While left <= right
mid = (left + right) \2
If ① Then right= mid- 1 Else left= mid+ 1
Loop
For j= n To left Step-1
②
Next j
③
End If
则横线①②③上的语句分别是（ ）
A．①a(mid)>temp ②a(j)=a(j-1) ③a(right+1)=temp
B．①a(mid)C．①a(mid)>temp ②a(j+1)=a(j) ③a(right+1)=temp
D．①a(mid)二、非选择题(本大题共4小题，4+8+7+7，共26分。)
13．（2020·嘉兴模拟）使用Excel软件处理2019年7～12月小杂粮重点品种批发、零售价格数据，如图所示。请回答下列问题：
（1）若要正确计算各种小杂粮的“平均零售价格”，可对C18单元格中的公式进行修改，再自动填充至区域D18：I18，则C18单元格中的公式是 。
(提示：AVERAGEIF函数用于返回某个区域内满足给定条件的所有单元格的平均值。例如：=AVERAGEIF(B4：B15，"=批发"，D4：D15)用于计算7～12月绿豆的平均批发价格。)
（2）若C18单元格中的公式修改正确，并将区域C4：I15单元格的数值小数位数设置为1，则C18单元格中显示的值 (填字母：A
.变大/B .不变/C .变小)。
（3）要获取7～12月红小豆的最低零售价格，下列方法可行的是 (多选，填字母)。
A．使用MIN函数计算区域C4：C15中的最小值
B．以“批发/零售”列为零售、“红小豆”列为最小1项进行筛选
C．以“批发/零售”列为零售进行筛选，以筛选结果中“日期”和“红小豆”两列数据为数据区域创建折线图，选取图上最低点的值
D．对区域A3：I15中的数据，以“批发/零售”为主要关键字、“红小豆”为次要关键字，均按降序排序，选取单元格C15的值
14．（2020·嘉兴模拟）用Flash软件制作主题为“南湖菱”的作品，其“main”场景的制作脚本如下：
场景名：main 类别序号：2 进入方式：来自begin场景，通过“开始”按钮进入
呈现方式： ⒈“logo”图层的动画位于舞台左下角，从透明变化到完全显示，并同时由快至慢顺时针旋转3圈 ⒉单击“结束”按钮，动画跳转到“end”场景第1帧并播放 (其他略)。 呈现顺序说明： ⒈开始出现背景图片、背景音乐和“标题”动画 ⒉ 1秒后出现“简介”和“logo”动画。 ⒊最后出现“结束”按钮 ⒋本场景动画播放到最后停止，背景音乐随之停止 (其他略)
编辑界面如图a所示。
请回答下列问题：
（1）根据制作脚本、图a和图b，以下说法正确的是 (多选，填字母)。
A．当前场景至少需要添加2个按钮
B．若背景音乐的时长为90秒，则同步方式应设为“数据流”
C．本场景制作脚本完成后还需进一步编写相应的文字脚本
D．实现“本场景动画播放到最后停止”的动作命令可直接添加在“按钮”图层上
E．图b为矢量图素材，是真实物体模型化、抽象化和线条化后得到的图形
（2）根据制作脚本，在制作“logo”图层的补间动画时，补间类型应选择 (选填：动画补间/形状补间)；其“缓动”值设置为 (选填：0/正/负)。
（3）测试场景时发现“logo”图层第13帧～18帧的动画播放速度太快。在不改变其他动画播放速度的前提下，使其速度变为原来的一半，则在“logo”图层中应进行的操作是 。
（4）根据制作脚本，“结束”按钮上的动作脚本正确的有 (多选，填字母)。
A．on(press){gotoAndPlay("end",1);}
B．on(release){gotoAndStop("end",1);}
C．on(release){play();}
D．on(press){gotoAndPlay(1);}
15．（2020·嘉兴模拟）编写一个VB抽奖程序，功能如下：从数据库读取相关数据并显示在列表框List1中，在文本框Text1中输入中奖人数，单击“抽奖”按钮Command1，在列表框List2中输出结果。
抽奖规则：中奖人数为1人，男女不限：
中奖人数超1人，男女对半(奇数时女性多1人)。
程序运行界面如图所示。
实现上述功能的VB程序如下：
Dim xm(1 To 500) As String, xh(1 To 500) As String, xb(1 To 500) As String
Dim n As Integer '学生总人数
Dim a(1 To 100) As Integer '抽中序号
Private Sub Form_ LoadO
'本过程读取n位同学的序号、姓名和性别，
'分别存储在数组xh、xm、xb中
并在列表框List1中显示，代码略
End Sub
Private Sub Command1_ ClickO
Dim rs As Integer, m As Integer, x As Integer, girl As Integer, I As Integer
Dim xbs(1 To 500) As Integer
Randomize
List2.Clear
List2.AddItem "姓名" & " " & "性别"
rs= ①
For i=1 To n
If xb(i)="女" Then xbs<(i)=1 Else xbs(i)=0
Next i
m=0
girl=0
If rs= 1 Then
x= Int(Rnd* n)+ 1
List2.AddItem xm(x) &" "&xb(x)
Else
Do While mx = Int(Rnd* n)+ 1
If checkf(x) Then
m=m+1: a(m)=x
girl = girl + xbs(a(m))
If ② Then
a(m)=0: m=m-1
ElseIf girl> (rs+1)\2 Then
a(m)=0: m=m-1
③
End If
End If
Loop
For i=1 To m
List2.AddItem
Next i
End If
End Sub
Function checkf(p As Integer) As Boolean
'核对重复中奖，未中过奖返回True
'代码略
End Function
（1）请在划线处①②③中填入合适的代码。
① ② ③
（2）程序中加框代码有错，请改正。
16．（2020·嘉兴模拟）给出n个不重复的介于区间[1-10，10]的整数(n≤10)，查找区间中未出现的正整数。例如：
按上述要求，编写一个VB程序：在文本框Text1中输入n个整数(逗号分隔并以逗号结尾)，单击“查找”按钮Command1，在标签Label2中输出查找结果。程序运行界面如图所示。
（1）对从输入字符串中提取的n个整数排序：将其中的正整数进行升序排序，排序后正整数在前，其它的在后。以图中数据为例(10，3，-2，0，-6，6，-5，2，)提取整数，采用如下程序的选择排序算法，所需的交换次数为 次。
（2）请在划线处①②③中填入合适的代码。
Private Sub Command1_ Click()
Dim i As Integer, j As Integer, n As Integer, k As Integer
Dim ch As String, res AS String, t1 As String, t2 As Integer
Dim m As Integer
'm记录正整数的个数
Dim a(1 To 10) As Integer
s = Text1.Text
n= 0
For i= 1 To Len(s) ‘提取整数，并保存在数组a中
ch = Mid(s, i, 1)
If ch = "," Then
n=n+1
a(n)= Val(t1)
t1=“”
Else
t1=t1 + ch
End If
Next i
For i=1To n-1
k=i
For j=i+ 1 Ton
If a(j)> 0 Then
If ① Then k=j
End If
Next j
If k<>i Then
t2 = a(k): a(k) = a(i): a(i)= t2
End If
If ② Then
m = i 'm记录正整数的个数小
Else
Exit For
End If
Next i
For i= m To 1 Step-1
③
Next i
For i= 1 To 10
If a(i) <>i Then res= res+ Str(i)+","
Next i
Label2.Caption = res
End Sub
① ② ③
答案解析部分
1．【答案】B
【知识点】信息及其特征；信息表达方式与表达技术；信息表达要求
2．【答案】B
【知识点】人工智能的应用
3．【答案】D
【知识点】数据库、数据库系统及其特征；数据表、字段、记录的概念；数据表、字段、记录的编辑
4．【答案】A
【知识点】信息的编码
5．【答案】C
【知识点】图片加工常用工具的使用；图层及图层的基本操作
6．【答案】C
【知识点】声音、图像、视频编码
7．【答案】A
【知识点】运算符、基本运算与表达式
8．【答案】D
【知识点】常量、变量及变量的赋值；流程图识读
9．【答案】C
【知识点】排序算法及程序实现
10．【答案】A
【知识点】运算符、基本运算与表达式；常量、变量及变量的赋值；循环结构语句及程序实现
11．【答案】C
【知识点】运算符、基本运算与表达式；常量、变量及变量的赋值
12．【答案】D
【知识点】常量、变量及变量的赋值；查找算法及程序实现
13．【答案】（1）=AVERAGEIF($B$4:$BS15,"=零 售" ,C4:C15) 或=AVERAGEIF($B4:$B15,"=零售",C4:C15) 或=AVERAGEIF($B$4:$B$15,"零售",C4:C15) 或=AVERAGEIF($B4:$B15," 零售",C4:C15)
（2）B
（3）C；D
【知识点】表格数据的基本操作；表格数据的处理与计算
14．【答案】（1）B；D；E
（2）动画补间；正
（3）将"logo"图层第18帧移动到第24帧
（4）A；C
【知识点】多媒体作品的规划和设计；时间轴、帧、图层、库的概念及基本操作；元件的类型与应用；动画的实现；常用影片控制函数的应用
15．【答案】（1）Val(Text1.Text)；m-girl> rs \2；girl= girl- 1
（2）xm(a(i)&" " & xb(a(i)
【知识点】运算符、基本运算与表达式；常量、变量及变量的赋值
16．【答案】（1）3
（2）a(j) < a(k) or a(k) <= 0；a(i)>0；a(i)) = a(i)
【知识点】运算符、基本运算与表达式；常量、变量及变量的赋值；排序算法及程序实现
1 / 1浙江省嘉兴市2020届高三信息技术5月教学测试卷
一、选择题(本大题共12小题，每小题2分，共24分。每小题列出的四个备选项中只有一个是符合题目要求的。)
1．（2020·嘉兴模拟）下列关于信息的说法，错误的是（ ）
A．报刊书籍是常用的信息表达技术
B．信息可以脱离载体但不能脱离它所反映的事物
C．信息必须通过编码转换为二进制代码才能被计算机处理
D．英文字母的机内码一般使用ASCII码，反映了信息表达的规范化
【答案】B
【知识点】信息及其特征；信息表达方式与表达技术；信息表达要求
2．（2020·嘉兴模拟）下列关于人工智能的说法，错误的是（ ）
A．人工智能技术可以对人的意识、思维进行模拟
B．学生上课刷卡签到的过程应用了人工智能技术
C．通过虹膜识别辨识身份的开锁方式应用了人工智能技术
D．人工智能研究领域包括语音识别、图像识别和自然语言处理等
【答案】B
【知识点】人工智能的应用
3．（2020·嘉兴模拟）下列有关数据库的说法，正确的是（ ）
A．Access数据表中的记录删除后可以撤销
B．一个数据库管理系统只能管理一个数据库
C．数据库系统中的数据不存在冗余
D．数据表是关于特定主题数据的集合
【答案】D
【知识点】数据库、数据库系统及其特征；数据表、字段、记录的概念；数据表、字段、记录的编辑
4．（2020·嘉兴模拟）下列应用中，没有体现对信息进行编码的是（ ）
A．在Word文档中查找“2020”
B．用扫描仪获取一张纸质照片的电子稿
C．生成址的二维码
D．用麦克风和GoldWave软件录制一段音频
【答案】A
【知识点】信息的编码
5．（2020·嘉兴模拟）用Photoshop软件设计一张名片，部分界面如下图所示。下列说法正确的是（ ）
A．当前有3个图层可以直接设置滤镜效果
B．降低“背景”图层的不透明度背景颜色会变淡
C．可用“自由变换”命令修改“个人信息”图层中文字大小
D．交换“横条”和“艺海广告有限公司”图层顺序不影响作品呈现效果
【答案】C
【知识点】图片加工常用工具的使用；图层及图层的基本操作
6．（2020·嘉兴模拟）一幅未经压缩的1024×768像素、24位真彩色的BMP图像，存储为JPG格式(其他参数不变)后其存储容量为168KB，则该图像的压缩比约为（ ）
A．2：1 B．4：1 C．14：1 D．110：1
【答案】C
【知识点】声音、图像、视频编码
7．（2020·嘉兴模拟）数组元素a(1)～a(n)中存储了n个正整数，下列哪个表达式为True时，可检测数组奇数位置元素的值为偶数（ ）
A．a(i) Mod 2=i Mod 2-1 B．a(i) Mod 2=i Mod 2
C．a(i) Mod 2=0 Or i Mod 2=1 D．a(i) Mod 2=1 And i Mod 2=0
【答案】A
【知识点】运算符、基本运算与表达式
8．（2020·嘉兴模拟）某算法的部分流程图如图所示。执行这部分流程后，n2和n1的值分别是（ ）
A．7，8 B．7，0 C．8，8 D．8，0
【答案】D
【知识点】常量、变量及变量的赋值；流程图识读
9．（2020·嘉兴模拟）采用冒泡排序算法对字符串序列“f，i，g，h，t”自右向左排序，两遍排序后的序列可能为（ ）
①t，f，i，g，h ②f，g，h，i，t ③t，i，f，h，g ④i，h，t，g，f
A．①④ B．①③ C．②③ D．②④
【答案】C
【知识点】排序算法及程序实现
10．（2020·嘉兴模拟）有如下VB程序段：
Const n=3
Dim a(1 To n * n) As Integer
Dim I As Integer, j As Integer, s As String
List1.Clear
Randomize
For i=1To n
s=“”
For j=1 To n
a((i- 1)*n+ j)= Int(Rnd*i+j)
s=s + Str(a((i-1)*n+j))
Next j
List1.AddItem s
Next i
执行程序后，列表框List1中输出的不可能是（ ）
A． B． C． D．
【答案】A
【知识点】运算符、基本运算与表达式；常量、变量及变量的赋值；循环结构语句及程序实现
11．（2020·嘉兴模拟）有如下VB程序段，在文本框Text1中输入一个仅包含字符“0”与“1”的字符串(字符串中没有连续的“1”)，将其中任意位置的“0”翻转为“1”，但要确保翻转之后的字符串中仍然没有连续的“1”，求最多可翻转的“0”的个数，并在标签Label1中输出。
如：字符串“100101000100”中最多可将2个“0”翻转为“1”，变为“ ”
s = "0" & Text1.Text & "0"
c=0: i= 2
Do While i< Len(s)
If ① Then
i=i+2
ElseIf ② Then
i=i+ 1
Elself ③ Then
i=i+3
Else
i=i+2: c=c+ 1
End If
Loop
Label1.Caption = "最多可翻转" & Str(c) & "个0"
上述程序中方框处可选语句为：
①Mid(s，i-1，1)="1" ②Mid(s，i，1)="1" ③Mid(s，i+1，1)="1"
则①②③处语句依次是（ ）
A．①②③ B．③②① C．②①③ D．②③①
【答案】C
【知识点】运算符、基本运算与表达式；常量、变量及变量的赋值
12．（2020·嘉兴模拟）编写一个基于对分查找插入数据的程序代码。实现把数据temp插入降序序列后得到一个新的降序序列，原序列各元素存放在数组元素a(1)-a(n)中。实现上述功能的程序段如下：
temp = Val(Text1.Text)
If temp <= a(n) Then
a(n + 1)= temp
Else
left= 1: right= n
Do While left <= right
mid = (left + right) \2
If ① Then right= mid- 1 Else left= mid+ 1
Loop
For j= n To left Step-1
②
Next j
③
End If
则横线①②③上的语句分别是（ ）
A．①a(mid)>temp ②a(j)=a(j-1) ③a(right+1)=temp
B．①a(mid)C．①a(mid)>temp ②a(j+1)=a(j) ③a(right+1)=temp
D．①a(mid)【答案】D
【知识点】常量、变量及变量的赋值；查找算法及程序实现
二、非选择题(本大题共4小题，4+8+7+7，共26分。)
13．（2020·嘉兴模拟）使用Excel软件处理2019年7～12月小杂粮重点品种批发、零售价格数据，如图所示。请回答下列问题：
（1）若要正确计算各种小杂粮的“平均零售价格”，可对C18单元格中的公式进行修改，再自动填充至区域D18：I18，则C18单元格中的公式是 。
(提示：AVERAGEIF函数用于返回某个区域内满足给定条件的所有单元格的平均值。例如：=AVERAGEIF(B4：B15，"=批发"，D4：D15)用于计算7～12月绿豆的平均批发价格。)
（2）若C18单元格中的公式修改正确，并将区域C4：I15单元格的数值小数位数设置为1，则C18单元格中显示的值 (填字母：A
.变大/B .不变/C .变小)。
（3）要获取7～12月红小豆的最低零售价格，下列方法可行的是 (多选，填字母)。
A．使用MIN函数计算区域C4：C15中的最小值
B．以“批发/零售”列为零售、“红小豆”列为最小1项进行筛选
C．以“批发/零售”列为零售进行筛选，以筛选结果中“日期”和“红小豆”两列数据为数据区域创建折线图，选取图上最低点的值
D．对区域A3：I15中的数据，以“批发/零售”为主要关键字、“红小豆”为次要关键字，均按降序排序，选取单元格C15的值
【答案】（1）=AVERAGEIF($B$4:$BS15,"=零 售" ,C4:C15) 或=AVERAGEIF($B4:$B15,"=零售",C4:C15) 或=AVERAGEIF($B$4:$B$15,"零售",C4:C15) 或=AVERAGEIF($B4:$B15," 零售",C4:C15)
（2）B
（3）C；D
【知识点】表格数据的基本操作；表格数据的处理与计算
14．（2020·嘉兴模拟）用Flash软件制作主题为“南湖菱”的作品，其“main”场景的制作脚本如下：
场景名：main 类别序号：2 进入方式：来自begin场景，通过“开始”按钮进入
呈现方式： ⒈“logo”图层的动画位于舞台左下角，从透明变化到完全显示，并同时由快至慢顺时针旋转3圈 ⒉单击“结束”按钮，动画跳转到“end”场景第1帧并播放 (其他略)。 呈现顺序说明： ⒈开始出现背景图片、背景音乐和“标题”动画 ⒉ 1秒后出现“简介”和“logo”动画。 ⒊最后出现“结束”按钮 ⒋本场景动画播放到最后停止，背景音乐随之停止 (其他略)
编辑界面如图a所示。
请回答下列问题：
（1）根据制作脚本、图a和图b，以下说法正确的是 (多选，填字母)。
A．当前场景至少需要添加2个按钮
B．若背景音乐的时长为90秒，则同步方式应设为“数据流”
C．本场景制作脚本完成后还需进一步编写相应的文字脚本
D．实现“本场景动画播放到最后停止”的动作命令可直接添加在“按钮”图层上
E．图b为矢量图素材，是真实物体模型化、抽象化和线条化后得到的图形
（2）根据制作脚本，在制作“logo”图层的补间动画时，补间类型应选择 (选填：动画补间/形状补间)；其“缓动”值设置为 (选填：0/正/负)。
（3）测试场景时发现“logo”图层第13帧～18帧的动画播放速度太快。在不改变其他动画播放速度的前提下，使其速度变为原来的一半，则在“logo”图层中应进行的操作是 。
（4）根据制作脚本，“结束”按钮上的动作脚本正确的有 (多选，填字母)。
A．on(press){gotoAndPlay("end",1);}
B．on(release){gotoAndStop("end",1);}
C．on(release){play();}
D．on(press){gotoAndPlay(1);}
【答案】（1）B；D；E
（2）动画补间；正
（3）将"logo"图层第18帧移动到第24帧
（4）A；C
【知识点】多媒体作品的规划和设计；时间轴、帧、图层、库的概念及基本操作；元件的类型与应用；动画的实现；常用影片控制函数的应用
15．（2020·嘉兴模拟）编写一个VB抽奖程序，功能如下：从数据库读取相关数据并显示在列表框List1中，在文本框Text1中输入中奖人数，单击“抽奖”按钮Command1，在列表框List2中输出结果。
抽奖规则：中奖人数为1人，男女不限：
中奖人数超1人，男女对半(奇数时女性多1人)。
程序运行界面如图所示。
实现上述功能的VB程序如下：
Dim xm(1 To 500) As String, xh(1 To 500) As String, xb(1 To 500) As String
Dim n As Integer '学生总人数
Dim a(1 To 100) As Integer '抽中序号
Private Sub Form_ LoadO
'本过程读取n位同学的序号、姓名和性别，
'分别存储在数组xh、xm、xb中
并在列表框List1中显示，代码略
End Sub
Private Sub Command1_ ClickO
Dim rs As Integer, m As Integer, x As Integer, girl As Integer, I As Integer
Dim xbs(1 To 500) As Integer
Randomize
List2.Clear
List2.AddItem "姓名" & " " & "性别"
rs= ①
For i=1 To n
If xb(i)="女" Then xbs<(i)=1 Else xbs(i)=0
Next i
m=0
girl=0
If rs= 1 Then
x= Int(Rnd* n)+ 1
List2.AddItem xm(x) &" "&xb(x)
Else
Do While mx = Int(Rnd* n)+ 1
If checkf(x) Then
m=m+1: a(m)=x
girl = girl + xbs(a(m))
If ② Then
a(m)=0: m=m-1
ElseIf girl> (rs+1)\2 Then
a(m)=0: m=m-1
③
End If
End If
Loop
For i=1 To m
List2.AddItem
Next i
End If
End Sub
Function checkf(p As Integer) As Boolean
'核对重复中奖，未中过奖返回True
'代码略
End Function
（1）请在划线处①②③中填入合适的代码。
① ② ③
（2）程序中加框代码有错，请改正。
【答案】（1）Val(Text1.Text)；m-girl> rs \2；girl= girl- 1
（2）xm(a(i)&" " & xb(a(i)
【知识点】运算符、基本运算与表达式；常量、变量及变量的赋值
16．（2020·嘉兴模拟）给出n个不重复的介于区间[1-10，10]的整数(n≤10)，查找区间中未出现的正整数。例如：
按上述要求，编写一个VB程序：在文本框Text1中输入n个整数(逗号分隔并以逗号结尾)，单击“查找”按钮Command1，在标签Label2中输出查找结果。程序运行界面如图所示。
（1）对从输入字符串中提取的n个整数排序：将其中的正整数进行升序排序，排序后正整数在前，其它的在后。以图中数据为例(10，3，-2，0，-6，6，-5，2，)提取整数，采用如下程序的选择排序算法，所需的交换次数为 次。
（2）请在划线处①②③中填入合适的代码。
Private Sub Command1_ Click()
Dim i As Integer, j As Integer, n As Integer, k As Integer
Dim ch As String, res AS String, t1 As String, t2 As Integer
Dim m As Integer
'm记录正整数的个数
Dim a(1 To 10) As Integer
s = Text1.Text
n= 0
For i= 1 To Len(s) ‘提取整数，并保存在数组a中
ch = Mid(s, i, 1)
If ch = "," Then
n=n+1
a(n)= Val(t1)
t1=“”
Else
t1=t1 + ch
End If
Next i
For i=1To n-1
k=i
For j=i+ 1 Ton
If a(j)> 0 Then
If ① Then k=j
End If
Next j
If k<>i Then
t2 = a(k): a(k) = a(i): a(i)= t2
End If
If ② Then
m = i 'm记录正整数的个数小
Else
Exit For
End If
Next i
For i= m To 1 Step-1
③
Next i
For i= 1 To 10
If a(i) <>i Then res= res+ Str(i)+","
Next i
Label2.Caption = res
End Sub
① ② ③
【答案】（1）3
（2）a(j) < a(k) or a(k) <= 0；a(i)>0；a(i)) = a(i)
【知识点】运算符、基本运算与表达式；常量、变量及变量的赋值；排序算法及程序实现
1 / 1
