资源简介

登录二一教育在线组卷平台 助您教考全无忧
浙江省湖州市2021-2022学年高三上学期信息技术高考考前模拟（三）
一、选择题(本大题共12小题，每小题2分，共24分。)
1．（2021·湖州模拟）下列有关信息和信息技术的说法，正确的是（　　）
A．信息技术和多媒体技术从古至今一直存在
B．物质、能源和信息是构成当今人类社会的三大要素
C．文字、语言、图形、图像、声音和形体动作都是常见的信息表达技术
D．用支付宝支付时，在一定时间段内二维码会自动更新，这体现了信息的实时性
2．（2021·湖州模拟）下列有关网页和邮件的说法，不正确的是（　　）
A．自动网页搜索技术和全文检索技术是搜索引擎的两大核心技术
B．将网页保存为“网页，仅HTML”类型，可以保存网页中的图片
C．SMTP协议是实现将电子邮件从发件人计算机发送到收件人电子信箱的协议
D．HTTP协议的作用是将浏览器发出的请求发送至Web服务器，并将服务器回应的网页传回至浏览器
3．（2021·湖州模拟）使用Access软件创建数据表如下图所示，下列说法正确的是（　　）
A．当前数据库的文件名是“资产说明.accdb”
B．进入“资产说明”的设计视图后，无法将“ID”字段设为主键
C．添加一条新记录，则新记录的“ID”字段值可能为“5”
D．在某条记录的“购置日期”字段中输入“2018-10-29”，不会自动转为“2018/10/29”
4．（2021·湖州模拟）将下列数转换成十进制数，其中是8的倍数的是（　　）
A．10111010B B．101110011B C．123H D．120H
5．（2021·湖州模拟）利用PhotoShop软件制作“夏至.psd”作品，编辑界面如下图所示：
下列描述正确的是（　　）
A．可以将“夏至”图层的图层样式复制粘贴到“花”图层
B．调整“夏至”和“圆”的图层顺序，不会影响作品的呈现效果
C．可以使用“自由变换”命令仅将“夏至”图层中的“夏”字变大
D．设置背景图层不透明度为0%，将当前文件保存为夏至.png格式，可以看见透明背景
6．（2021·湖州模拟）一幅未经压缩的1024×1600像素的BMP图像，将该图像存储为JPEG格式（其他参数不变），其存储容量为100KB，图像的压缩比约为32：1，则该图像的色彩位数为（
A．4位 B．8位 C．16位 D．24位
7．（2021·湖州模拟）已知ch是一小写字母，VB表达式Int（Asc（ch）/10+0.5）+Int（Rnd*3-1）^2的最大值是（　　）
A．11 B．12 C．13 D．14
8．（2021·湖州模拟）某算法的流程图如图所示，若输入k1=0，k2=0，n是1到31之间的整数，执行这部分流程之后，输出k1和k2的值相等，则满足条件的n的值的个数是（　　）
A．4 B．6 C．7 D．8
9．（2021·湖州模拟）有如下VB程序段：
s1 = "2019GaoKao"
For i = 1 To Len(s1)
ch = Mid(s1, i, 1)
If ch >= "0" And ch <= "9" Then
ch = Str((Val(ch)+1) Mod 10)
s2 = ch + s2
ElseIf ch >= "a" And ch <= "z" Then
ch = Chr(Asc(ch) - 32) s2 = s2 + ch
End If
Next i
该程序运行后，s2的值是（　　）
A．"A0A00213" B．"0213A0A0" C．"02130A0A" D．"0A0A0213"
10．（2021·湖州模拟）反转字符串，如输入字符串为“abcdefg”，则输出字符串“gfedcba”，实现该功能的部分程序如下所示，划线处的正确语句是（　　）
s = Text1.Text：n = Len(s)
'按s中字符顺序从左到右依次存入到数组a中，代码略
i = 1
Do While i <= n - 1
t = ①
For j = n - 1 To i Step -1
a(j + 1) = a(j)
Next j
②
i = i + 1
Loop
For i = 1 To Len(s)
Text2.Text = Text2.Text + ③
Next i
A．① a(n) ② a(j + 1) = t ③ a(i)
B．① a(n) ② a(j) = t ③ a(i)
C．① a(i) ② a(j + 1) = t ③ Str(a(i))
D．① a(i) ② a(j) = t ③ Str(a(i))
11．（2021·湖州模拟）有如下VB程序：
n = 7
For i = 1 To n \ 2
For j = n - i + 1 To i + 1 Step -1
If a(j) Mod 10 > a(j - 1) Mod 10 Then
t = a(j): a(j) = a(j - 1): a(j - 1) = t
End If
Next j
Next i
已知a(1)到a(7)各元素初值分别是31、22、73、54、85、26、37，运行上述程序后，a(1)到a(7)各元素的值分别是（　　）
A．85、73、54、31、22、37、26 B．37、26、22、31、54、73、85
C．37、85、73、31、22、54、26 D．26、54、22、31、73、85、37
12．（2021·湖州模拟）有如下VB程序
i=1：j=10：key=Val(Text1.Text) Do While i <= j m = (i + j + 1) \ 2 If a(m) >= key Then j = m - 1 Else i = m + 1 End If Loop (程序 a) i=1：j=10: key=Val(Text1.Text) Do While i <= j m = (i + j + 1) \ 2 If a(m) > key Then j = m - 1 Else i = m + 1 End If Loop (程序b)
以下说法正确的是（　　）
A．若要使用程序a或程序 b查找某个数据，数组a中的数据可以是降序排序
B．无论key的值是多少，执行程序a和程序b后一定有i = j + 1成立
C．无论key的值是多少，执行程序a和程序b后i的值一定相同
D．无论key的值是多少，执行程序a和程序b后j的值一定相同
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2021·湖州模拟）小张收集了某些学生期中考试的部分数据，并使用Excel软件进行数据处理，如图a所示，请回答下列问题：
图a
（1）区域F3:F11中的数据是通过公式计算得到的，F3中的数据已经正确计算，通过自动填充功能完成区域 F4:F11，则 F6 中的计算结果是 　 　（单选，填字母：A
. */B . 214/C . #VALUE!/D . #REF!）
（2）根据图a制作了如图b所示的图表，创建该图表的数据区域是　 　。
图b
（3）图a和图b，下列说法正确的是 。
A．正确完成第（1）小题的计算后，不小心删除C列，则原F3中的总分变成252
B．若要得到1班中总分最高的记录，可以按照“班级”等于1班，总分等于最大一项进行筛选
C．在第6行和第7行之间插入一行数据，图b不变
D．正确完成第（1）小题的计算后，选中A2:F11，按照“总分”为主要关键字降序排序，排序后图b变化
14．（2021·湖州模拟）小张使用Flash软件制作了一主题是“建党100周年”的多媒体作品，部分界面如图a所示，请回答下列问题：
图a
（1）关于多媒体作品设计，下列说法正确的是　 　。（多选，填字母：A . Flash 是以时间序列为基础的多媒体制作工具/B .在创作需求分析阶段应该分析作品效益/C .结构设计阶段需要描述整个作品的组成部分、工作流程和主要界面/D .将所需要的的原始素材列成表格、确定获取原始素材的方式并分类登记，属于脚本编写/E .文字脚本是制作多媒体作品的直接依据。）
（2）“人物”图层第13帧到第48帧实现了人物由小变大且由透明到完全显示的动画效果，则该动画的类型是　 　 （填字母：A .逐帧动画/B .动画补间/C .形状补间）。
（3）“按钮”元件的编辑界面如图b所示，当鼠标移动到人物上时，
　 　（填字母：A .会/B .不会）出现小手形状。
图b
（4）“暂停”按钮在本场景一开始就播放，在不改变其他动画的前提下，实现该按钮在本场景最后一帧才出现，下列操作可行的是 （多选，填字母）
A．在“按钮”图层第1帧移动到第60帧
B．在“按钮”图层第1帧执行“插入空白关键帧”操作
C．在“按钮”图层第1帧执行“删除帧”操作
D．将“按钮”图层第1帧舞台上的对象删除
E．在“按钮”图层第1帧到59帧执行“清除帧”
（5）要在动画播放4s后，声音停止播放，则需要在　 　图层相关帧上添加动作命令　 　。
15．（2021·湖州模拟）在一个整数序列中找第k小的字母，若有相同的字母，则位置靠前的字母名次靠前，如有字母序列为“A，B，A，D，C”则第1小的字母为A在第1个位置，第2小的字母为A在第3个位置，笫3小的字母是B，在第2个位置，第4小的字母是C，在笫5个位置，笫5小的字母是D，在第4个位置。编写一个VB程序实现如下功能，程序启动时随机产生n个A-G之间的随机大写字母，在文本框Text2中输入整数k(k<=n)，单击“查找第k小的字母”按钮Commandl后，在文本框Text3上显示笫k小的字母位置。程序运行界面如下图所示。
（1）若要清空文本框 Text1 中的内容，能实现该功能的语句是　 　 （单选，填字母：A .Text1.Caption=""/B . Text1.Text=""/C . Text1.Clear）
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const
n = 20
Dim
i As Integer
Dim
a(1 To n) As String
Private
Sub Form_Load()
Randomize
For i = 1 To n
a(i) =　 　
Text1.Text = Text1.Text + " "
+ a(i)
Next i
End
Sub
Private
Sub Command1_Click()
Dim k As Integer, count As Integer
Dim b(0 To 7) As Integer
k = Val(Text2.Text)
For i = 1 To n
Next i
i = 1
Do While i < 7 And b(i) < k
　 　
i = i + 1
Loop
Key = i
count = 0
For i = 1 To n
If a(i) = Chr(Key + 64) Then count = count + 1
If count =　 　 Then Exit For
Next i
Text3.Text = "第" + Str(k) + "小的字母是：" + Chr(Key + 64) + "；位置是：" + Str(i) End Sub
（3）程序中加框处有错，请改正。
16．（2021·湖州模拟）某数据加密算法如下所示：在文本框Text1中随机生成8位小写字母，首先将每一个字母转换成8位二进制数，如“a”转换成8位二进制数为“01100001”，然后将8位二进制数循环左移两位，如“01100001”左移两位的结果是“10000101”，然后将左移后的结果依次显示在列表框List1中，最后将所有的二进制数转换成十六进制显示在文本框Text2中，文本框Text2中显示的结果即是加密后的结果，程序运行的部分界面如图所示：
（1）明文“z”对应的密文是　 　 。
（2）实现上述功能的VB程序如下所示，请在划线处填入合适的代码。
Dim s As String, ch As String
Dim
i As Integer, data As Integer
Const
n = 8
Private
Sub Form_Load()
For i = 1 To n
'随机生成n位小写字母显示在文本框Text1中
Next i
End
Sub
Private
Sub Command1_Click()
Dim count As Integer, j As Integer, m As
Integer
Dim a(1 To 64) As Integer
Dim b(1 To 64) As Integer
Const sj = "0123456789ABCDEF"
s = Text1.Text: count = 0
For i = 1 To Len(s)
data = Asc(Mid(s, i, 1))
Do While count <> n
　 　
data = data \ 2
count = count + 1
Loop
count = 0
Next i
tmp = 0
For m = 1 To n * n
i = (m - 1) \ n + 1: j = (m - 1) Mod n
+ 1
b((i - 1) * n + j) = 　 　
s1 = s1 + Str(b((i - 1) * n + j))
If j Mod n = 0 Then List1.AddItem s1:
s1 = ""
tmp =　 　
If j = 4 Or j = 8 Then
s2 = s2 + Mid(sj, tmp + 1, 1):
tmp = 0
End If
Next m
Text2.Text = s2
End
Sub
答案解析部分
1．【答案】B
【知识点】信息及其特征；信息技术的发展历史；信息表达方式与表达技术；信息社会的定义及内涵
2．【答案】B
【知识点】网络协议；网络资源的类型、下载与保存；网络资源的检索
3．【答案】C
【知识点】数据表、字段、记录的编辑；数据表视图与设计视图
4．【答案】D
【知识点】进制及数制转换
5．【答案】A
【知识点】图层及图层的基本操作
6．【答案】C
【知识点】流程图识读
7．【答案】C
【知识点】运算符、基本运算与表达式；常用标准函数
8．【答案】A
【知识点】流程图识读
【解析】
9．【答案】B
【知识点】常用标准函数
10．【答案】A
【知识点】循环结构语句及程序实现
11．【答案】C
【知识点】排序算法及程序实现
12．【答案】B
【知识点】查找算法及程序实现
13．【答案】（1）C
（2）A2:A5, A9:A11, C2:D5, C9:D11
（3）C；D
【知识点】表格数据的处理与计算
14．【答案】（1）ACD
（2）B
（3）B
（4）D；E
（5）“人物”；stopAllSounds();
【知识点】多媒体作品的规划和设计；动画的类型；时间轴、帧、图层、库的概念及基本操作；元件的类型与应用；常用影片控制函数的应用
15．【答案】（1）B
（2）Chr(Int(Rnd * 7 + 65))；b(i + 1)=b(i + 1) + b(i)；k- b(Key - 1)
（3）b(Asc(a(i)) - 64) = b(Asc(a(i)) -64) + 1
【知识点】分支结构语句及程序实现；循环结构语句及程序实现；常用标准函数
16．【答案】（1）E9
（2）a((i-1)*n+n-count)=dataMod2；a((i-1) *n+(j+1) Modn+ 1)；tmp *2+ b((i-1)*n+j)
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1登录二一教育在线组卷平台 助您教考全无忧
浙江省湖州市2021-2022学年高三上学期信息技术高考考前模拟（三）
一、选择题(本大题共12小题，每小题2分，共24分。)
1．（2021·湖州模拟）下列有关信息和信息技术的说法，正确的是（　　）
A．信息技术和多媒体技术从古至今一直存在
B．物质、能源和信息是构成当今人类社会的三大要素
C．文字、语言、图形、图像、声音和形体动作都是常见的信息表达技术
D．用支付宝支付时，在一定时间段内二维码会自动更新，这体现了信息的实时性
【答案】B
【知识点】信息及其特征；信息技术的发展历史；信息表达方式与表达技术；信息社会的定义及内涵
2．（2021·湖州模拟）下列有关网页和邮件的说法，不正确的是（　　）
A．自动网页搜索技术和全文检索技术是搜索引擎的两大核心技术
B．将网页保存为“网页，仅HTML”类型，可以保存网页中的图片
C．SMTP协议是实现将电子邮件从发件人计算机发送到收件人电子信箱的协议
D．HTTP协议的作用是将浏览器发出的请求发送至Web服务器，并将服务器回应的网页传回至浏览器
【答案】B
【知识点】网络协议；网络资源的类型、下载与保存；网络资源的检索
3．（2021·湖州模拟）使用Access软件创建数据表如下图所示，下列说法正确的是（　　）
A．当前数据库的文件名是“资产说明.accdb”
B．进入“资产说明”的设计视图后，无法将“ID”字段设为主键
C．添加一条新记录，则新记录的“ID”字段值可能为“5”
D．在某条记录的“购置日期”字段中输入“2018-10-29”，不会自动转为“2018/10/29”
【答案】C
【知识点】数据表、字段、记录的编辑；数据表视图与设计视图
4．（2021·湖州模拟）将下列数转换成十进制数，其中是8的倍数的是（　　）
A．10111010B B．101110011B C．123H D．120H
【答案】D
【知识点】进制及数制转换
5．（2021·湖州模拟）利用PhotoShop软件制作“夏至.psd”作品，编辑界面如下图所示：
下列描述正确的是（　　）
A．可以将“夏至”图层的图层样式复制粘贴到“花”图层
B．调整“夏至”和“圆”的图层顺序，不会影响作品的呈现效果
C．可以使用“自由变换”命令仅将“夏至”图层中的“夏”字变大
D．设置背景图层不透明度为0%，将当前文件保存为夏至.png格式，可以看见透明背景
【答案】A
【知识点】图层及图层的基本操作
6．（2021·湖州模拟）一幅未经压缩的1024×1600像素的BMP图像，将该图像存储为JPEG格式（其他参数不变），其存储容量为100KB，图像的压缩比约为32：1，则该图像的色彩位数为（
A．4位 B．8位 C．16位 D．24位
【答案】C
【知识点】流程图识读
7．（2021·湖州模拟）已知ch是一小写字母，VB表达式Int（Asc（ch）/10+0.5）+Int（Rnd*3-1）^2的最大值是（　　）
A．11 B．12 C．13 D．14
【答案】C
【知识点】运算符、基本运算与表达式；常用标准函数
8．（2021·湖州模拟）某算法的流程图如图所示，若输入k1=0，k2=0，n是1到31之间的整数，执行这部分流程之后，输出k1和k2的值相等，则满足条件的n的值的个数是（　　）
A．4 B．6 C．7 D．8
【答案】A
【知识点】流程图识读
【解析】
9．（2021·湖州模拟）有如下VB程序段：
s1 = "2019GaoKao"
For i = 1 To Len(s1)
ch = Mid(s1, i, 1)
If ch >= "0" And ch <= "9" Then
ch = Str((Val(ch)+1) Mod 10)
s2 = ch + s2
ElseIf ch >= "a" And ch <= "z" Then
ch = Chr(Asc(ch) - 32) s2 = s2 + ch
End If
Next i
该程序运行后，s2的值是（　　）
A．"A0A00213" B．"0213A0A0" C．"02130A0A" D．"0A0A0213"
【答案】B
【知识点】常用标准函数
10．（2021·湖州模拟）反转字符串，如输入字符串为“abcdefg”，则输出字符串“gfedcba”，实现该功能的部分程序如下所示，划线处的正确语句是（　　）
s = Text1.Text：n = Len(s)
'按s中字符顺序从左到右依次存入到数组a中，代码略
i = 1
Do While i <= n - 1
t = ①
For j = n - 1 To i Step -1
a(j + 1) = a(j)
Next j
②
i = i + 1
Loop
For i = 1 To Len(s)
Text2.Text = Text2.Text + ③
Next i
A．① a(n) ② a(j + 1) = t ③ a(i)
B．① a(n) ② a(j) = t ③ a(i)
C．① a(i) ② a(j + 1) = t ③ Str(a(i))
D．① a(i) ② a(j) = t ③ Str(a(i))
【答案】A
【知识点】循环结构语句及程序实现
11．（2021·湖州模拟）有如下VB程序：
n = 7
For i = 1 To n \ 2
For j = n - i + 1 To i + 1 Step -1
If a(j) Mod 10 > a(j - 1) Mod 10 Then
t = a(j): a(j) = a(j - 1): a(j - 1) = t
End If
Next j
Next i
已知a(1)到a(7)各元素初值分别是31、22、73、54、85、26、37，运行上述程序后，a(1)到a(7)各元素的值分别是（　　）
A．85、73、54、31、22、37、26 B．37、26、22、31、54、73、85
C．37、85、73、31、22、54、26 D．26、54、22、31、73、85、37
【答案】C
【知识点】排序算法及程序实现
12．（2021·湖州模拟）有如下VB程序
i=1：j=10：key=Val(Text1.Text) Do While i <= j m = (i + j + 1) \ 2 If a(m) >= key Then j = m - 1 Else i = m + 1 End If Loop (程序 a) i=1：j=10: key=Val(Text1.Text) Do While i <= j m = (i + j + 1) \ 2 If a(m) > key Then j = m - 1 Else i = m + 1 End If Loop (程序b)
以下说法正确的是（　　）
A．若要使用程序a或程序 b查找某个数据，数组a中的数据可以是降序排序
B．无论key的值是多少，执行程序a和程序b后一定有i = j + 1成立
C．无论key的值是多少，执行程序a和程序b后i的值一定相同
D．无论key的值是多少，执行程序a和程序b后j的值一定相同
【答案】B
【知识点】查找算法及程序实现
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2021·湖州模拟）小张收集了某些学生期中考试的部分数据，并使用Excel软件进行数据处理，如图a所示，请回答下列问题：
图a
（1）区域F3:F11中的数据是通过公式计算得到的，F3中的数据已经正确计算，通过自动填充功能完成区域 F4:F11，则 F6 中的计算结果是 　 　（单选，填字母：A
. */B . 214/C . #VALUE!/D . #REF!）
（2）根据图a制作了如图b所示的图表，创建该图表的数据区域是　 　。
图b
（3）图a和图b，下列说法正确的是 。
A．正确完成第（1）小题的计算后，不小心删除C列，则原F3中的总分变成252
B．若要得到1班中总分最高的记录，可以按照“班级”等于1班，总分等于最大一项进行筛选
C．在第6行和第7行之间插入一行数据，图b不变
D．正确完成第（1）小题的计算后，选中A2:F11，按照“总分”为主要关键字降序排序，排序后图b变化
【答案】（1）C
（2）A2:A5, A9:A11, C2:D5, C9:D11
（3）C；D
【知识点】表格数据的处理与计算
14．（2021·湖州模拟）小张使用Flash软件制作了一主题是“建党100周年”的多媒体作品，部分界面如图a所示，请回答下列问题：
图a
（1）关于多媒体作品设计，下列说法正确的是　 　。（多选，填字母：A . Flash 是以时间序列为基础的多媒体制作工具/B .在创作需求分析阶段应该分析作品效益/C .结构设计阶段需要描述整个作品的组成部分、工作流程和主要界面/D .将所需要的的原始素材列成表格、确定获取原始素材的方式并分类登记，属于脚本编写/E .文字脚本是制作多媒体作品的直接依据。）
（2）“人物”图层第13帧到第48帧实现了人物由小变大且由透明到完全显示的动画效果，则该动画的类型是　 　 （填字母：A .逐帧动画/B .动画补间/C .形状补间）。
（3）“按钮”元件的编辑界面如图b所示，当鼠标移动到人物上时，
　 　（填字母：A .会/B .不会）出现小手形状。
图b
（4）“暂停”按钮在本场景一开始就播放，在不改变其他动画的前提下，实现该按钮在本场景最后一帧才出现，下列操作可行的是 （多选，填字母）
A．在“按钮”图层第1帧移动到第60帧
B．在“按钮”图层第1帧执行“插入空白关键帧”操作
C．在“按钮”图层第1帧执行“删除帧”操作
D．将“按钮”图层第1帧舞台上的对象删除
E．在“按钮”图层第1帧到59帧执行“清除帧”
（5）要在动画播放4s后，声音停止播放，则需要在　 　图层相关帧上添加动作命令　 　。
【答案】（1）ACD
（2）B
（3）B
（4）D；E
（5）“人物”；stopAllSounds();
【知识点】多媒体作品的规划和设计；动画的类型；时间轴、帧、图层、库的概念及基本操作；元件的类型与应用；常用影片控制函数的应用
15．（2021·湖州模拟）在一个整数序列中找第k小的字母，若有相同的字母，则位置靠前的字母名次靠前，如有字母序列为“A，B，A，D，C”则第1小的字母为A在第1个位置，第2小的字母为A在第3个位置，笫3小的字母是B，在第2个位置，第4小的字母是C，在笫5个位置，笫5小的字母是D，在第4个位置。编写一个VB程序实现如下功能，程序启动时随机产生n个A-G之间的随机大写字母，在文本框Text2中输入整数k(k<=n)，单击“查找第k小的字母”按钮Commandl后，在文本框Text3上显示笫k小的字母位置。程序运行界面如下图所示。
（1）若要清空文本框 Text1 中的内容，能实现该功能的语句是　 　 （单选，填字母：A .Text1.Caption=""/B . Text1.Text=""/C . Text1.Clear）
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const
n = 20
Dim
i As Integer
Dim
a(1 To n) As String
Private
Sub Form_Load()
Randomize
For i = 1 To n
a(i) =　 　
Text1.Text = Text1.Text + " "
+ a(i)
Next i
End
Sub
Private
Sub Command1_Click()
Dim k As Integer, count As Integer
Dim b(0 To 7) As Integer
k = Val(Text2.Text)
For i = 1 To n
Next i
i = 1
Do While i < 7 And b(i) < k
　 　
i = i + 1
Loop
Key = i
count = 0
For i = 1 To n
If a(i) = Chr(Key + 64) Then count = count + 1
If count =　 　 Then Exit For
Next i
Text3.Text = "第" + Str(k) + "小的字母是：" + Chr(Key + 64) + "；位置是：" + Str(i) End Sub
（3）程序中加框处有错，请改正。
【答案】（1）B
（2）Chr(Int(Rnd * 7 + 65))；b(i + 1)=b(i + 1) + b(i)；k- b(Key - 1)
（3）b(Asc(a(i)) - 64) = b(Asc(a(i)) -64) + 1
【知识点】分支结构语句及程序实现；循环结构语句及程序实现；常用标准函数
16．（2021·湖州模拟）某数据加密算法如下所示：在文本框Text1中随机生成8位小写字母，首先将每一个字母转换成8位二进制数，如“a”转换成8位二进制数为“01100001”，然后将8位二进制数循环左移两位，如“01100001”左移两位的结果是“10000101”，然后将左移后的结果依次显示在列表框List1中，最后将所有的二进制数转换成十六进制显示在文本框Text2中，文本框Text2中显示的结果即是加密后的结果，程序运行的部分界面如图所示：
（1）明文“z”对应的密文是　 　 。
（2）实现上述功能的VB程序如下所示，请在划线处填入合适的代码。
Dim s As String, ch As String
Dim
i As Integer, data As Integer
Const
n = 8
Private
Sub Form_Load()
For i = 1 To n
'随机生成n位小写字母显示在文本框Text1中
Next i
End
Sub
Private
Sub Command1_Click()
Dim count As Integer, j As Integer, m As
Integer
Dim a(1 To 64) As Integer
Dim b(1 To 64) As Integer
Const sj = "0123456789ABCDEF"
s = Text1.Text: count = 0
For i = 1 To Len(s)
data = Asc(Mid(s, i, 1))
Do While count <> n
　 　
data = data \ 2
count = count + 1
Loop
count = 0
Next i
tmp = 0
For m = 1 To n * n
i = (m - 1) \ n + 1: j = (m - 1) Mod n
+ 1
b((i - 1) * n + j) = 　 　
s1 = s1 + Str(b((i - 1) * n + j))
If j Mod n = 0 Then List1.AddItem s1:
s1 = ""
tmp =　 　
If j = 4 Or j = 8 Then
s2 = s2 + Mid(sj, tmp + 1, 1):
tmp = 0
End If
Next m
Text2.Text = s2
End
Sub
【答案】（1）E9
（2）a((i-1)*n+n-count)=dataMod2；a((i-1) *n+(j+1) Modn+ 1)；tmp *2+ b((i-1)*n+j)
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1

展开更多......

收起↑