资源简介

浙江省湖州市2021-2022学年高三上学期信息技术12月选考模拟（二）
1．（2021·湖州模拟）下列有关信息和信息技术的说法，正确的是(　　)
A．现代信息技术包括微电子技术、光电子技术、广播电视技术、通信技术
B．信息可以传递和共享，不会像物质、能源那样产生消耗
C．信息不能从一种形态转换为另一种形态
D．多媒体技术和网络技术是信息社会中比较重要的信息表达方式
2．（2021·湖州模拟）以下有关网络应用和协议的叙述，正确的是( )
A．POP3协议将电子邮箱（邮件服务器）的电子邮件读到本地计算机上
B．浏览器通过文件传输协议发送和接收网页信息
C．保存网页时，保存类型选择“网页，全部”，能保存全部视频和声音文件
D．搜索引擎通过自动网页搜索技术搜索并保存互联网上的全部数据
3．（2021·湖州模拟）下列应用中，体现了人工智能技术的有(　　)
①在线中英文互译 ②制订旅游攻略时，安装 App 搜索景点信息 ③支持人脸识别的家用智能锁 ④用智能手机通过微信平台发送语音信息 ⑤使用 OCR 软件进行“倾斜校正”
A．①③⑤ B．②③④ C．①③④ D．①③
4．（2021·湖州模拟）下列有关数据库和数据表的说法,正确的是(　　)
A．在同一个数据库中，不可以创建两个字段名相同的字段
B．Access数据表中同一列各数据的类型可以不相同
C．数据库管理系统分大型和小型，小型数据库管理系统有瑞典MySQLAB公司的MySQL、IBM的DB2、微软的Access等
D．数据库管理系统是为了建立、使用和维护数据库而设计的数据库管理系统软件
5．（2021·湖州模拟）使用UltraEdit软件查看字符“2021 冠军之光 King!”的内码，部分界面如下图所示。
下列说法正确的是(　　)
A．字符“冠”的内码用二进制表示为“10111001 11101010”
B．字母“J”的十六进制内码为“6A”
C．共有 8 个字符使用 ASCII 编码
D．这些字符共占用17 个字节的存储空间
6．（2021·湖州模拟）一段时长为30秒、800×340像素、24位真彩色、NTSC制式的未经压缩AVI格式无声视频，其文件存储容量约为( )
A．700MB B．583MB C．234MB D．70MB
7．（2021·湖州模拟）某算法的部分流程图如图所示，执行该算法，输出s,c的值是( )
A．6,15 B．9,15 C．6,10 D．9,10
8．（2021·湖州模拟）下列VB表达式的值等于2021的是( )
A．Mid("20210901", 1, 4)
B．Len("2020") + 1
C． Str(2020) + "1"
D．2021 Mod 100 + (2021 \ 100) * 100
9．（2021·湖州模拟）有如下 VB 程序段:
n = 10: m = 0
For i = 1 To Int(Sqr(n))
If Not d(i) Then
j = 3 * i
Do While j <= n
d(j) = True
j = j + i
Loop
End If
Next i
For i = 5 To n
If d(i) Then m = m + 1
Next i
数组元素d(1)到d(10)的初值均为False，执行该程序段后，变量m的值为( )
A．5 B．6 C．7 D．8
10．（2021·湖州模拟）有如下 VB 程序段:
i = 6: flag = True
Do While i >= 4 And flag = True
flag = False
k = i
For j = 1 To i - 1
If a(k) > a(j) Then k = j
Next j
If k <> i Then
t = a(i): a(i) = a(k): a(k) = t
flag = True
End If
i = i - 1
Loop
数组元素a(1)到a(6)的值依次为：“19,6,34,40,13,53”，执行该程序段后，数组元素a(1)到a(6)的值依次为(　　)
A．19,53,34,40,13,6 B．53,40,34,19,13,6
C．40,53,34,19,13,6 D．19,6,34,13,40,53
11．（2021·湖州模拟）某排序算法的 VB 程序段如下：
n = 8: f = 1: c = 0
For i = 1 To n \ 2 - 1
For j = 1 To n - 2 * i
If f * a(j) < f * a(j + 2) Then
t = a(j): a(j) = a(j + 2): a(j + 2) = t
c = c + 1
End If
f = -f
Next j
Next i
数组元素a(1)到a(8)的初始值依次为：“16,31,42,38,35,29,27,15”,执行该程序段后，变量C的值为( )
A．6 B．7 C．8 D．9
12．（2021·湖州模拟）有如下VB程序段：
i = 1: j = 8: k = 4
Randomize
Key = (Int(Rnd * 4)+20)*4
Do While i <= j
m = (i + j) \ 2
If Key = a(m) Then
Exit Do
ElseIf Key < a(m) Then
j = m - 1: k = k / 2
Else
i = m + 1: k = k * 2
End If
Loop
数组元素a(1)到a(8)的值依次为“80,82,84,86,88,90,92,94”,执行该程序段后，变量k的值可能是( )
A．1,4,8 B． 2,4,8 C．4,16,32 D．1,4,16
13．（2021·湖州模拟）小李收集了杭州市区自来水销售情况数据，为进一步对该表分析评价，使用Excel软件进行了数据处理，如图a所示，请回答下列问题：
图 a
（1）区域E3:E9的数据是通过公式计算得到的：在E3单元格中输入公式,再利用自动填充功能完成区域E4:E9的计算。若在C4单元格输入“不详”二字，则E4单元格将显示　 　。（单选，填字母：A
.1.50/ B .#VALUE!/ C .#REF!/ D
.#NAME ）
（2）图a中的数据显示值和真实值相等，对图a中的数据进行筛选操作。先按“供水价格”自动筛选最大的3项，再按“污水处理费标准”自动筛选最大的3项，则按此操作筛选出的数据内容（不包括标题行）有　 　行。
（3）根据图a中的数据制作了图表，如图b所示，创建该图表的数据区域是　 　。
（4）对图a中的“经营性用水”数据进行排序，要求按“供水价格”为主关键字降序，按“污水处理费标准”为次关键字升序，排序应选择的数据区域是　 　。
14．（2021·湖州模拟）小王创作主题为“网络连接你我他”的多媒体作品。在作品创作过程中，他使用Photoshop软件制作了一张“科技创新”图片，并使用Flash软件制作了一个“网络世界”动画。请回答下列问题：
图 a
（1）如图a所示，在当前状态下，下列说法正确的是 （多选， 填字母）
A．选中“智慧”图层后，可使用油漆桶工具将“智慧”图层中字体颜色填充为蓝色
B．可在“背景”图层添加滤镜效果
C．将“科技创新”图层的图层样式拷贝到“网络”图层后，“网络”图层仍有“描边”效果
D．可使用自由变换操作更改“科技创新”图层中“科技”二字的大小
E．可交换“网络”图层与“科技创新”图层的图层次序
（2）图b中，“文字”图层第1帧到第25帧的动画效果是由“信息社会”逐渐变为“网络连接你我他”，则该动画的补间类型是　 　（选填：形状补间/动画补间）。若要使背景图层从第1帧到第50帧一直显示同一内容，应该在“背景”图层第25帧执行　 　操作。
图 b
（3）如图b所示，“音乐”图层的声音素材时长为3分钟，且同步属性为“事件”，要使本场景动画播放到第25帧时停止声音播放，可行的操作是　 　。
（4）如图b所示，“PLAY”按钮位于舞台左下角。测试影片时，单击“PLAY”按钮即跳转到“大数据”场景第10帧继续播放并打开链接“http://www..cn”，则该按钮的动作脚本为：on(press){　 　}
15．（2021·湖州模拟）小明为班会活动的“抽奖环节”设计了一张获奖表。该“抽奖环节”功能如下：班级学生人数为n个，程序运行后，单击“发放号码牌”按钮Command1，随机生成n个不重复的[n+1, 2*n]内的整数，并在列表框list1中显示，学生按学号次序依次领取号码牌，例如：随机生成的第一个整数为54，则学号为1号的学生领取的号码牌为54。单击“抽奖”按钮Command2,在列表框list2中显示获奖表，获奖序列要求：第1名获奖的学生是号码牌数字中偶数最大的，第2名获奖的学生是号码牌数字中奇数最小的，第3名获奖的学生是号码牌数字中偶数第二大的，第4名获奖的学生是号码牌数字中奇数第二小的……取过的数字不能再取，以此类推，直到结束。其程序界面如图所示。
实现上述功能的VB程序代码如下，请回答以下问题：
Const n = 50
Dim a(1 To n) As Integer
Dim f(n + 1 To 2 * n) As Boolean
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Randomize
For i = n + 1 To 2 * n
f(i) = False
Next i
For j = 1 To n
a(j) = Int(Rnd * n) + n + 1
If f(a(j)) = True Then j = j - 1 Else ①
Next j
For i = 1 To n
List1.AddItem CStr(i) + "号-" + CStr(a(i)) 'cstr 把数值类型转换为字符串类型，并去前导空格
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, m1 As Integer, m2 As Integer
m1 = 0: m2 = n \ 2
For i = n + 1 To 2 * n
If ② Then
m1 = m1 + 1: a(m1) = i
Else
m2 = m2 + 1: a(m2) = i
End If
Next i
For j = 1 To n \ 2
List2.AddItem "第" + CStr(2 * j - 1) + "名" + Str( ③ ) List2.AddItem "第" + CStr(2 * j) + "名" + Str(a(n \ 2 + j))
Next j
End Sub
（1）若仅对如下号码牌进行抽奖：1号-57，2号-76，3号-91，4号-83，5号-66，6号-82，则第3名获奖的学生学号是　 　号。
（2） 请在划线处填写合适代码，使程序正常运行。
①　 　②　 　③　 　
16．（2021·湖州模拟）用VB编写字符串“密码破译”程序，其功能如下：在文本框Text1中输入任意一串字符串,字符串长度为n*n（n为自然数），单击“解密”按钮Command1,在文本框Text2中输出解锁密码。解锁密码破译步骤如下：将字符依次存储到数组a中，存储方式从左下向右上，平行于矩阵的对角线依次进行存储，以长度为36的字符串“Toleranceisthemental,YouSheng优胜一筹”为例，数组a元素对应的赋值情况如图a所示；将对角线字符从右上向左下依次相连即为解锁密码。程序运行效果如图b所示。
图 a
图 b
实现上述功能的 VB 程序如下，请回答下列问题：
（1）若输入的字符串内容为“abcdefghijklmnopqrstuvwxy”，则破译后的解锁密码为　 　。
（2）请在划线处填写合适代码，使程序正常运行。
Private Sub Command1_Click()
Const n = 6
Dim a(1 To n * n) As Integer
Dim b(1 To n * n) As String
Dim i As Integer, j As Integer, k
As
Integer, s As String
Dim zf As Integer '变量zf存储数组a元素的值
Dim xb As Integer '变量xb存储数组a的下标
Dim p As Integer
For i = 1 To Len(Text1.Text)
b(i) = Mid(Text1.Text, i, 1)
Next i
k = 1
For i = 1 To n
k = k + (i - 1)
zf = k
　 　
a(xb) = zf
p = i + 1
For j = 2 To n
If j <= n - i + 1 Then
zf = zf + p
a(xb + j - 1) = zf
p = p + 1
Else
　 　
zf = zf + p
a(xb + j - 1) = zf
End If
Next j
Next i
For i = 1 To n
s = s +　 　
Next i
Text2.Text = s
End
Sub
答案解析部分
1．【答案】B
【知识点】信息及其特征；信息技术的概念与关键技术；信息表达方式与表达技术
2．【答案】A
【知识点】网络协议；网络资源的类型、下载与保存；浏览器；网络资源的检索
3．【答案】D
【知识点】人工智能的应用
4．【答案】D
【知识点】数据库的分类与应用；字段的数据类型
5．【答案】C
【知识点】进制及数制转换；字符编码
6．【答案】A
【知识点】声音、图像、视频编码
7．【答案】B
【知识点】流程图识读
8．【答案】D
【知识点】运算符、基本运算与表达式；常用标准函数
9．【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
10．【答案】A
【知识点】排序算法及程序实现
11．【答案】C
【知识点】排序算法及程序实现
12．【答案】D
【知识点】查找算法及程序实现
13．【答案】（1）B
（2）6
（3）A2:C4, A8:C9
（4）B5:E7
【知识点】表格数据的处理与计算
14．【答案】（1）A；B；E
（2）形状补间；清除关键帧
（3）将声音的同步属性改为“数据流”，并在“音乐”图层第25帧插入空白关键帧或在文字图层第25帧添加动作脚本: stopallsounds();
（4）gotoandplay("大数据”,10) ;getURL("http:// www. . cn" );
【知识点】图层及图层的基本操作；动画的类型；常用影片控制函数的应用；声音同步属性设置
15．【答案】（1）2
（2）f(a(j)) = True；iMod2=0；a(n\2-j+ 1)
【知识点】分支结构语句及程序实现；循环结构语句及程序实现；常用标准函数
16．【答案】（1）onmlk
（2）xb=(i-1)*n+1；p=p- 1；b(a(i*n-i+1))
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
1 / 1浙江省湖州市2021-2022学年高三上学期信息技术12月选考模拟（二）
1．（2021·湖州模拟）下列有关信息和信息技术的说法，正确的是(　　)
A．现代信息技术包括微电子技术、光电子技术、广播电视技术、通信技术
B．信息可以传递和共享，不会像物质、能源那样产生消耗
C．信息不能从一种形态转换为另一种形态
D．多媒体技术和网络技术是信息社会中比较重要的信息表达方式
【答案】B
【知识点】信息及其特征；信息技术的概念与关键技术；信息表达方式与表达技术
2．（2021·湖州模拟）以下有关网络应用和协议的叙述，正确的是( )
A．POP3协议将电子邮箱（邮件服务器）的电子邮件读到本地计算机上
B．浏览器通过文件传输协议发送和接收网页信息
C．保存网页时，保存类型选择“网页，全部”，能保存全部视频和声音文件
D．搜索引擎通过自动网页搜索技术搜索并保存互联网上的全部数据
【答案】A
【知识点】网络协议；网络资源的类型、下载与保存；浏览器；网络资源的检索
3．（2021·湖州模拟）下列应用中，体现了人工智能技术的有(　　)
①在线中英文互译 ②制订旅游攻略时，安装 App 搜索景点信息 ③支持人脸识别的家用智能锁 ④用智能手机通过微信平台发送语音信息 ⑤使用 OCR 软件进行“倾斜校正”
A．①③⑤ B．②③④ C．①③④ D．①③
【答案】D
【知识点】人工智能的应用
4．（2021·湖州模拟）下列有关数据库和数据表的说法,正确的是(　　)
A．在同一个数据库中，不可以创建两个字段名相同的字段
B．Access数据表中同一列各数据的类型可以不相同
C．数据库管理系统分大型和小型，小型数据库管理系统有瑞典MySQLAB公司的MySQL、IBM的DB2、微软的Access等
D．数据库管理系统是为了建立、使用和维护数据库而设计的数据库管理系统软件
【答案】D
【知识点】数据库的分类与应用；字段的数据类型
5．（2021·湖州模拟）使用UltraEdit软件查看字符“2021 冠军之光 King!”的内码，部分界面如下图所示。
下列说法正确的是(　　)
A．字符“冠”的内码用二进制表示为“10111001 11101010”
B．字母“J”的十六进制内码为“6A”
C．共有 8 个字符使用 ASCII 编码
D．这些字符共占用17 个字节的存储空间
【答案】C
【知识点】进制及数制转换；字符编码
6．（2021·湖州模拟）一段时长为30秒、800×340像素、24位真彩色、NTSC制式的未经压缩AVI格式无声视频，其文件存储容量约为( )
A．700MB B．583MB C．234MB D．70MB
【答案】A
【知识点】声音、图像、视频编码
7．（2021·湖州模拟）某算法的部分流程图如图所示，执行该算法，输出s,c的值是( )
A．6,15 B．9,15 C．6,10 D．9,10
【答案】B
【知识点】流程图识读
8．（2021·湖州模拟）下列VB表达式的值等于2021的是( )
A．Mid("20210901", 1, 4)
B．Len("2020") + 1
C． Str(2020) + "1"
D．2021 Mod 100 + (2021 \ 100) * 100
【答案】D
【知识点】运算符、基本运算与表达式；常用标准函数
9．（2021·湖州模拟）有如下 VB 程序段:
n = 10: m = 0
For i = 1 To Int(Sqr(n))
If Not d(i) Then
j = 3 * i
Do While j <= n
d(j) = True
j = j + i
Loop
End If
Next i
For i = 5 To n
If d(i) Then m = m + 1
Next i
数组元素d(1)到d(10)的初值均为False，执行该程序段后，变量m的值为( )
A．5 B．6 C．7 D．8
【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
10．（2021·湖州模拟）有如下 VB 程序段:
i = 6: flag = True
Do While i >= 4 And flag = True
flag = False
k = i
For j = 1 To i - 1
If a(k) > a(j) Then k = j
Next j
If k <> i Then
t = a(i): a(i) = a(k): a(k) = t
flag = True
End If
i = i - 1
Loop
数组元素a(1)到a(6)的值依次为：“19,6,34,40,13,53”，执行该程序段后，数组元素a(1)到a(6)的值依次为(　　)
A．19,53,34,40,13,6 B．53,40,34,19,13,6
C．40,53,34,19,13,6 D．19,6,34,13,40,53
【答案】A
【知识点】排序算法及程序实现
11．（2021·湖州模拟）某排序算法的 VB 程序段如下：
n = 8: f = 1: c = 0
For i = 1 To n \ 2 - 1
For j = 1 To n - 2 * i
If f * a(j) < f * a(j + 2) Then
t = a(j): a(j) = a(j + 2): a(j + 2) = t
c = c + 1
End If
f = -f
Next j
Next i
数组元素a(1)到a(8)的初始值依次为：“16,31,42,38,35,29,27,15”,执行该程序段后，变量C的值为( )
A．6 B．7 C．8 D．9
【答案】C
【知识点】排序算法及程序实现
12．（2021·湖州模拟）有如下VB程序段：
i = 1: j = 8: k = 4
Randomize
Key = (Int(Rnd * 4)+20)*4
Do While i <= j
m = (i + j) \ 2
If Key = a(m) Then
Exit Do
ElseIf Key < a(m) Then
j = m - 1: k = k / 2
Else
i = m + 1: k = k * 2
End If
Loop
数组元素a(1)到a(8)的值依次为“80,82,84,86,88,90,92,94”,执行该程序段后，变量k的值可能是( )
A．1,4,8 B． 2,4,8 C．4,16,32 D．1,4,16
【答案】D
【知识点】查找算法及程序实现
13．（2021·湖州模拟）小李收集了杭州市区自来水销售情况数据，为进一步对该表分析评价，使用Excel软件进行了数据处理，如图a所示，请回答下列问题：
图 a
（1）区域E3:E9的数据是通过公式计算得到的：在E3单元格中输入公式,再利用自动填充功能完成区域E4:E9的计算。若在C4单元格输入“不详”二字，则E4单元格将显示　 　。（单选，填字母：A
.1.50/ B .#VALUE!/ C .#REF!/ D
.#NAME ）
（2）图a中的数据显示值和真实值相等，对图a中的数据进行筛选操作。先按“供水价格”自动筛选最大的3项，再按“污水处理费标准”自动筛选最大的3项，则按此操作筛选出的数据内容（不包括标题行）有　 　行。
（3）根据图a中的数据制作了图表，如图b所示，创建该图表的数据区域是　 　。
（4）对图a中的“经营性用水”数据进行排序，要求按“供水价格”为主关键字降序，按“污水处理费标准”为次关键字升序，排序应选择的数据区域是　 　。
【答案】（1）B
（2）6
（3）A2:C4, A8:C9
（4）B5:E7
【知识点】表格数据的处理与计算
14．（2021·湖州模拟）小王创作主题为“网络连接你我他”的多媒体作品。在作品创作过程中，他使用Photoshop软件制作了一张“科技创新”图片，并使用Flash软件制作了一个“网络世界”动画。请回答下列问题：
图 a
（1）如图a所示，在当前状态下，下列说法正确的是 （多选， 填字母）
A．选中“智慧”图层后，可使用油漆桶工具将“智慧”图层中字体颜色填充为蓝色
B．可在“背景”图层添加滤镜效果
C．将“科技创新”图层的图层样式拷贝到“网络”图层后，“网络”图层仍有“描边”效果
D．可使用自由变换操作更改“科技创新”图层中“科技”二字的大小
E．可交换“网络”图层与“科技创新”图层的图层次序
（2）图b中，“文字”图层第1帧到第25帧的动画效果是由“信息社会”逐渐变为“网络连接你我他”，则该动画的补间类型是　 　（选填：形状补间/动画补间）。若要使背景图层从第1帧到第50帧一直显示同一内容，应该在“背景”图层第25帧执行　 　操作。
图 b
（3）如图b所示，“音乐”图层的声音素材时长为3分钟，且同步属性为“事件”，要使本场景动画播放到第25帧时停止声音播放，可行的操作是　 　。
（4）如图b所示，“PLAY”按钮位于舞台左下角。测试影片时，单击“PLAY”按钮即跳转到“大数据”场景第10帧继续播放并打开链接“http://www..cn”，则该按钮的动作脚本为：on(press){　 　}
【答案】（1）A；B；E
（2）形状补间；清除关键帧
（3）将声音的同步属性改为“数据流”，并在“音乐”图层第25帧插入空白关键帧或在文字图层第25帧添加动作脚本: stopallsounds();
（4）gotoandplay("大数据”,10) ;getURL("http:// www. . cn" );
【知识点】图层及图层的基本操作；动画的类型；常用影片控制函数的应用；声音同步属性设置
15．（2021·湖州模拟）小明为班会活动的“抽奖环节”设计了一张获奖表。该“抽奖环节”功能如下：班级学生人数为n个，程序运行后，单击“发放号码牌”按钮Command1，随机生成n个不重复的[n+1, 2*n]内的整数，并在列表框list1中显示，学生按学号次序依次领取号码牌，例如：随机生成的第一个整数为54，则学号为1号的学生领取的号码牌为54。单击“抽奖”按钮Command2,在列表框list2中显示获奖表，获奖序列要求：第1名获奖的学生是号码牌数字中偶数最大的，第2名获奖的学生是号码牌数字中奇数最小的，第3名获奖的学生是号码牌数字中偶数第二大的，第4名获奖的学生是号码牌数字中奇数第二小的……取过的数字不能再取，以此类推，直到结束。其程序界面如图所示。
实现上述功能的VB程序代码如下，请回答以下问题：
Const n = 50
Dim a(1 To n) As Integer
Dim f(n + 1 To 2 * n) As Boolean
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Randomize
For i = n + 1 To 2 * n
f(i) = False
Next i
For j = 1 To n
a(j) = Int(Rnd * n) + n + 1
If f(a(j)) = True Then j = j - 1 Else ①
Next j
For i = 1 To n
List1.AddItem CStr(i) + "号-" + CStr(a(i)) 'cstr 把数值类型转换为字符串类型，并去前导空格
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, m1 As Integer, m2 As Integer
m1 = 0: m2 = n \ 2
For i = n + 1 To 2 * n
If ② Then
m1 = m1 + 1: a(m1) = i
Else
m2 = m2 + 1: a(m2) = i
End If
Next i
For j = 1 To n \ 2
List2.AddItem "第" + CStr(2 * j - 1) + "名" + Str( ③ ) List2.AddItem "第" + CStr(2 * j) + "名" + Str(a(n \ 2 + j))
Next j
End Sub
（1）若仅对如下号码牌进行抽奖：1号-57，2号-76，3号-91，4号-83，5号-66，6号-82，则第3名获奖的学生学号是　 　号。
（2） 请在划线处填写合适代码，使程序正常运行。
①　 　②　 　③　 　
【答案】（1）2
（2）f(a(j)) = True；iMod2=0；a(n\2-j+ 1)
【知识点】分支结构语句及程序实现；循环结构语句及程序实现；常用标准函数
16．（2021·湖州模拟）用VB编写字符串“密码破译”程序，其功能如下：在文本框Text1中输入任意一串字符串,字符串长度为n*n（n为自然数），单击“解密”按钮Command1,在文本框Text2中输出解锁密码。解锁密码破译步骤如下：将字符依次存储到数组a中，存储方式从左下向右上，平行于矩阵的对角线依次进行存储，以长度为36的字符串“Toleranceisthemental,YouSheng优胜一筹”为例，数组a元素对应的赋值情况如图a所示；将对角线字符从右上向左下依次相连即为解锁密码。程序运行效果如图b所示。
图 a
图 b
实现上述功能的 VB 程序如下，请回答下列问题：
（1）若输入的字符串内容为“abcdefghijklmnopqrstuvwxy”，则破译后的解锁密码为　 　。
（2）请在划线处填写合适代码，使程序正常运行。
Private Sub Command1_Click()
Const n = 6
Dim a(1 To n * n) As Integer
Dim b(1 To n * n) As String
Dim i As Integer, j As Integer, k
As
Integer, s As String
Dim zf As Integer '变量zf存储数组a元素的值
Dim xb As Integer '变量xb存储数组a的下标
Dim p As Integer
For i = 1 To Len(Text1.Text)
b(i) = Mid(Text1.Text, i, 1)
Next i
k = 1
For i = 1 To n
k = k + (i - 1)
zf = k
　 　
a(xb) = zf
p = i + 1
For j = 2 To n
If j <= n - i + 1 Then
zf = zf + p
a(xb + j - 1) = zf
p = p + 1
Else
　 　
zf = zf + p
a(xb + j - 1) = zf
End If
Next j
Next i
For i = 1 To n
s = s +　 　
Next i
Text2.Text = s
End
Sub
【答案】（1）onmlk
（2）xb=(i-1)*n+1；p=p- 1；b(a(i*n-i+1))
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
1 / 1

展开更多......

收起↑