资源简介

浙江省诸暨市2019-2020学年高二上学期信息技术期末考试试卷
一、选择题（本大题共12小题，每小题2分，共24分。）
1．（2020高二上·诸暨期末）下列有关信息和信息技术的说法，正确的是（　　）
A．用手机扫描二维码，是对信息进行编码的过程
B．信息必须依附于载体，故不可以脱离它所反映的事物被存储和传播
C．交警指挥交通必须采用规定的手势，这是为了信息表达的规范化
D．电影技术、电视技术、广播技术、计算机技术等均属于现代信息技术
2．（2020高二上·诸暨期末）使用Word软件编辑某文档，部分界面如图所示。
下列说法正确的是（　　）
A．文中共使用了2处批注，添加批注的用户名为“A”
B．实现图中的图文环绕效果可以采用“嵌入型”环绕方式
C．删除图中批注后，批注对象和批注内容同时被删除
D．拒绝对文档的所有修订后，文字“既”被保留
3．（2020高二上·诸暨期末）使用Access软件打开数据库，部分界面如图所示。
下列操作可行的是（　　）
A．选中当前记录的“书籍编号”字段值，将“4”修改为“7”
B．选中视图中的表名称“表1”，将其重命名为“高一藏书”
C．在“书名”和“作者”字段之间添加一个新字段“出版社”
D．输入文字“是”作为新记录中“借出”的有效字段值
4．（2020高二上·诸暨期末）使用GoldWave软件编辑某音频文件，部分界面如图所示。
下列说法正确的是（　　）
A．该音频文件为mp3格式，采样频率为44100Hz
B．当前状态下，执行“删除”操作，音频文件将变为单声道
C．当前状态下，执行“插入静音”添加1秒静音后，右声道时长不变
D．当前状态下，先执行“复制”，再执行“粘贴”，音频时长将变成8秒
5．（2020高二上·诸暨期末）使用UltraEdit软件观察字符内码，部分界面如图所示。已知汉字内码是由区位码（十六进制）中每个字节的数值加A0H组成，则汉字“对”的区位码（十进制）为（　　）
A．B6 D4 B．16 34 C．22 52 D．27 16
6．（2020高二上·诸暨期末）一段时长为10秒、1024×800像素、32位色、PAL制式（25帧/秒）的未经压缩AVI格式无声视频，其文件存储容量约为（　　）
A．23MB B．70 MB C．781 MB D．2250 MB
7．（2020高二上·诸暨期末）某算法的部分流程图如图所示。下列说法正确的是（　　）
A．该流程执行后，变量s的值是 -1
B．该流程执行后，变量k的值是10
C．该流程完整执行1次，“s←s-k”共执行了4次
D．该流程完整执行1次，“s≥0 ”共执行了4次
8．（2020高二上·诸暨期末）以下选项中，表达式的值最大的是（　　）
A．Sqr(50) B．28 \ 3 Mod 10
C．Val(Mid("202007", 6, 1)) D．Abs(Int(-7．1))
9．（2020高二上·诸暨期末）有如下VB程序段：
Dim a(1 To 10) As Integer
s = "8+9+10=": n = 1
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
a(n) = a(n) * 10 + Val(ch)
Else
If a(n) > 0 Then n = n + 1
End If
Next i
Text1.Text = Str(n)
数组a各元素的初始值都为0，若执行该程序后，在文本框Text1中显示的值为（　　）
A．2 B．3 C．4 D．5
10．（2020高二上·诸暨期末）有如下VB程序段：
Dim t(0 To 9) As Integer
n = Val(Text1.Text)
For i = 10 To 30
a = i Mod 10
b = i \ 10
If a = n Or b = n Then t(n) = t(n) + 1
Next i
Label1.Caption = Str(t(n))
数组t中各个元素初值均为0，在文本框Text1中分别输入2时，执行该程序后，Label1中显示的内容为（　　）
A．2 B．10 C．11 D．12
11．（2020高二上·诸暨期末）某算法的VB程序段如下：
a(1) = 12: a(2) = 44: a(3) = 65: a(4) = 36: a(5) = 58
x = 0: y = 0
For i = 1 To 4
k = i
For j = i + 1 To 5
If a(j) > a(k) Then
k = j
x = x + 1
End If
Next j
If k <> i Then
t = a(i): a(i) = a(k): a(k) = t
y = y + 1
End If
Next i
Text1.Text = Str(x) + Str(y)
执行该程序段后，文本框Text1中显示的内容是（　　）
A．5 3 B．5 5 C．10 3 D．10 5
12．（2020高二上·诸暨期末）数组a为一组已按降序排序的正整数，依据对分查找思想：设计一个在数组a中查找数据Key的程序。实现该功能的VB程序段如下：
Dim a(1 To 6) As Integer
Const n = 6
a(1) = 98: a(2) = 96: a(3) = 95
a(4) = 90: a(5) = 87: a(6) = 81
i = 1: j = n
Key = Val(Text1.Text)
f = False
Do While And f = False
m = (i + j) \ 2
If a(m) = Key Then
Text1.Text = "已找到": f = True
ElseIf a(m) > Key Then
Else
End If
Loop
上述程序中方框处语句依次为（　　）
A．i <= j i = m + 1 j = m - 1
B．i <= j j = m - 1 i = m + 1
C．i < j j = m - 1 i = m + 1
D．i < j i = m + 1 j = m - 1
二、非选择题（本大题共4小题，4+8+7+7，共26分）
13．（2020高二上·诸暨期末）小华使用Excel软件对2018年浙江省各市各类学校在校学生数进行处理，如图a
所示。
图a
（1）区域F3:F13的数据是通过公式计算得到的：在F3单元格中输入公式　 　,再利用自动填充功能完成区域F4:F13的计算。
（2）已知B14单元格的数据是通过SUM函数计算求得，若修改B4单元格中的数值为159804，则显示在F3单元中的数据将　 　(选填：变大 / 变小 /不变）。
（3）根据图a中相关数据制作图表,如图b所示，创建该图表的数据区域是　 　。
图b
（4）将区域A2:F13的数据复制到新工作表，设置“中等职业 学校（人）”和“普通中学（万人）”的筛选方式分别如图c和图d所示，则筛选出的城市为　 　（填城市名称）。
14．（2020高二上·诸暨期末）使用多媒体编辑软件创作“旋转的风车”多媒体作品。
图a
（1）Photoshop部分编辑界面如图a所示，下列说法正确的是　 　（可多选，填字母：A ．用移动工具移动“右坡”图层中的图像位置，“左坡”图层中的图像位置随之改变 /B ．选中“白云”图层，添加“镜头光晕”的滤镜效果/C ．选中“背景”图层，设置“外发光”的图层样式 /D ．另存为BMP文件，“文字”图层的图层样式不可视）
（2）观察图b，“声音”图层中添加了声音素材“配音．mp3”，测试场景时在“白云”图层动画开始播放时声音还在继续播放，则声音“同步”方式为　 　（选填：数据流 / 事件）。
图b
（3）观察图b，测试该场景时，“背景”图层内容在播放完第20帧后消失，为了使该图层内容一直延续至本场景结束，可行的操作是　 　。
（4）观察图b，图中“白云”图层创建了“白云”实例从左侧舞台外运动至右侧舞台外的动画，该图层中补间动画的类型是　 　（选填：动画补间/形状补间）；该图层第20帧中“白云”实例的位置坐标最有可能为　 　（单选，填字母A .(342,80)/ B .(670, -170)/ C .(-80,-170)/D .(-342,96) )
（5）观察图b，测试影片时，单击该场景的“范例”按钮，实现在浏览器中显示位于同一文件夹下“fanli.txt”文件的内容，并停止当前动画的播放。则在该按钮上添加的动作脚本是　 　。
15．（2020高二上·诸暨期末）对数组a中的n个元素进行排序，生成左右交替上升的数据序列，结果如下表所示：
a（1） a（2） a（3） …… a（n-2） a（n-1） a（n）
27 35 39 …… 49 39 33
小华由此设计一个VB程序，功能如下：单击“排序”按钮Command1，随机生成10个两位奇数，将随机生成的数据序列显示在文本框Text1中，在文本框Text2中显示完成排序后的数据序列，运行结果如图所示。
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Randomize
Const n = 10
For i = 1 To n
a(i) = ①
Text1.Text = Text1.Text + Str(a(i))
Next i
For i = 1 To n \ 2
For j = n - i + 1 To i + 1 Step -1
If a(j) < a(j - 1) Then
t = a(j - 1)
②
a(j) = t
End If
Next j
For j = i + 1 To n - i
If Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
For i = 1 To n
Text2.Text = Text2.Text + Str(a(i))
Next i
End Sub
（1）代码Command1_Click()中的Click属于　 　（单选，填字母：A .对象名/B .事件名/C .方法名/D .事件处理过程名）。
（2）程序中①处的代码可能是 （单选，填字母）。
A．Int(Rnd * 88) + 11 B．Int(Rnd * 89) + 11
C．Int(Rnd * 44) * 2 + 11 D．Int(Rnd * 45) * 2 + 11
（3）程序中②处填入合适的代码　 　
（4）程序代码中，加框处语句有错，请改正。
16．（2020高二上·诸暨期末）某数据加密方法描述如下：
1）以字节为单位进行加密处理；
2）将1个字节的8位二进制数分割成前4位与后4位两个二进制数；
3）分别将上述两个4位二进制数转换成十进制数；
4）将每个十进制数转换为1个加密字符，对应的“密码表”如下：
值（十进制） 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
加密字符 I l i k e C H N p o s t c a r d
小华按照上述方法，设计了一个字符串（仅包含ASCII字符）解密的VB程序，功能如下：在文本框Text1中输入一串密文，单击“解密”按钮Command1，在文本框Text2中显示解密结果。
下表显示了字符串中一个字符的加密过程：
m ←转换前字符m
109 ←字符m的ASCII码十进制值
0 1 1 0 1 1 0 1 ←对应的二进制数
6 13 ←分割、转换后的十进制数
H a ←对应的加密字符
　 　 　 　 　 　 　 　 　
程序运行效果如图所示。
（1）若上述程序运行时在文本框Text1中输入“HrHd”，在文本框Text2中显示　 　。
（2）请在划线处填入合适的代码。
Private Sub
Command1_Click()
Dim
a(1 To 100) As Integer
Dim
s1 As String, s2 As String, c As String
Dim x
As Integer, k As Integer, i As Integer, j As Integer
Const
code = "IlikeCHNpostcard"
n = Len(code)
s1 =
Text1.Text
x =
0: k = 0
For i
= 1 To Len(s1)
c
= Mid(s1, i, 1)
For j
= 1 To n
If 　 　 Then
pos = j - 1
x
= x * 16 + pos
Exit For
'退出当前For循环
End If
Next j
If i
Mod 2 = 0 Then
　 　
a(k) = x
x = 0
End If
Next
i
For i
= 1 To k
　 　
Next i
Text2.Text = s2
End Sub
答案解析部分
1．【答案】C
【知识点】信息及其特征；信息技术的概念与关键技术
2．【答案】D
【知识点】文本的基本编辑；文本的图片与表格处理
3．【答案】C
【知识点】数据表、字段、记录的编辑
4．【答案】D
【知识点】声音素材的基本处理
5．【答案】C
【知识点】字符编码
6．【答案】C
【知识点】声音、图像、视频编码
7．【答案】C
【知识点】流程图识读
8．【答案】B
【知识点】运算符、基本运算与表达式；常用标准函数
9．【答案】C
【知识点】循环结构语句及程序实现；常用标准函数
10．【答案】C
【知识点】循环结构语句及程序实现
11．【答案】A
【知识点】常见数据类型、数组；循环结构语句及程序实现
12．【答案】A
【知识点】查找算法及程序实现
13．【答案】（1）=B3/$B$14*100
（2）变小
（3）A2:A5,D2:E5
（4）杭州市
【知识点】表格数据的处理与计算；表格数据的图表呈现
14．【答案】（1）AD
（2）事件
（3）“背景”图层第21帧清除关键帧。或“背景”图层第1帧复制帧，第21帧粘贴帧。或其他等价方法。
（4）动画补间；D
（5）on (press) { getURL("fanli.txt"); stop();} 或on (release) { getURL("fanli.txt"); stop(); }
【知识点】图片加工常用工具的使用；时间轴、帧、图层、库的概念及基本操作；二维动画实例属性的设置；常用影片控制函数的应用；声音同步属性设置
15．【答案】（1）B
（2）D
（3）a(j - 1)=a(j)
（4）a(j) < a(j + 1)
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；排序算法及程序实现；常用标准函数
16．【答案】（1）no
（2）c = Mid(code,j,1)；k=k+1；s2=s2+Chr(a(i))
【知识点】加密与解密算法
1 / 1浙江省诸暨市2019-2020学年高二上学期信息技术期末考试试卷
一、选择题（本大题共12小题，每小题2分，共24分。）
1．（2020高二上·诸暨期末）下列有关信息和信息技术的说法，正确的是（　　）
A．用手机扫描二维码，是对信息进行编码的过程
B．信息必须依附于载体，故不可以脱离它所反映的事物被存储和传播
C．交警指挥交通必须采用规定的手势，这是为了信息表达的规范化
D．电影技术、电视技术、广播技术、计算机技术等均属于现代信息技术
【答案】C
【知识点】信息及其特征；信息技术的概念与关键技术
2．（2020高二上·诸暨期末）使用Word软件编辑某文档，部分界面如图所示。
下列说法正确的是（　　）
A．文中共使用了2处批注，添加批注的用户名为“A”
B．实现图中的图文环绕效果可以采用“嵌入型”环绕方式
C．删除图中批注后，批注对象和批注内容同时被删除
D．拒绝对文档的所有修订后，文字“既”被保留
【答案】D
【知识点】文本的基本编辑；文本的图片与表格处理
3．（2020高二上·诸暨期末）使用Access软件打开数据库，部分界面如图所示。
下列操作可行的是（　　）
A．选中当前记录的“书籍编号”字段值，将“4”修改为“7”
B．选中视图中的表名称“表1”，将其重命名为“高一藏书”
C．在“书名”和“作者”字段之间添加一个新字段“出版社”
D．输入文字“是”作为新记录中“借出”的有效字段值
【答案】C
【知识点】数据表、字段、记录的编辑
4．（2020高二上·诸暨期末）使用GoldWave软件编辑某音频文件，部分界面如图所示。
下列说法正确的是（　　）
A．该音频文件为mp3格式，采样频率为44100Hz
B．当前状态下，执行“删除”操作，音频文件将变为单声道
C．当前状态下，执行“插入静音”添加1秒静音后，右声道时长不变
D．当前状态下，先执行“复制”，再执行“粘贴”，音频时长将变成8秒
【答案】D
【知识点】声音素材的基本处理
5．（2020高二上·诸暨期末）使用UltraEdit软件观察字符内码，部分界面如图所示。已知汉字内码是由区位码（十六进制）中每个字节的数值加A0H组成，则汉字“对”的区位码（十进制）为（　　）
A．B6 D4 B．16 34 C．22 52 D．27 16
【答案】C
【知识点】字符编码
6．（2020高二上·诸暨期末）一段时长为10秒、1024×800像素、32位色、PAL制式（25帧/秒）的未经压缩AVI格式无声视频，其文件存储容量约为（　　）
A．23MB B．70 MB C．781 MB D．2250 MB
【答案】C
【知识点】声音、图像、视频编码
7．（2020高二上·诸暨期末）某算法的部分流程图如图所示。下列说法正确的是（　　）
A．该流程执行后，变量s的值是 -1
B．该流程执行后，变量k的值是10
C．该流程完整执行1次，“s←s-k”共执行了4次
D．该流程完整执行1次，“s≥0 ”共执行了4次
【答案】C
【知识点】流程图识读
8．（2020高二上·诸暨期末）以下选项中，表达式的值最大的是（　　）
A．Sqr(50) B．28 \ 3 Mod 10
C．Val(Mid("202007", 6, 1)) D．Abs(Int(-7．1))
【答案】B
【知识点】运算符、基本运算与表达式；常用标准函数
9．（2020高二上·诸暨期末）有如下VB程序段：
Dim a(1 To 10) As Integer
s = "8+9+10=": n = 1
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
a(n) = a(n) * 10 + Val(ch)
Else
If a(n) > 0 Then n = n + 1
End If
Next i
Text1.Text = Str(n)
数组a各元素的初始值都为0，若执行该程序后，在文本框Text1中显示的值为（　　）
A．2 B．3 C．4 D．5
【答案】C
【知识点】循环结构语句及程序实现；常用标准函数
10．（2020高二上·诸暨期末）有如下VB程序段：
Dim t(0 To 9) As Integer
n = Val(Text1.Text)
For i = 10 To 30
a = i Mod 10
b = i \ 10
If a = n Or b = n Then t(n) = t(n) + 1
Next i
Label1.Caption = Str(t(n))
数组t中各个元素初值均为0，在文本框Text1中分别输入2时，执行该程序后，Label1中显示的内容为（　　）
A．2 B．10 C．11 D．12
【答案】C
【知识点】循环结构语句及程序实现
11．（2020高二上·诸暨期末）某算法的VB程序段如下：
a(1) = 12: a(2) = 44: a(3) = 65: a(4) = 36: a(5) = 58
x = 0: y = 0
For i = 1 To 4
k = i
For j = i + 1 To 5
If a(j) > a(k) Then
k = j
x = x + 1
End If
Next j
If k <> i Then
t = a(i): a(i) = a(k): a(k) = t
y = y + 1
End If
Next i
Text1.Text = Str(x) + Str(y)
执行该程序段后，文本框Text1中显示的内容是（　　）
A．5 3 B．5 5 C．10 3 D．10 5
【答案】A
【知识点】常见数据类型、数组；循环结构语句及程序实现
12．（2020高二上·诸暨期末）数组a为一组已按降序排序的正整数，依据对分查找思想：设计一个在数组a中查找数据Key的程序。实现该功能的VB程序段如下：
Dim a(1 To 6) As Integer
Const n = 6
a(1) = 98: a(2) = 96: a(3) = 95
a(4) = 90: a(5) = 87: a(6) = 81
i = 1: j = n
Key = Val(Text1.Text)
f = False
Do While And f = False
m = (i + j) \ 2
If a(m) = Key Then
Text1.Text = "已找到": f = True
ElseIf a(m) > Key Then
Else
End If
Loop
上述程序中方框处语句依次为（　　）
A．i <= j i = m + 1 j = m - 1
B．i <= j j = m - 1 i = m + 1
C．i < j j = m - 1 i = m + 1
D．i < j i = m + 1 j = m - 1
【答案】A
【知识点】查找算法及程序实现
二、非选择题（本大题共4小题，4+8+7+7，共26分）
13．（2020高二上·诸暨期末）小华使用Excel软件对2018年浙江省各市各类学校在校学生数进行处理，如图a
所示。
图a
（1）区域F3:F13的数据是通过公式计算得到的：在F3单元格中输入公式　 　,再利用自动填充功能完成区域F4:F13的计算。
（2）已知B14单元格的数据是通过SUM函数计算求得，若修改B4单元格中的数值为159804，则显示在F3单元中的数据将　 　(选填：变大 / 变小 /不变）。
（3）根据图a中相关数据制作图表,如图b所示，创建该图表的数据区域是　 　。
图b
（4）将区域A2:F13的数据复制到新工作表，设置“中等职业 学校（人）”和“普通中学（万人）”的筛选方式分别如图c和图d所示，则筛选出的城市为　 　（填城市名称）。
【答案】（1）=B3/$B$14*100
（2）变小
（3）A2:A5,D2:E5
（4）杭州市
【知识点】表格数据的处理与计算；表格数据的图表呈现
14．（2020高二上·诸暨期末）使用多媒体编辑软件创作“旋转的风车”多媒体作品。
图a
（1）Photoshop部分编辑界面如图a所示，下列说法正确的是　 　（可多选，填字母：A ．用移动工具移动“右坡”图层中的图像位置，“左坡”图层中的图像位置随之改变 /B ．选中“白云”图层，添加“镜头光晕”的滤镜效果/C ．选中“背景”图层，设置“外发光”的图层样式 /D ．另存为BMP文件，“文字”图层的图层样式不可视）
（2）观察图b，“声音”图层中添加了声音素材“配音．mp3”，测试场景时在“白云”图层动画开始播放时声音还在继续播放，则声音“同步”方式为　 　（选填：数据流 / 事件）。
图b
（3）观察图b，测试该场景时，“背景”图层内容在播放完第20帧后消失，为了使该图层内容一直延续至本场景结束，可行的操作是　 　。
（4）观察图b，图中“白云”图层创建了“白云”实例从左侧舞台外运动至右侧舞台外的动画，该图层中补间动画的类型是　 　（选填：动画补间/形状补间）；该图层第20帧中“白云”实例的位置坐标最有可能为　 　（单选，填字母A .(342,80)/ B .(670, -170)/ C .(-80,-170)/D .(-342,96) )
（5）观察图b，测试影片时，单击该场景的“范例”按钮，实现在浏览器中显示位于同一文件夹下“fanli.txt”文件的内容，并停止当前动画的播放。则在该按钮上添加的动作脚本是　 　。
【答案】（1）AD
（2）事件
（3）“背景”图层第21帧清除关键帧。或“背景”图层第1帧复制帧，第21帧粘贴帧。或其他等价方法。
（4）动画补间；D
（5）on (press) { getURL("fanli.txt"); stop();} 或on (release) { getURL("fanli.txt"); stop(); }
【知识点】图片加工常用工具的使用；时间轴、帧、图层、库的概念及基本操作；二维动画实例属性的设置；常用影片控制函数的应用；声音同步属性设置
15．（2020高二上·诸暨期末）对数组a中的n个元素进行排序，生成左右交替上升的数据序列，结果如下表所示：
a（1） a（2） a（3） …… a（n-2） a（n-1） a（n）
27 35 39 …… 49 39 33
小华由此设计一个VB程序，功能如下：单击“排序”按钮Command1，随机生成10个两位奇数，将随机生成的数据序列显示在文本框Text1中，在文本框Text2中显示完成排序后的数据序列，运行结果如图所示。
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Randomize
Const n = 10
For i = 1 To n
a(i) = ①
Text1.Text = Text1.Text + Str(a(i))
Next i
For i = 1 To n \ 2
For j = n - i + 1 To i + 1 Step -1
If a(j) < a(j - 1) Then
t = a(j - 1)
②
a(j) = t
End If
Next j
For j = i + 1 To n - i
If Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
For i = 1 To n
Text2.Text = Text2.Text + Str(a(i))
Next i
End Sub
（1）代码Command1_Click()中的Click属于　 　（单选，填字母：A .对象名/B .事件名/C .方法名/D .事件处理过程名）。
（2）程序中①处的代码可能是 （单选，填字母）。
A．Int(Rnd * 88) + 11 B．Int(Rnd * 89) + 11
C．Int(Rnd * 44) * 2 + 11 D．Int(Rnd * 45) * 2 + 11
（3）程序中②处填入合适的代码　 　
（4）程序代码中，加框处语句有错，请改正。
【答案】（1）B
（2）D
（3）a(j - 1)=a(j)
（4）a(j) < a(j + 1)
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；排序算法及程序实现；常用标准函数
16．（2020高二上·诸暨期末）某数据加密方法描述如下：
1）以字节为单位进行加密处理；
2）将1个字节的8位二进制数分割成前4位与后4位两个二进制数；
3）分别将上述两个4位二进制数转换成十进制数；
4）将每个十进制数转换为1个加密字符，对应的“密码表”如下：
值（十进制） 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
加密字符 I l i k e C H N p o s t c a r d
小华按照上述方法，设计了一个字符串（仅包含ASCII字符）解密的VB程序，功能如下：在文本框Text1中输入一串密文，单击“解密”按钮Command1，在文本框Text2中显示解密结果。
下表显示了字符串中一个字符的加密过程：
m ←转换前字符m
109 ←字符m的ASCII码十进制值
0 1 1 0 1 1 0 1 ←对应的二进制数
6 13 ←分割、转换后的十进制数
H a ←对应的加密字符
　 　 　 　 　 　 　 　 　
程序运行效果如图所示。
（1）若上述程序运行时在文本框Text1中输入“HrHd”，在文本框Text2中显示　 　。
（2）请在划线处填入合适的代码。
Private Sub
Command1_Click()
Dim
a(1 To 100) As Integer
Dim
s1 As String, s2 As String, c As String
Dim x
As Integer, k As Integer, i As Integer, j As Integer
Const
code = "IlikeCHNpostcard"
n = Len(code)
s1 =
Text1.Text
x =
0: k = 0
For i
= 1 To Len(s1)
c
= Mid(s1, i, 1)
For j
= 1 To n
If 　 　 Then
pos = j - 1
x
= x * 16 + pos
Exit For
'退出当前For循环
End If
Next j
If i
Mod 2 = 0 Then
　 　
a(k) = x
x = 0
End If
Next
i
For i
= 1 To k
　 　
Next i
Text2.Text = s2
End Sub
【答案】（1）no
（2）c = Mid(code,j,1)；k=k+1；s2=s2+Chr(a(i))
【知识点】加密与解密算法
1 / 1

展开更多......

收起↑