-
- 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)