登录二一教育在线组卷平台 助您教考全无忧
浙江省湖州市2021-2022学年高三上学期信息技术高考考前模拟试卷（四）
一、选择题(本大题共12小题，每小题2分，共24分。)
1．（2021·湖州模拟）下列有关信息和信息技术的说法正确的（ ）
A．古代没有电脑、没有网络，也没有信息技术
B．信息的加工和管理必须使用计算机才能完成
C．对朋友圈里的信息进行点赞属于信息的个人推荐评价
D．随着信息技术的发展，信息的处理不需要人类参与就可以完成各项任务
【答案】C
【知识点】因特网信息资源评价；信息加工与处理的概念
2．（2021·湖州模拟）下列关于浏览器和网页的说法，正确的是（ ）
A．静态网页可根据情况的变化、用户的需要生成不同的页面
B．网页通过HTTP协议传输，可以通过浏览器解释执行HTML代码
C．在 IE 浏览器中，可以使用“添加到收藏夹”保存网页中的内容
D．将网页以“Web档案，单个文件（*.mht）”类型保存，其中的图片未被保存
【答案】B
【知识点】网络资源的类型、下载与保存；浏览器；网页、网站的概念与联系
3．（2021·湖州模拟）某医院使用Access创建“医疗管理系统”，某数据表的设计视图如下图所示，下列说法正确的是（ ）
A．当前数据库文件名是“用户信息.accdb”
B．可以在“用户信息”表的“是否住院”字段中输入逻辑值“否”
C．“诊断表”和“住院”表中都不可以包含“诊断卡号”字段
D．“诊断时间”字段值可以输入“2021/9/1”，也可以输入“17:00:00”
【答案】D
【知识点】数据表、字段、记录的编辑
4．（2021·湖州模拟）用UltraEdit软件观察字符内码，部分界面如图所示，下列说法正确的是（ ）
A．上述字符中共有8个ASCII码字符
B．字符“10.0”的内码是“3A 2E 30”
C．字符“J”的内码用十六进制表示是“50”
D．汉字“联”的ASCII码用十六进制表示是“C1 AA”
【答案】A
【知识点】字符编码
5．（2021·湖州模拟）使用GoldWave软件编辑某音频文件，选中一段音频后的部分编辑界面如下图所示：
下列说法正确的是（ ）
A．该音频是 Wave 格式的文件，每秒钟采样44100次
B．当前状态下执行“剪裁”操作，音频时长变成30s
C．通过“更改音量”命令提升音量，音频的采样频率同步变大
D．当前状态下，执行“删除”命令后再插入30s静音，音频文件存储容量变大
【答案】D
【知识点】声音素材的基本处理；声音、图像、视频编码
6．（2021·湖州模拟）一段时长为1分钟、1024×768像素、RGB/8模式、PAL制式的AVI格式视频，该视频声音存储容量约为10M，则该视频文件存储容量约为（ ）
A．3.3GB B．1.1GB C．56.3MB D．66.3MB
【答案】A
【知识点】声音、图像、视频编码
7．（2021·湖州模拟）下列选项的结果与其他选项不同的是（ ）
A．Mid("5671732",4,2)
B．Int(Rnd * 9 + 40) \ 20 + 15
C．2019 Mod 100 – 2019\1000
D．(Asc("d") - Asc("a"))^ 3-Int（Sqr(101)）
【答案】A
【知识点】运算符、基本运算与表达式；常用标准函数
8．（2021·湖州模拟）某算法的部分流程图如图所示，
输入s=“101001”，b=0，执行这部分流程后，输出b的结果是（ ）
A．31 B．15 C．3 D．1
【答案】A
【知识点】流程图识读
9．（2021·湖州模拟）有如下VB程序段：
c = Text1.Text
s1 = "jiayou！" s2 = s1 + s1
For i =1 to len(s1)
If c = Mid(s2, i, Len(s1)) Then Exit For
Next i
Label1.Caption = Str(i)
程序执行完后，Label1中显示的内容是4，则Text1中输入的内容是（ ）
A．"jiayou!" B．"you!jia" C．"ayou!ji" D．"jayou!j"
【答案】B
【知识点】循环结构语句及程序实现；常用标准函数
10．（2021·湖州模拟）有如下VB程序：
n = 4
For i = 1 To 25
j = 1: a(j) = a(j) + 1
Do While a(j) = 4
a(j) = 0
j = j + 1
a(j) = a(j) + 1
Loop
Next i
For i = 1 To n
s = Str(a((i + 1) Mod 4 + 1)) + s
Next i
数组a(1)至a(4)初值均是0，执行该程序后，s的值是（ ）
A．"1012" B．"2101" C．"0121" D．"1210"
【答案】B
【知识点】循环结构语句及程序实现
11．（2021·湖州模拟）有一组数据（共n*n）个，分别存放在a(1)至a(n*n)中，将这些数据平均分为n段，通过下列程序实现n段数据升序排序，例如，当n=4时，排序结果如图所示：
For i = 1 To ①
k = i
For j = i + 1 To ②
If a(j) < a(k) Then k = j
Next j
If k <> i Then
t = a(k)
a(k) = a(i)
a(i) = t
End If
s = s + Str(a(i))
If ③ Then
List1.AddItem s: s = ""
End If
Next i
划线处的代码应为（ ）
A．① n*n ② ((i - 1) \ 4 + 1) * 4 ③ i Mod 4 = 0
B．① n*n ② (i \ 4) * 4 ③ i \ 4 = 0
C．① n*n-1 ② ((i - 1) \ 4 + 1) * 4 ③ i Mod 4 = 0
D．① n*n-1 ② (i \ 4) * 4 ③ i \ 4 = 0
【答案】A
【知识点】排序算法及程序实现
12．（2021·湖州模拟）有如下VB程序段：
i = 1: j = 9
k= Int(Rnd * 6) * 10 + Int(Rnd * 6)
Do While i <= j
m = (i + j) \ 2
If a(m) Mod 10 > k Mod 10 Then
j = m - 1
Else
i = m + 1
End If
Loop
已知数组a(1) 至a(9)中的值分别是“21,13,23,43,15,45,47,48,48”，运行该程序段后，j的值不可能是（ ）
A．1 B．4 C．6 D．7
【答案】D
【知识点】查找算法及程序实现
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2021·湖州模拟）小李收集了某辩论赛的相关数据，并使用Excel软件进行处理，如图a所示。
图a
（1）在D16单元格中使用SUMIF函数计算“爱拼才会赢”所有队员第一回合得分之和，然后往右填充计算“爱拼才会赢”所有队员所有回合得分之和，则D16单元格中的公式是 。(提示：SUMIF 函数用于对区域中满足条件的单元格求和。例如：=SUMIF(B2:B15,"一辩",D2:D15)表示所有一辩队员第一回合的得分总和)
（2）根据图a中数据制作的图表如图b所示，创建该图表的数据区域是 。
图b
（3）小李把A1:H15的数据复制到Sheet2工作表，找出“to be No.1”辩论队中平均分最高的一辩选手（若存在符合条件的多名选手，则全部选取）。下列方法可行的是 （多选，填字母）
A．以“队名”为“to be No.1”进行筛选，再以“平均分”为关键字降序排序，选取排在最前面的队员
B．以“队名”为“to be No.1”进行筛选，再以“顺序”为主要关键字降序、“平均分”为次要关键字降序排序，选取排在最前面的队员
C．以“队名”、“顺序”和“平均分”分别为主要和次要关键字，排序方式依次设置升序、降序和降序，进行排序，选取排在最前面的队员
D．以“顺序”为“一辩”进行筛选，再以“平均分”为关键字降序排序，选取排在最前面的队员
【答案】（1）=SUMIF ($C2:$C15,”爱拼才会赢”，D2:D15)
（2）C1:G1, C16:G17
（3）B；C
【知识点】表格数据的处理与计算
14．（2021·湖州模拟）某同学制作了一主题是“垃圾分类”多媒体作品，他首先使用 PhotoShop软件制作一张背景图片，然后使用Flash软件制作动画。
（1）使用PhotoShop软件编辑背景图片，部分编辑界面如图a所示，在当前状态下，以下说法正确的是 （多选，填字母）。
图a
A．可以将“树木”图层的图层样式隐藏
B．可以使用自由变换命令仅将“美丽生活”中的“美丽”变大
C．将“小鸟”图层移动到“树木”图层的下方，图片的显示效果会发生改变
D．可以使用“移动工具”将“小鸟副本”的小鸟移动到“小鸟”图层中小鸟的左侧
E．删除“背景”图层，将图片直接存储为BMP格式，图片的存储容量约为1.06MB
（2）如图b所示，在当前状态下，执行测试影片命令，首先播放的场景是 ，“音乐”图层的声音 （单选，填字母：A .能/B .不能）正常播放。
图b
（3）如图b所示，“人物”图层第20帧到第40帧实现了人物淡入并放大的动画效果，要使人物在41帧处消失并持续到本场景结束，可以执行的操作是 。
（4）测试影片时，单击“跳转”按钮，声音停止播放，并跳转到下一场景第10帧继续播放，则需要在该按钮上添加的脚本命令是 。
【答案】（1）A；C；E
（2）load；A
（3）在“人物”图层第41帧执行“插入空白关键帧”操作或在“人物”图层第41-60帧执行“清除帧”或“删除帧操作”
（4）on (press/release) {stopAllSounds () ; gotoAndPlay("rubbish" , 10);}
【知识点】图层及图层的基本操作；时间轴、帧、图层、库的概念及基本操作；常用影片控制函数的应用
15．（2021·湖州模拟）某次模拟考试后，某班主任为了统计本班学生的语文和数学成绩，制作了如下 VB 程序。程序界面如下图所示：在文本框Text1中输入语文和数学成绩，成绩之间用“，”隔开，以“，”结束，加载窗体时，将成绩提取到数组 a中，如a(1)表示第一位学生的语文成绩，a（2）表示第一位同学的数学成绩，如a(3)表示第二位学生的语文成绩，a（4）表示第二位同学的数学成绩，……，以此类推，单击按钮Command11，将成绩按照语文为主要关键字、数学为次要关键字做升序排序，并将排序后的结果显示在文本框Text2中。
（1）窗体中没有用到的控件是 。
A． B． C． D．
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码
Dim
a(1 To 20) As Integer
Dim
i As Integer, n As Integer
Private
Sub Form_Load()
Dim s As String, ch As String
n = 1：s = Text1.Text
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch <> "," Then
a(n) =
Else
n = n + 1
End If
Next i
End
Sub
Private
Sub Command1_Click()
Dim j As Integer, t1 As Integer, t2 As
Integer
For i = 2 To n/2
t1 = a(2 * i - 1): t2 = a(2 * i): j = i
- 1
Do While
a(2 * j + 1) = a(2 * j - 1)
a(2 * j + 2) = a(2 * j)
j = j - 1
If j = 0 Then Exit Do
Loop
a(2 * j + 1) = t1
Next i
For i = 1 To n/2
Text2.Text = Text2.Text + Str(a(2 * i - 1)) + Str(a(2 * i))
Next i
End Sub
（3）程序中加框处代码有误，请改正
【答案】（1）D
（2）a(n)*10+Val(ch)；n=n-1；a(2*j+2)=t2
（3）a(2*j - 1) > t1 0ra(2*j-1)=t1Anda(2*j)>t2
【知识点】程序设计工具及编程环境；分支结构语句及程序实现；循环结构语句及程序实现
16．（2021·湖州模拟）某学校某一年级共有m（偶数）个班级，在开展运动会期间，所有班级的学生随机站成一排并按位置顺序进行编号，已知共有n位同学。现要选取k位选手参加跳绳比赛，选取方法是：在排好的队列中选取连续的k位（k是偶数且k>=m）学生，要求每个班级至少有一位学生参加比赛，并且参赛的男生人数和女生人数相同。现要设计一VB程序，确定选取学生的起止位置，VB的部分界面如下图所示，加载窗体时，在List1中生成n个学生所处的位置和学生编号，其中位置就是学生所在队列中的位置，学生编号由两位数字构成，即班级+性别（0表示男生，1表示女生），在文本框Text1中输入抽取的学生的人数k，单击“抽取”按钮Command1，在列表框List2中显示满足条件的所有队列情况。
（1）若共有4个班级，学生排列的编号是11,21,30,11,40,41,30,21,20,10,11,20,31,40，若k=4，共存在 种抽取方案。
（2）请在划线处填入适当代码。
Dim
s As String
Dim
i As Integer，sum As Integer
Dim
a(1 To 1000) As Integer
Dim
b(1 To 1000) As Integer
Dim
ton(1 To 6) As Integer '存储选中队列中各个班级的人数
Const
m = 6
Const
n = 300
Private
Sub Form_Load()
For i = 1 To n
'随机生成n个学生编号显示在列表框List1中，并将学生的班级号和性别分别存储在数组a和b中
Next i
End
Sub
Private
Sub Command1_Click()
Dim j As Integer, k As Integer, tmp As
Integer
k=Val(Text1.text)
For i = 1 To n – k + 1
For j =
If ton(a(j)) = 0 Then
sum = sum + 1
End If
If xb(b(j)) = False Then tmp = tmp + 1
Next j
If Then
List2.AddItem Str(i) + Str(i + k - 1)
End If
sum = 0: tmp = 0
For k = 1 To m
ton(k) = 0
Next k
Next i
End
Sub
Function
xb(data As Integer) As Boolean
xb = False
If data = 0 Then xb = True
End
Function
【答案】（1）2
（2）i to i+k- 1；ton(a(j))= ton(a(j))+1 或者ton(a(j))=1；sum=m And tmp=k/2
【知识点】过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1登录二一教育在线组卷平台 助您教考全无忧
浙江省湖州市2021-2022学年高三上学期信息技术高考考前模拟试卷（四）
一、选择题(本大题共12小题，每小题2分，共24分。)
1．（2021·湖州模拟）下列有关信息和信息技术的说法正确的（ ）
A．古代没有电脑、没有网络，也没有信息技术
B．信息的加工和管理必须使用计算机才能完成
C．对朋友圈里的信息进行点赞属于信息的个人推荐评价
D．随着信息技术的发展，信息的处理不需要人类参与就可以完成各项任务
2．（2021·湖州模拟）下列关于浏览器和网页的说法，正确的是（ ）
A．静态网页可根据情况的变化、用户的需要生成不同的页面
B．网页通过HTTP协议传输，可以通过浏览器解释执行HTML代码
C．在 IE 浏览器中，可以使用“添加到收藏夹”保存网页中的内容
D．将网页以“Web档案，单个文件（*.mht）”类型保存，其中的图片未被保存
3．（2021·湖州模拟）某医院使用Access创建“医疗管理系统”，某数据表的设计视图如下图所示，下列说法正确的是（ ）
A．当前数据库文件名是“用户信息.accdb”
B．可以在“用户信息”表的“是否住院”字段中输入逻辑值“否”
C．“诊断表”和“住院”表中都不可以包含“诊断卡号”字段
D．“诊断时间”字段值可以输入“2021/9/1”，也可以输入“17:00:00”
4．（2021·湖州模拟）用UltraEdit软件观察字符内码，部分界面如图所示，下列说法正确的是（ ）
A．上述字符中共有8个ASCII码字符
B．字符“10.0”的内码是“3A 2E 30”
C．字符“J”的内码用十六进制表示是“50”
D．汉字“联”的ASCII码用十六进制表示是“C1 AA”
5．（2021·湖州模拟）使用GoldWave软件编辑某音频文件，选中一段音频后的部分编辑界面如下图所示：
下列说法正确的是（ ）
A．该音频是 Wave 格式的文件，每秒钟采样44100次
B．当前状态下执行“剪裁”操作，音频时长变成30s
C．通过“更改音量”命令提升音量，音频的采样频率同步变大
D．当前状态下，执行“删除”命令后再插入30s静音，音频文件存储容量变大
6．（2021·湖州模拟）一段时长为1分钟、1024×768像素、RGB/8模式、PAL制式的AVI格式视频，该视频声音存储容量约为10M，则该视频文件存储容量约为（ ）
A．3.3GB B．1.1GB C．56.3MB D．66.3MB
7．（2021·湖州模拟）下列选项的结果与其他选项不同的是（ ）
A．Mid("5671732",4,2)
B．Int(Rnd * 9 + 40) \ 20 + 15
C．2019 Mod 100 – 2019\1000
D．(Asc("d") - Asc("a"))^ 3-Int（Sqr(101)）
8．（2021·湖州模拟）某算法的部分流程图如图所示，
输入s=“101001”，b=0，执行这部分流程后，输出b的结果是（ ）
A．31 B．15 C．3 D．1
9．（2021·湖州模拟）有如下VB程序段：
c = Text1.Text
s1 = "jiayou！" s2 = s1 + s1
For i =1 to len(s1)
If c = Mid(s2, i, Len(s1)) Then Exit For
Next i
Label1.Caption = Str(i)
程序执行完后，Label1中显示的内容是4，则Text1中输入的内容是（ ）
A．"jiayou!" B．"you!jia" C．"ayou!ji" D．"jayou!j"
10．（2021·湖州模拟）有如下VB程序：
n = 4
For i = 1 To 25
j = 1: a(j) = a(j) + 1
Do While a(j) = 4
a(j) = 0
j = j + 1
a(j) = a(j) + 1
Loop
Next i
For i = 1 To n
s = Str(a((i + 1) Mod 4 + 1)) + s
Next i
数组a(1)至a(4)初值均是0，执行该程序后，s的值是（ ）
A．"1012" B．"2101" C．"0121" D．"1210"
11．（2021·湖州模拟）有一组数据（共n*n）个，分别存放在a(1)至a(n*n)中，将这些数据平均分为n段，通过下列程序实现n段数据升序排序，例如，当n=4时，排序结果如图所示：
For i = 1 To ①
k = i
For j = i + 1 To ②
If a(j) < a(k) Then k = j
Next j
If k <> i Then
t = a(k)
a(k) = a(i)
a(i) = t
End If
s = s + Str(a(i))
If ③ Then
List1.AddItem s: s = ""
End If
Next i
划线处的代码应为（ ）
A．① n*n ② ((i - 1) \ 4 + 1) * 4 ③ i Mod 4 = 0
B．① n*n ② (i \ 4) * 4 ③ i \ 4 = 0
C．① n*n-1 ② ((i - 1) \ 4 + 1) * 4 ③ i Mod 4 = 0
D．① n*n-1 ② (i \ 4) * 4 ③ i \ 4 = 0
12．（2021·湖州模拟）有如下VB程序段：
i = 1: j = 9
k= Int(Rnd * 6) * 10 + Int(Rnd * 6)
Do While i <= j
m = (i + j) \ 2
If a(m) Mod 10 > k Mod 10 Then
j = m - 1
Else
i = m + 1
End If
Loop
已知数组a(1) 至a(9)中的值分别是“21,13,23,43,15,45,47,48,48”，运行该程序段后，j的值不可能是（ ）
A．1 B．4 C．6 D．7
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2021·湖州模拟）小李收集了某辩论赛的相关数据，并使用Excel软件进行处理，如图a所示。
图a
（1）在D16单元格中使用SUMIF函数计算“爱拼才会赢”所有队员第一回合得分之和，然后往右填充计算“爱拼才会赢”所有队员所有回合得分之和，则D16单元格中的公式是 。(提示：SUMIF 函数用于对区域中满足条件的单元格求和。例如：=SUMIF(B2:B15,"一辩",D2:D15)表示所有一辩队员第一回合的得分总和)
（2）根据图a中数据制作的图表如图b所示，创建该图表的数据区域是 。
图b
（3）小李把A1:H15的数据复制到Sheet2工作表，找出“to be No.1”辩论队中平均分最高的一辩选手（若存在符合条件的多名选手，则全部选取）。下列方法可行的是 （多选，填字母）
A．以“队名”为“to be No.1”进行筛选，再以“平均分”为关键字降序排序，选取排在最前面的队员
B．以“队名”为“to be No.1”进行筛选，再以“顺序”为主要关键字降序、“平均分”为次要关键字降序排序，选取排在最前面的队员
C．以“队名”、“顺序”和“平均分”分别为主要和次要关键字，排序方式依次设置升序、降序和降序，进行排序，选取排在最前面的队员
D．以“顺序”为“一辩”进行筛选，再以“平均分”为关键字降序排序，选取排在最前面的队员
14．（2021·湖州模拟）某同学制作了一主题是“垃圾分类”多媒体作品，他首先使用 PhotoShop软件制作一张背景图片，然后使用Flash软件制作动画。
（1）使用PhotoShop软件编辑背景图片，部分编辑界面如图a所示，在当前状态下，以下说法正确的是 （多选，填字母）。
图a
A．可以将“树木”图层的图层样式隐藏
B．可以使用自由变换命令仅将“美丽生活”中的“美丽”变大
C．将“小鸟”图层移动到“树木”图层的下方，图片的显示效果会发生改变
D．可以使用“移动工具”将“小鸟副本”的小鸟移动到“小鸟”图层中小鸟的左侧
E．删除“背景”图层，将图片直接存储为BMP格式，图片的存储容量约为1.06MB
（2）如图b所示，在当前状态下，执行测试影片命令，首先播放的场景是 ，“音乐”图层的声音 （单选，填字母：A .能/B .不能）正常播放。
图b
（3）如图b所示，“人物”图层第20帧到第40帧实现了人物淡入并放大的动画效果，要使人物在41帧处消失并持续到本场景结束，可以执行的操作是 。
（4）测试影片时，单击“跳转”按钮，声音停止播放，并跳转到下一场景第10帧继续播放，则需要在该按钮上添加的脚本命令是 。
15．（2021·湖州模拟）某次模拟考试后，某班主任为了统计本班学生的语文和数学成绩，制作了如下 VB 程序。程序界面如下图所示：在文本框Text1中输入语文和数学成绩，成绩之间用“，”隔开，以“，”结束，加载窗体时，将成绩提取到数组 a中，如a(1)表示第一位学生的语文成绩，a（2）表示第一位同学的数学成绩，如a(3)表示第二位学生的语文成绩，a（4）表示第二位同学的数学成绩，……，以此类推，单击按钮Command11，将成绩按照语文为主要关键字、数学为次要关键字做升序排序，并将排序后的结果显示在文本框Text2中。
（1）窗体中没有用到的控件是 。
A． B． C． D．
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码
Dim
a(1 To 20) As Integer
Dim
i As Integer, n As Integer
Private
Sub Form_Load()
Dim s As String, ch As String
n = 1：s = Text1.Text
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch <> "," Then
a(n) =
Else
n = n + 1
End If
Next i
End
Sub
Private
Sub Command1_Click()
Dim j As Integer, t1 As Integer, t2 As
Integer
For i = 2 To n/2
t1 = a(2 * i - 1): t2 = a(2 * i): j = i
- 1
Do While
a(2 * j + 1) = a(2 * j - 1)
a(2 * j + 2) = a(2 * j)
j = j - 1
If j = 0 Then Exit Do
Loop
a(2 * j + 1) = t1
Next i
For i = 1 To n/2
Text2.Text = Text2.Text + Str(a(2 * i - 1)) + Str(a(2 * i))
Next i
End Sub
（3）程序中加框处代码有误，请改正
16．（2021·湖州模拟）某学校某一年级共有m（偶数）个班级，在开展运动会期间，所有班级的学生随机站成一排并按位置顺序进行编号，已知共有n位同学。现要选取k位选手参加跳绳比赛，选取方法是：在排好的队列中选取连续的k位（k是偶数且k>=m）学生，要求每个班级至少有一位学生参加比赛，并且参赛的男生人数和女生人数相同。现要设计一VB程序，确定选取学生的起止位置，VB的部分界面如下图所示，加载窗体时，在List1中生成n个学生所处的位置和学生编号，其中位置就是学生所在队列中的位置，学生编号由两位数字构成，即班级+性别（0表示男生，1表示女生），在文本框Text1中输入抽取的学生的人数k，单击“抽取”按钮Command1，在列表框List2中显示满足条件的所有队列情况。
（1）若共有4个班级，学生排列的编号是11,21,30,11,40,41,30,21,20,10,11,20,31,40，若k=4，共存在 种抽取方案。
（2）请在划线处填入适当代码。
Dim
s As String
Dim
i As Integer，sum As Integer
Dim
a(1 To 1000) As Integer
Dim
b(1 To 1000) As Integer
Dim
ton(1 To 6) As Integer '存储选中队列中各个班级的人数
Const
m = 6
Const
n = 300
Private
Sub Form_Load()
For i = 1 To n
'随机生成n个学生编号显示在列表框List1中，并将学生的班级号和性别分别存储在数组a和b中
Next i
End
Sub
Private
Sub Command1_Click()
Dim j As Integer, k As Integer, tmp As
Integer
k=Val(Text1.text)
For i = 1 To n – k + 1
For j =
If ton(a(j)) = 0 Then
sum = sum + 1
End If
If xb(b(j)) = False Then tmp = tmp + 1
Next j
If Then
List2.AddItem Str(i) + Str(i + k - 1)
End If
sum = 0: tmp = 0
For k = 1 To m
ton(k) = 0
Next k
Next i
End
Sub
Function
xb(data As Integer) As Boolean
xb = False
If data = 0 Then xb = True
End
Function
答案解析部分
1．【答案】C
【知识点】因特网信息资源评价；信息加工与处理的概念
2．【答案】B
【知识点】网络资源的类型、下载与保存；浏览器；网页、网站的概念与联系
3．【答案】D
【知识点】数据表、字段、记录的编辑
4．【答案】A
【知识点】字符编码
5．【答案】D
【知识点】声音素材的基本处理；声音、图像、视频编码
6．【答案】A
【知识点】声音、图像、视频编码
7．【答案】A
【知识点】运算符、基本运算与表达式；常用标准函数
8．【答案】A
【知识点】流程图识读
9．【答案】B
【知识点】循环结构语句及程序实现；常用标准函数
10．【答案】B
【知识点】循环结构语句及程序实现
11．【答案】A
【知识点】排序算法及程序实现
12．【答案】D
【知识点】查找算法及程序实现
13．【答案】（1）=SUMIF ($C2:$C15,”爱拼才会赢”，D2:D15)
（2）C1:G1, C16:G17
（3）B；C
【知识点】表格数据的处理与计算
14．【答案】（1）A；C；E
（2）load；A
（3）在“人物”图层第41帧执行“插入空白关键帧”操作或在“人物”图层第41-60帧执行“清除帧”或“删除帧操作”
（4）on (press/release) {stopAllSounds () ; gotoAndPlay("rubbish" , 10);}
【知识点】图层及图层的基本操作；时间轴、帧、图层、库的概念及基本操作；常用影片控制函数的应用
15．【答案】（1）D
（2）a(n)*10+Val(ch)；n=n-1；a(2*j+2)=t2
（3）a(2*j - 1) > t1 0ra(2*j-1)=t1Anda(2*j)>t2
【知识点】程序设计工具及编程环境；分支结构语句及程序实现；循环结构语句及程序实现
16．【答案】（1）2
（2）i to i+k- 1；ton(a(j))= ton(a(j))+1 或者ton(a(j))=1；sum=m And tmp=k/2
【知识点】过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1
