浙江省东阳市第二高级中学高二信息技术下学期第三次调研考试试题(选考)x
时间：2020-10-10 08:16:01 来源：勤学考试网 本文已影响 人 
-
- PAGE # -
咼二第二次教学调研考试信息技术试题卷
一、选择题(本大题共 3
一、选择题(本大题共 3题，每题2分，共6分) 1?将一个时长为 音频文件压缩为
A. 11: 1
1分钟、采样频率为 44.1kHz、量化位数为16、双声道未经压缩的 Wave格式 MP3格式文件，压缩后的 MP3格式文件大小为940KB,则其压缩比约为
B.11 : 2 C. 11 : 4 D. 88 : 1
2.已知单调函数f (x)在［0，1］区间存在一个 X。，使f(X。)=0。现用对分查找法搜索 X。
2.已知单调函数
值，开始搜索区间为［0，1］，若经过10次对分查找后还需继续搜索，则第 11次搜索区间的
长度为
A.1/2 B. 1/10 C. 1/102 D. 1/ 210
有如下VB程序段：
Dim a(l To 5) As In teger, i As In teger, c As In teger
a(l) = 2 : a(2) = 1 : a(3) = 3 : a(4)=4 : a(5) = 5
c=0
For i = 3 To 5
If a(i - 2) + a(i - 1) = a(i) Then c = c + 1
Next i
Textl. Text = Str(c)
该程序段运行后，文本框 Textl中显示的内容是
A.1 B. 2 C. 3 D. 4
二.综合填空(本大题共 2题，第4小题4分，第5小题5分，共9分)
n个数据的冒泡排序需要经过 n-1遍加工，每一遍加工自下而上比较相邻两个数据，把较
小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据 已经有序，无需
进一步加工。为此， 小刘对算法进行优化，编写了一个 VB程序，功能如下：运行程序时，在
列表框List1中显示排序前数据，单击"排序”按钮 Commaiid1，在列表框List2 中显示这
些数据按升序排序后的结果，在标签 Label3中显示排序过程的加工遍数。运行效果如第 4题
图所示。
第4题图
实现上述功能的 VB代码如下，但加框处代码有错，请改正。
Dim a(1 To 8) As In teger
Dim n As In teger
Private Sub Form_Load()
'n=8，排序前数据存储在数组 a中，并在列表框 Listl中显示
'代码略
End Sub
Private Sub Comma nd1_Click()
Dim flag As Boolean 'flag 值为True表示一遍加工中发生过交换
i = 1
flag = True
Do While i <= n - 1 Or flag = True ( 1)
flag = False
For j = n To i + 1 Step -1
If a(j) < a(j - 1) Then
a(j) = a(j - 1): a(j - 1) = k
a(j) = a(j - 1): a(j - 1) = k
排序过程的加工遍数为” +
(2)
flag = True
End If
Next j
i = i + 1
Loop
Label3.Caption ="
For i = 1 To n
List2.AddItem Str(a(i))
Next i
End Sub
编辑：浙江省桐乡第一中学 杜宗飞
某数据加密方法描述如下：
以字节为单位进行加密处理；
将1个字节的8位二进制数分割成前 4位与后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
0
s
t
c
a
r
d
小明按照上述方法，设计了一个字符串(仅包含 ASCII字符)加密的 VB程序，功能如下：单
击“加密”按钮 Commandl,程序依次将文本框 Textl中每个字符的ASCII码值作为1个字节转 换为两个加密字符，连接这些加密字符，最后在文本框 Text2中输出加密结果。下表显示了
字符串中一个字符的加密过程：
亠转换前字符Hl
-宇符m的ASCH码十进制值
—对应的二进制数
?分割■转换后的十进制数
程序运行效果如第 5题图所示。■对应的加密字符
程序运行效果如第 5题图所示。
实现上述功能的 VB程序如下：
(1)请在划线处填入合适代码。
Private Sub Comma nd1_Click()
Dim n As Integer, s As String, i As Integer, ss As String
Dim a As Integer ' 存储加密前字符的 ASCII码
Dim b1 As In teger, b2 As In teger ' 分别存储分割、转换后的两个十进制数
s = Text1.Text
①
For i = 1 To n
a = Asc(Mid(s, i, 1))
b1 = a\ 16
b2 = a Mod 16
ss = ss + Code2Char(b1) + Code2Char(b2)
Text2.Text = ss
Next i
End Sub
'十进制值转换为加密字符的函数
Fun ction Code2Char(c As In teger) As Stri ng
Dim s As Stri ng
s = "IlikeCHNpostcard"
Code2Char = ②
End Function
(2)若将“密码表”中值为“ 0”对应的加密字符“ I ”改成“ i ”，加密后的密文可能无法解
密，原因是 。
信息技术答题卷
选考部分
、选择题
1
2
3
二综合填空题
(1)
(2)
( 1)① ②
(2)
信息技术答案
选考部分
、选择题
1
2
3
A
D
B
二、综合填空题
( 1) i <= n - 1 And flag = True
(2)Str(i-I)
(1) ① n = Len(s) 或 n = Len(Text1.Text) ② Mid(s , c + 1, 1)
(2)
