资源简介

浙江省2022届高三信息技术选考模拟试卷（一）
一、选择题
1．（2021·浙江模拟）下列有关信息与信息技术的说法，正确的是（　　）
A．信息无处不在，它必须依附于载体
B．信息具有时效性，过期的信息没有任何意义
C．信息技术就是使用计算机处理各种信息的技术
D．5G通信技术就是速度可以达到5Gb/s的通信技术
2．（2021·浙江模拟）下列关于信息安全的说法，不正确的是（　　）
A．微信好友发来的信息一定是真实可信的
B．随意扫描网页中的二维码存在安全风险
C．智能手机使用指纹解锁可以提高信息的安全
D．字母、数字、符号等组成的密码的安全性相对较高
3．（2021·浙江模拟）用Access软件设计某商品管理系统的数据库，其中“商品入库表”数据表用于存储如图所示的数据。
商品编号 商品名称 价格 单位 数量 配送单位 入库时间
001 商品1 39.8 盒 100 单位A 2021.2.1
001 商品1 39.8 盒 200 单位B 2021.2.3
003 商品3 19.8 袋 150 单位C 2021.2.6
… … … … … … …
下列关于“商品入库表”数据表的描述，正确的是（　　）
A．该数据表的字段名称必须与上表所示每列名称相同
B．图中“价格”列在该数据表中相应字段的数据类型只能是“货币”型
C．可以把图中“商品名称”列在该数据表中相应的字段设置为主键
D．可以在图中“入库时间”列在该数据表中相应的字段前插入一个“经办人”字段
4．（2021·浙江模拟）使用UltraEdit软件查看字符内码，部分界面如下图所示。
下列说法不正确的是（　　）
A．图中共有7个ASCII码字符
B．图中字符“！”的内码为“A3A1”
C．字母“g”的内码转换为十进制为6×162+7×161
D．图中字符“o”、“G”和“2”的内码值依次从大到小
5．（2021·浙江模拟）使用 Photoshop 软件制作“党建”作品，部分界面如图所示。
下列说法正确的是（　　）
A．“党的历史”图层必定没有设置滤镜效果
B．当前状态下“百年征程”图层的图层样式是可视的
C．“军人剪影”图层被锁定，故不可以把该图层移动到“红旗”图层的下方
D．当前状态下可以使用“自由变换”改变“党的历史”图层的部分文字大小
6．（2021·浙江模拟）一段时长为20秒、1024×800像素、NTSC制式（30帧/秒）的未经压缩AVI格式无声视频，其文件存储容量约为1.37GB，则该视频的量化位数是（　　）
A．8位 B．16位 C．24位 D．32位
7．（2021·浙江模拟）要实现将整数变量a、b和c中的最大值存变量m，下列VB程序段中不正确的是（　　）
A．
B．
C．
D．
8．（2021·浙江模拟）某算法的部分流程图如图所示。
执行这部分流程，若依次输入2,-3,5,1,2,-1,-8,3,4,0，则输出变量m的值为（　　）
A．5 B．6 C．7 D．8
9．（2021·浙江模拟）有如下VB程序段：
s = "python": b = 0
For i = 1 To Len(s) - 1
a = Abs(Asc(Mid(s, i, 1)) - Asc(Mid(s, i + 1, 1)))
If a > b Then b = a
Next i
Label1．Caption = Str(b)
执行该程序段后，标签Label1上显示的内容是（　　）
A．1 B．7 C．9 D．12
10．（2021·浙江模拟）以下VB程序实现把文本框Text1和Text2中输入的升序字符串s1和s2合并成一个升序字符串s，并在文本框Text3中显示。如s1为“aceghi”，s2为“bdf”，合并结果为“abcdefghi”。
s1 = Text1．Text : s2 = Text2．Text
i = 1: j = 1: k = 1
Do While ⑴
If j > Len(s2) Or i <= Len(s1) And Mid(s1, i, 1) < Mid(s2, j, 1) Then
⑵
Else
⑶
End If
Loop
Text3.Text = s
上述程序段3个方框处的代码分别为（　　）
A．
B．
C．
D．
11．（2021·浙江模拟）有如下VB程序段：
c = 0
For i = 1 To n - 1
k = i
For j = i + 1 To n
If a(j) < a(k) Then k = j
Next j
If i <> k Then
c = c + 1
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
数组元素a(1)到a(6)的初始值依次是5,3,1,0,9,8,，执行该程序段后，变量c的值是（　　）
A．2 B．3 C．4 D．5
12．（2021·浙江模拟）某对分查找算法的VB程序段如下：
key = Val(Text1.Text)
s = ""
i = 1: j = 10
Do While i <= j
m = (i + j) \ 2
s = s + Str(m)
If a(m) = key Then Exit Do
If a(m) > key Then j = m - 1 Else i = m + 1
Loop
Label1.Caption = s
数组元素a(1)到a(10)依次存放10个升序的整数。在文本框Text1中输入一个任意整数执行该程序段，标签Label上中显示的内容可能的是（　　）
A．5 2 3 1 B．5 3 2 4 C．5 8 6 7 D．5 8 9 7
二、操作题
13．（2021·浙江模拟）小王收集了2020年12月和2021年1月我国重要生产资料市场价格数据，并使用Excel软件进行数据处理，如图a所示。
图a
请回答下列问题：
（1）区域G3:G35的数据是通过公式计算得到的，在G3单元格中输入公式后，使用自动填充功能完成区域G4:G35的计算，则G3单元格中的公式是　 　。
（提示：涨跌幅（%）=本期价格（元）-上期价格（元）/ 上期价格（元）*100）
（2）根据图a中的数据制作图表如图b所示，则图表的数据源是　 　。
图b
（3）结合图a、图b分析，下列说法正确的有 （多选，填字母）。
A．若删除“F列”，则图b所示图表不会随之改变
B．若不小心删除D3单元格的值，则G3单元格显示的内容变为“#DIV/0!”
C．以“类别”为“黑色金属”，“涨跌幅（%）”为“最大一项”进行筛选，则筛选出黑色金属中涨幅最大的产品
D．选中区域A2:F35，按“比上期价格涨跌(元)”降序排序，区域G3:G35显示的值不会随之改变
14．（2021·浙江模拟）使用Flash软件创作“党建”作品，编辑“片头”场景，部分界面如图所示。请回答下列问题：
（1）在制作作品前进行多媒体作品设计，下列说法正确的有 (多选，填字母)。
A．分析该作品的社会效益属于创作需求分析
B．分析创作该作品所需的硬件和软件属于应用需求分析
C．在结构设计阶段需确定作品的组成部分、工作流程和主要界面
D．在脚本编写阶段需确定各模块所需的媒体元素及获取、处理方法
（2）如上图所示，“军人”图层的第1帧到第20帧实现军人从完全透明到完全显示变化的效果，则该图层第1帧中实例的Alpha值为　 　%。修改“军人”实例的Alpha值，则库中对应元件　 　（填：会/不会）发生改变。
（3）在上图所示状态下，若要使“党徽”图层的补间动画推迟2秒出现，时长变为2秒且结束时间保持不变，则可行的操作是　 　。
（4）测试影片时，单击当前场景中的“继续”按钮，跳转到“main”场景第1帧继续播放。以下脚本命令正确的是 （多选，填字母）。
A．on (release) {play();}
B．on (release) {play("main",1);}
C．on (release) {gotoAndplay(1);}
D．on (release) {gotoAndplay("main",1);}
15．（2021·浙江模拟）某教室在上午8点到12点的时间段可以安排活动。为了安排尽可能多场次的活动，按以下方法安排：先安排结束时间早的活动；若有多个活动的结束时间相同，则优先安排占用时间少的活动。要求编写一个VB程序，实现上述功能。在文本框Text1中输入一批数据（数据都用逗号分隔并以逗号结尾），奇数位置数据表示某活动的起始时间，偶数位置数据表示该活动的结束时间，单击“确定”按钮Command1后，在列表框List1中显示各活动的起始和结束时间，在列表框List2中显示选择安排的活动。运行界面如图所示。
（1）要清空Text1中的内容，可以把Text1对象的　 　属性设置为空值。（单选，填字母：A . Caption / B . Text / C . Text．Clear）。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Const n = 100
Dim ss As String, t As String,
i As Integer
Dim k As Integer, p As Integer,
temp As Integer
Dim s(1 To n) As Integer, f(1
To n) As Integer
Dim num(1 To n) As Integer,
flag(1 To n) As Boolean
ss = Text1.Text
starttime = 480: endtime =
720 '教室可以安排活动时间为8:00到12:00
k = 0: p = 0
For i = 1 To Len(ss)
ch = Mid(ss, i, 1)
If
ch <> "," Then
t = t + ch
Else
　 　
p = (k - 1) \ 2 + 1
If k Mod 2 = 1 Then s(p) = convert(t)
Else f(p) = convert(t)
t = ""
End If
Next i
For i = 1 To p
num(i) = i
Next i
For i = 1 To p
List1.AddItem Str(num(i)) + " "
+ ff(s(i)) + " " + ff(f(i))
Next i
For i = 1 To p - 1
For j = p To i + 1 Step -1
If Then
temp = num(j): num(j) = num(j - 1): num(j - 1) = temp
temp = s(j): s(j) = s(j - 1): s(j - 1) = temp
temp = f(j): f(j) = f(j - 1): f(j - 1) = temp
End If
Next j
Next i
For i = 1 To p
If s(i) >= starttime And f(i) <= endtime Then
flag(i) = True
　 　
End If
Next i
List2.AddItem "活动号 起始时间 结束时间"
For i = 1 To p
If　 　Then
List2.AddItem Str(num(i)) + " " + ff(s(i)) + " " + ff(f(i))
End If
Next i
End Sub
Function convert(s As String) As Integer
'把时间格式的s转换为整数，如"08:20"转化为500。代码略
End Function
Function ff(t As Integer) As String
'把整数t转换为时间格式，如500转化为"08:20"。代码略
End Function
（3）程序加框处的代码有误，请改正。
16．（2021·浙江模拟）对n位二进制数进行海明码编码（n是8的倍数），以8位二进制数为一段，每段插入4位校验位，构成12位二进制数，依次处理，完成各段数据编码。
每段海明码编码方法如下：
插入二进制位：在第1、2、4、8位置上插入4个二进制位r1、r2、r3、r4，初值为0。把原8位二进制数d1~d8从左往右依次填入剩余位置中，原数据位和插入的二进制位如图a所示：
图a
计算插入的校验位的值：把每个位置号转换成4位二进制数，选出形如“***1”（“*”表示一位0或1）的位置号，则统计这些位置号对应数据位中的“1”的个数，若是奇数，则r1为1，否则为0；再选出形如“**1*”的位置号，则统计这些位置号对应数据位中的“1”的个数，若是奇数，则r2为1，否则为0；以此类推……
如8位二进制数“10101101”的编码过程如下：
1）插入4个二进制位，初值为0，剩余位置依次填入原数据位，如图b所示。
图b
2）计算插入的校验位的值，选出形如“***1”的位置号，即1、3、5、7、9、11，统计这些位置号对应数据位中“1”的个数为2，故r1=0，同理可得：r2=1，r3=0，r4=1，如图c所示。
图c
3）按位置号从小到大依次拼接各数据位得到最后编码“011001011101”。
（1）若要计算校验位r2的值，需统计位置号为　 　的数据位中1的个数（依次填整数表示的位置号，用逗号分隔）。
（2）编写VB程序实现上述功能，代码如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, m As Integer
Dim s As String, ch As String, result As String
Dim a(1 To 12) As Integer, n(1 To 4) As Integer
Dim b(1 To 8) As Integer
b(1) = 3: b(2) = 5: b(3) = 6: b(4) = 7
b(5) = 9: b(6) = 10: b(7) = 11: b(8) = 12 '编码数据的插入位置
s = Text1．Text: result = ""
For i = 1 To Len(s) \ 8
For j = 1 To 12
a(j) = 0
Next j
For j = 1 To 8
ch = Mid(s, (i - 1) * 8 + j, 1)
　 　 '把编码数据插入相应位置
Next j
For j = 1 To 4
n(j) = 0
Next j
For j = 1 To 12
m = j
For k = 1 To 4
If m Mod 2 = 1 Then 　 　
m = m \ 2
Next k
Next j
For j = 1 To 4
a(2 ^ (j - 1)) = 　 　
Next j
For j = 1 To 12
result = result + Chr(Asc("0") + a(j))
Next j
Next i
Text2.Text = result
End Sub
答案解析部分
1．【答案】A
【知识点】信息及其特征；信息技术的概念与关键技术
2．【答案】A
【知识点】信息系统安全防护
3．【答案】D
【知识点】数据表、字段、记录的编辑；字段的数据类型
4．【答案】C
【知识点】进制及数制转换；字符编码
5．【答案】A
【知识点】图片加工常用工具的使用；图层及图层的基本操作
6．【答案】C
【知识点】声音、图像、视频编码
7．【答案】B
【知识点】分支结构语句及程序实现
8．【答案】D
【知识点】流程图识读
9．【答案】D
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
10．【答案】A
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
11．【答案】B
【知识点】排序算法及程序实现
12．【答案】C
【知识点】查找算法及程序实现
13．【答案】（1）=(E3-D3)/D3*100
（2）B2,B23:B28,G2,G23:G28 或 B23:B28,G23:G28
（3）A；B
【知识点】表格数据的处理与计算；数据分析
14．【答案】（1）C；D
（2）0；不会
（3）选中“党徽”图层第20帧移动到第40帧
（4）A；D
【知识点】多媒体作品的规划和设计；二维动画实例属性的设置；动画的实现；常用影片控制函数的应用
15．【答案】（1）B
（2）k = k + 1；f(j) < f(j - 1) Or f(j) = f(j - 1) And s(j) > s(j - 1)；starttime = f(i)
（3）flag(i) 或flag(i) = True
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；过程与自定义函数；排序算法及程序实现
16．【答案】（1）2,3,6,7,10,11
（2）a(b(j)) = Val(ch)；n(k) = n(k) + a(j)；n(j) Mod 2
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
1 / 1浙江省2022届高三信息技术选考模拟试卷（一）
一、选择题
1．（2021·浙江模拟）下列有关信息与信息技术的说法，正确的是（　　）
A．信息无处不在，它必须依附于载体
B．信息具有时效性，过期的信息没有任何意义
C．信息技术就是使用计算机处理各种信息的技术
D．5G通信技术就是速度可以达到5Gb/s的通信技术
【答案】A
【知识点】信息及其特征；信息技术的概念与关键技术
2．（2021·浙江模拟）下列关于信息安全的说法，不正确的是（　　）
A．微信好友发来的信息一定是真实可信的
B．随意扫描网页中的二维码存在安全风险
C．智能手机使用指纹解锁可以提高信息的安全
D．字母、数字、符号等组成的密码的安全性相对较高
【答案】A
【知识点】信息系统安全防护
3．（2021·浙江模拟）用Access软件设计某商品管理系统的数据库，其中“商品入库表”数据表用于存储如图所示的数据。
商品编号 商品名称 价格 单位 数量 配送单位 入库时间
001 商品1 39.8 盒 100 单位A 2021.2.1
001 商品1 39.8 盒 200 单位B 2021.2.3
003 商品3 19.8 袋 150 单位C 2021.2.6
… … … … … … …
下列关于“商品入库表”数据表的描述，正确的是（　　）
A．该数据表的字段名称必须与上表所示每列名称相同
B．图中“价格”列在该数据表中相应字段的数据类型只能是“货币”型
C．可以把图中“商品名称”列在该数据表中相应的字段设置为主键
D．可以在图中“入库时间”列在该数据表中相应的字段前插入一个“经办人”字段
【答案】D
【知识点】数据表、字段、记录的编辑；字段的数据类型
4．（2021·浙江模拟）使用UltraEdit软件查看字符内码，部分界面如下图所示。
下列说法不正确的是（　　）
A．图中共有7个ASCII码字符
B．图中字符“！”的内码为“A3A1”
C．字母“g”的内码转换为十进制为6×162+7×161
D．图中字符“o”、“G”和“2”的内码值依次从大到小
【答案】C
【知识点】进制及数制转换；字符编码
5．（2021·浙江模拟）使用 Photoshop 软件制作“党建”作品，部分界面如图所示。
下列说法正确的是（　　）
A．“党的历史”图层必定没有设置滤镜效果
B．当前状态下“百年征程”图层的图层样式是可视的
C．“军人剪影”图层被锁定，故不可以把该图层移动到“红旗”图层的下方
D．当前状态下可以使用“自由变换”改变“党的历史”图层的部分文字大小
【答案】A
【知识点】图片加工常用工具的使用；图层及图层的基本操作
6．（2021·浙江模拟）一段时长为20秒、1024×800像素、NTSC制式（30帧/秒）的未经压缩AVI格式无声视频，其文件存储容量约为1.37GB，则该视频的量化位数是（　　）
A．8位 B．16位 C．24位 D．32位
【答案】C
【知识点】声音、图像、视频编码
7．（2021·浙江模拟）要实现将整数变量a、b和c中的最大值存变量m，下列VB程序段中不正确的是（　　）
A．
B．
C．
D．
【答案】B
【知识点】分支结构语句及程序实现
8．（2021·浙江模拟）某算法的部分流程图如图所示。
执行这部分流程，若依次输入2,-3,5,1,2,-1,-8,3,4,0，则输出变量m的值为（　　）
A．5 B．6 C．7 D．8
【答案】D
【知识点】流程图识读
9．（2021·浙江模拟）有如下VB程序段：
s = "python": b = 0
For i = 1 To Len(s) - 1
a = Abs(Asc(Mid(s, i, 1)) - Asc(Mid(s, i + 1, 1)))
If a > b Then b = a
Next i
Label1．Caption = Str(b)
执行该程序段后，标签Label1上显示的内容是（　　）
A．1 B．7 C．9 D．12
【答案】D
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
10．（2021·浙江模拟）以下VB程序实现把文本框Text1和Text2中输入的升序字符串s1和s2合并成一个升序字符串s，并在文本框Text3中显示。如s1为“aceghi”，s2为“bdf”，合并结果为“abcdefghi”。
s1 = Text1．Text : s2 = Text2．Text
i = 1: j = 1: k = 1
Do While ⑴
If j > Len(s2) Or i <= Len(s1) And Mid(s1, i, 1) < Mid(s2, j, 1) Then
⑵
Else
⑶
End If
Loop
Text3.Text = s
上述程序段3个方框处的代码分别为（　　）
A．
B．
C．
D．
【答案】A
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
11．（2021·浙江模拟）有如下VB程序段：
c = 0
For i = 1 To n - 1
k = i
For j = i + 1 To n
If a(j) < a(k) Then k = j
Next j
If i <> k Then
c = c + 1
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
数组元素a(1)到a(6)的初始值依次是5,3,1,0,9,8,，执行该程序段后，变量c的值是（　　）
A．2 B．3 C．4 D．5
【答案】B
【知识点】排序算法及程序实现
12．（2021·浙江模拟）某对分查找算法的VB程序段如下：
key = Val(Text1.Text)
s = ""
i = 1: j = 10
Do While i <= j
m = (i + j) \ 2
s = s + Str(m)
If a(m) = key Then Exit Do
If a(m) > key Then j = m - 1 Else i = m + 1
Loop
Label1.Caption = s
数组元素a(1)到a(10)依次存放10个升序的整数。在文本框Text1中输入一个任意整数执行该程序段，标签Label上中显示的内容可能的是（　　）
A．5 2 3 1 B．5 3 2 4 C．5 8 6 7 D．5 8 9 7
【答案】C
【知识点】查找算法及程序实现
二、操作题
13．（2021·浙江模拟）小王收集了2020年12月和2021年1月我国重要生产资料市场价格数据，并使用Excel软件进行数据处理，如图a所示。
图a
请回答下列问题：
（1）区域G3:G35的数据是通过公式计算得到的，在G3单元格中输入公式后，使用自动填充功能完成区域G4:G35的计算，则G3单元格中的公式是　 　。
（提示：涨跌幅（%）=本期价格（元）-上期价格（元）/ 上期价格（元）*100）
（2）根据图a中的数据制作图表如图b所示，则图表的数据源是　 　。
图b
（3）结合图a、图b分析，下列说法正确的有 （多选，填字母）。
A．若删除“F列”，则图b所示图表不会随之改变
B．若不小心删除D3单元格的值，则G3单元格显示的内容变为“#DIV/0!”
C．以“类别”为“黑色金属”，“涨跌幅（%）”为“最大一项”进行筛选，则筛选出黑色金属中涨幅最大的产品
D．选中区域A2:F35，按“比上期价格涨跌(元)”降序排序，区域G3:G35显示的值不会随之改变
【答案】（1）=(E3-D3)/D3*100
（2）B2,B23:B28,G2,G23:G28 或 B23:B28,G23:G28
（3）A；B
【知识点】表格数据的处理与计算；数据分析
14．（2021·浙江模拟）使用Flash软件创作“党建”作品，编辑“片头”场景，部分界面如图所示。请回答下列问题：
（1）在制作作品前进行多媒体作品设计，下列说法正确的有 (多选，填字母)。
A．分析该作品的社会效益属于创作需求分析
B．分析创作该作品所需的硬件和软件属于应用需求分析
C．在结构设计阶段需确定作品的组成部分、工作流程和主要界面
D．在脚本编写阶段需确定各模块所需的媒体元素及获取、处理方法
（2）如上图所示，“军人”图层的第1帧到第20帧实现军人从完全透明到完全显示变化的效果，则该图层第1帧中实例的Alpha值为　 　%。修改“军人”实例的Alpha值，则库中对应元件　 　（填：会/不会）发生改变。
（3）在上图所示状态下，若要使“党徽”图层的补间动画推迟2秒出现，时长变为2秒且结束时间保持不变，则可行的操作是　 　。
（4）测试影片时，单击当前场景中的“继续”按钮，跳转到“main”场景第1帧继续播放。以下脚本命令正确的是 （多选，填字母）。
A．on (release) {play();}
B．on (release) {play("main",1);}
C．on (release) {gotoAndplay(1);}
D．on (release) {gotoAndplay("main",1);}
【答案】（1）C；D
（2）0；不会
（3）选中“党徽”图层第20帧移动到第40帧
（4）A；D
【知识点】多媒体作品的规划和设计；二维动画实例属性的设置；动画的实现；常用影片控制函数的应用
15．（2021·浙江模拟）某教室在上午8点到12点的时间段可以安排活动。为了安排尽可能多场次的活动，按以下方法安排：先安排结束时间早的活动；若有多个活动的结束时间相同，则优先安排占用时间少的活动。要求编写一个VB程序，实现上述功能。在文本框Text1中输入一批数据（数据都用逗号分隔并以逗号结尾），奇数位置数据表示某活动的起始时间，偶数位置数据表示该活动的结束时间，单击“确定”按钮Command1后，在列表框List1中显示各活动的起始和结束时间，在列表框List2中显示选择安排的活动。运行界面如图所示。
（1）要清空Text1中的内容，可以把Text1对象的　 　属性设置为空值。（单选，填字母：A . Caption / B . Text / C . Text．Clear）。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Const n = 100
Dim ss As String, t As String,
i As Integer
Dim k As Integer, p As Integer,
temp As Integer
Dim s(1 To n) As Integer, f(1
To n) As Integer
Dim num(1 To n) As Integer,
flag(1 To n) As Boolean
ss = Text1.Text
starttime = 480: endtime =
720 '教室可以安排活动时间为8:00到12:00
k = 0: p = 0
For i = 1 To Len(ss)
ch = Mid(ss, i, 1)
If
ch <> "," Then
t = t + ch
Else
　 　
p = (k - 1) \ 2 + 1
If k Mod 2 = 1 Then s(p) = convert(t)
Else f(p) = convert(t)
t = ""
End If
Next i
For i = 1 To p
num(i) = i
Next i
For i = 1 To p
List1.AddItem Str(num(i)) + " "
+ ff(s(i)) + " " + ff(f(i))
Next i
For i = 1 To p - 1
For j = p To i + 1 Step -1
If Then
temp = num(j): num(j) = num(j - 1): num(j - 1) = temp
temp = s(j): s(j) = s(j - 1): s(j - 1) = temp
temp = f(j): f(j) = f(j - 1): f(j - 1) = temp
End If
Next j
Next i
For i = 1 To p
If s(i) >= starttime And f(i) <= endtime Then
flag(i) = True
　 　
End If
Next i
List2.AddItem "活动号 起始时间 结束时间"
For i = 1 To p
If　 　Then
List2.AddItem Str(num(i)) + " " + ff(s(i)) + " " + ff(f(i))
End If
Next i
End Sub
Function convert(s As String) As Integer
'把时间格式的s转换为整数，如"08:20"转化为500。代码略
End Function
Function ff(t As Integer) As String
'把整数t转换为时间格式，如500转化为"08:20"。代码略
End Function
（3）程序加框处的代码有误，请改正。
【答案】（1）B
（2）k = k + 1；f(j) < f(j - 1) Or f(j) = f(j - 1) And s(j) > s(j - 1)；starttime = f(i)
（3）flag(i) 或flag(i) = True
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；过程与自定义函数；排序算法及程序实现
16．（2021·浙江模拟）对n位二进制数进行海明码编码（n是8的倍数），以8位二进制数为一段，每段插入4位校验位，构成12位二进制数，依次处理，完成各段数据编码。
每段海明码编码方法如下：
插入二进制位：在第1、2、4、8位置上插入4个二进制位r1、r2、r3、r4，初值为0。把原8位二进制数d1~d8从左往右依次填入剩余位置中，原数据位和插入的二进制位如图a所示：
图a
计算插入的校验位的值：把每个位置号转换成4位二进制数，选出形如“***1”（“*”表示一位0或1）的位置号，则统计这些位置号对应数据位中的“1”的个数，若是奇数，则r1为1，否则为0；再选出形如“**1*”的位置号，则统计这些位置号对应数据位中的“1”的个数，若是奇数，则r2为1，否则为0；以此类推……
如8位二进制数“10101101”的编码过程如下：
1）插入4个二进制位，初值为0，剩余位置依次填入原数据位，如图b所示。
图b
2）计算插入的校验位的值，选出形如“***1”的位置号，即1、3、5、7、9、11，统计这些位置号对应数据位中“1”的个数为2，故r1=0，同理可得：r2=1，r3=0，r4=1，如图c所示。
图c
3）按位置号从小到大依次拼接各数据位得到最后编码“011001011101”。
（1）若要计算校验位r2的值，需统计位置号为　 　的数据位中1的个数（依次填整数表示的位置号，用逗号分隔）。
（2）编写VB程序实现上述功能，代码如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, m As Integer
Dim s As String, ch As String, result As String
Dim a(1 To 12) As Integer, n(1 To 4) As Integer
Dim b(1 To 8) As Integer
b(1) = 3: b(2) = 5: b(3) = 6: b(4) = 7
b(5) = 9: b(6) = 10: b(7) = 11: b(8) = 12 '编码数据的插入位置
s = Text1．Text: result = ""
For i = 1 To Len(s) \ 8
For j = 1 To 12
a(j) = 0
Next j
For j = 1 To 8
ch = Mid(s, (i - 1) * 8 + j, 1)
　 　 '把编码数据插入相应位置
Next j
For j = 1 To 4
n(j) = 0
Next j
For j = 1 To 12
m = j
For k = 1 To 4
If m Mod 2 = 1 Then 　 　
m = m \ 2
Next k
Next j
For j = 1 To 4
a(2 ^ (j - 1)) = 　 　
Next j
For j = 1 To 12
result = result + Chr(Asc("0") + a(j))
Next j
Next i
Text2.Text = result
End Sub
【答案】（1）2,3,6,7,10,11
（2）a(b(j)) = Val(ch)；n(k) = n(k) + a(j)；n(j) Mod 2
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
1 / 1

展开更多......

收起↑