资源简介

浙江省杭州地区(含周边)重点中学2020-2021学年高二下学期信息技术期中考试试卷
一、选择题(本大题共12小题，每小题2分，共24分。)
1．（2021高二下·杭州期中）下列关于信息与信息技术说法正确的是（　　）
A．古代也有信息技术，人类主要通过手势、声音和各种形体动作来表达信息
B．信息具有时效性，因此获取的信息应当立即发布
C．信息具有共享性，可以在网盘中共享任何视频
D．档案卷宗上记录有不同时期的重要事件，所以档案卷宗是信息
【答案】A
【知识点】信息及其特征；信息技术的发展历史
2．（2021高二下·杭州期中）下列关于浏览器与网页描述正确的是（　　）
A．使用搜索引擎搜索信息时，可通过减少关键字来减少搜索到的信息数量
B．若使浏览器启动时自动打开某个网站，可使用浏览器主页的功能
C．在IE浏览器中，选择“网页，仅HTML(*．htm；*．html)”类型保存网页，不可以保存网页中的超链接
D．只有纯文字的网页才可以用记事本编辑
【答案】B
【知识点】网络资源的类型、下载与保存；浏览器；网络资源的检索
3．（2021高二下·杭州期中）关于Access数据库，下列说法不正确的是（　　）
A．新增记录，不会对已有记录的字段值产生影响
B．Access、FoxPro是小型数据库管理系统
C．在Access数据表输入数据后，则不能再将任何字段设置为主键
D．数据库中可以存储图片或视频
【答案】C
【知识点】数据库的分类与应用；数据表、字段、记录的编辑
4．（2021高二下·杭州期中）关于二进制、十进制与十六进制的整数，下列说法正确的是（　　）
A．7位二进制数的最大值为128D
B．任何4位二进制数都不可能大于FH
C．仅凭十六进制最末位上的数，无法确定该数是奇数还是偶数
D．在十六进制数最末位后添上一位十六进制数A，所得新数是原数的16倍
【答案】B
【知识点】进制及数制转换
5．（2021高二下·杭州期中）下列关于多媒体技术的说法不正确的是（　　）
A．多媒体技术的交互性是指媒体与媒体之间的信息交互
B．多媒体技术中的媒体是指承载信息的载体，如文字、声音、图形和图像等
C．多媒体作品的设计可分为需求分析、规划设计、脚本编写三大步骤
D．多媒体数据压缩后出现了少量失真，这种压缩必为有损压缩
【答案】A
【知识点】多媒体技术的概念和特征；多媒体作品的规划和设计；多媒体组成元素及文件格式；多媒体数据压缩技术
6．（2021高二下·杭州期中）一幅未经压缩的1024*768像素、RGB/8 模式的BMP图像，使用photoshop将图像的宽度和高度各缩小到原来的50%，再存储为16位色的BMP图像。则处理前后的文件存储容量之比约为（　　）
A．6：1 B．8：1 C．2：1 D．12：1
【答案】A
【知识点】声音、图像、视频编码
7．（2021高二下·杭州期中）下列表达式的值一定为False的是（　　）
A．Mid("Visual"，1，1) < Mid("Visual"，2，1)
B．Len("654321")>Int (Rnd*3) ~2
C．1=6/2\2
D．Val("1"+"1")=2
【答案】D
【知识点】运算符、基本运算与表达式
8．（2021高二下·杭州期中）某算法的部分流程图如图所示。若要计算 ，则流程图中①处填入的语句（　　）
A．s←1/k*i B．s←s+1/(k*i)
C．s←1/(-k)*i D．s←s+1/k*i
【答案】B
【知识点】流程图识读
9．（2021高二下·杭州期中）有如下程序段
Private Sub Command1_Click ()
Dim a(1 To 10) As Integer，i As Integer
For i=1 To 10
a(i)=i^i
Next i
List1.AddItem Str(a(i))
End Sub
运行程序，单击命令按钮Command1后，出现的错误提示为（　　）
A．下标越界 B．类型不匹配
C．溢出 D．子程序或函数未定义
【答案】C
【知识点】循环结构语句及程序实现
10．（2021高二下·杭州期中）有如下VB程序段
Const n=11
Dim a(1 To n) As Integer，y(1 To n) As Integer， i As Integer， j As Integer
k=Val (Text1.Text)
For i=1To n
y(i)=1
Next i
For i=1 To n
For j=1 To n
If a(i) < a(j) Then y(i)=y(i)+1
Next j
If y(i)=k Then Text2.Text=Text2.Text+Str(a(i))
Next i
数组a的各元素的值为“3，4，3，1，4，4，5，5，6，2，0”，在文本框Text1中输入4，执行该段程序后文本框Text2中显示的值为（　　）
A．4 4 4 B．4 4 C．3 D．3 3
【答案】A
【知识点】常见数据类型、数组；循环结构语句及程序实现
11．（2021高二下·杭州期中）有如下VB程序段
Dim k As Integer， num As Integer， m As Integer
Dim s As String， ans As String
s =" abcdefghi jk lmnopqrs tuvwxyz "
k=26：ans=””
m = Val(Text1.Text)
Do While m> 0
x=Int(Rnd()*k)+1
ans=ans+Mid(s， x，1)
s =Mid(s，1，x-1)+Mid(s，k，1)+Mid(s，x+1，26-x)
k=k-1：m=m-1
Loop
Text2.Text = ans
文本框Text1中输入4，执行上述程序后，文本框Tex2中有显示的内容不可能为（　　）
A．snyg B．tuna C．vmlc D．Amzm
【答案】D
【知识点】循环结构语句及程序实现；常用标准函数
12．（2021高二下·杭州期中）有如下VB程序段
Dim a(1 To 8) As Integer， b(1 To 8) As Integer
a(1)=1： a(2)=2： a(3)=3： a(4)=2： a(5)=1：a(6)=4：a(7)=3： a(8)=5
b(1)=5：b(2)=3：b(3)=5：b(4)=9：b(5)=7：b(6)=7：b(7)=7：b(8)=6
n=8
For i=1 To n-1
For j=n-1 To i Step-1
If a(j)*b(j+1)t=a(j)：a(j)=a(j+1)：a(j+1)=t
t=b(j)：b(j) =b(j+1)：b(j+1)=t
End If
Next j
Next i
For i=1 To 8
List1.AddItem str(a(i))+" "+str(b(i))
Next i
运行该程序段后，列表框List1第5行显示的内容为（　　）
A．1 5 B．3 7 C．2 5 D．4 7
【答案】B
【知识点】常见数据类型、数组；排序算法及程序实现
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2021高二下·杭州期中）小张收集了某地部分市场菜篮子价格数据，并使用Excel软件进行数据处理，如图所示。
请回答下列问题：
（1）表中“平均值”数据是利用函数AVERAGE计算得到的，选择I3单元格输入公式，然后用自动填充功能完成其他单元格的计算。则I3单元格中的公式为　 　。
（2）为了分析数据的需要，创建了如图b所示的图表，则创建该图表的数据区域是　 　。
（3）若要对图a中所示数据按“最大差价”进行降序排列，则排序时选择的数据区域　 　 。
（4）对图a中的数据进行筛选，要找出“最大差价”最大的三个，可以选择　 　(单选，填字母：A .高于平均值/B
.10个最大的值/C .自定义筛选)
【答案】（1）=AVERAGE(C3:H3)或等价答案
（2）B2，B4：B9，I2,I4：I9
（3）A2:J13或者A3:J13
（4）B
【知识点】表格数据的处理与计算
14．（2021高二下·杭州期中）小明利用GoldWave和Flash制作了“倒计时”的动画。作品的Flash制作界面如图a所示。请回答下列问题：
（1）为了获取1秒钟的钟声作为倒计时声音，老师下载了3秒时长的声音，然后用GoldWawe软件截取声音，步骤如下：①单击按钮选择1秒时长的音频；②单击按钮截取1秒时长的音频：③保存声音，并导入到Flash中。其中第①步中应使用的按钮是　 　，第②步中应使用的按钮是　 　(选填字母：A . \B . \C . \D . ）
（2）图层“5”、“4"、“3”、“2”、“1”、“0”中分别是数字5、4、3、2、1、0的由大变小的动画，每出现一个数字动画，钟声响一次。现将钟声添加到背景图层第1帧，其属性面板如图b所示。为使“钟声”与数字动画同步，应作的调整是　 　。
（3）测试影片时，发现播放数字0的动画时，数字1仍停留在画面上，观察图a，应对图层1作的调整是　 　。
（4）测试影片时，当最后一个数字0的动画播放完毕后，动画停止播放，可以实现这一要求的操作是　 　。
【答案】（1）D；C
（2）在声音属性面板中将钟声.wav的重复次数设置为6
（3）第51帧执行插入空白关键帧操作 或第51-60帧执行删除帧操作或等价答案
（4）在“0”图层的最后一帧添加动作脚本“stop（）；”或等同表述
【知识点】声音素材的基本处理；时间轴、帧、图层、库的概念及基本操作；常用影片控制函数的应用；声音同步属性设置
15．（2021高二下·杭州期中）学校需要从A班(共50人)选拔一批学生集训准备比赛。小明为了减轻老师的工作量，编写了一个程序帮助老师解决这个问题，将所有学生的成绩排序后按照预设人数划取分数线。由于相同分数可能有多个学生，找出最接近预设人数的分数作为分数线。如果按照前分和按后分录取增加或减少的人数相同时则按高于录取人数进行录取，最后输出录取的学生名单。例如现要求选拔15个学生，排序后第14-20名的学生成绩相同，由于13比20更接近预录取人数，因此实际只录取13人。小明编写的VB程序如下，在文本框Text1中输入拟录取人数，单击“确定”按钮后，在标签Labe15和Labe16中输出录取人数和分数线，在List1中输出录取学生名单。
实现上述功能的代码如下。请回答下列问题：
（1）观察代码，“确定”按钮的对象名是　 　。
（2）请在划线处填入合适的代码
Dim xh(0 To 100) As String ．
Dim cj(0 To 100) As Integer
Const num = 50
Private Sub Form_ Load ()
‘本过程从数据库读取每位学生的学号和成绩存放在数组xh和cj中，代码略
End Sub
Private Sub Com1_Click ()
Dim i
As Integer， m As Integer， n As Integer， k As Integer， a As Integ
a =
Val(Text1.Text)
For
i=1 To num-1
k=　 　
If
k<>i Then
t=cj(k)：cj(k)=cj(i)：cj(i)=t
s=xh(k)：xh(k)=xh(i)：xh(i)=s
End If
Next i
m=a-1：n=a+1
Do
While cj(m) = cj(a)
m=m-1
Loop
Do
While cj(n) = cj(a)
n=n+1
Loop
If
m<>0 And 　 　 Then lq = m Else lq=n-1
Label5.Caption
= Str(lq)
Label6.Caption
= Str(cj(lq))
List1.AddItem “字号”+“学号”+“成绩”
For
i=1 To lq
List1.AddItem Str(i) +“ ”+xh(i)+Str(cj(i))
Next i
End Sub
Function imax(x As Integer， y As Integer) As Integer
Dim i As Integer，j As Integer
i=x
For
j=x+1 To y
If 　 　 Then i=j
Next j
imax =
i
End Function
【答案】（1）com1
（2）imax(i, num)；a-m < n- 1- a或等价答案；cj(i) < cj(j)
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；过程与自定义函数；排序算法及程序实现
16．（2021高二下·杭州期中）某图书馆整理系统会自动将借阅归还的书籍按照书籍编号从小到大进行排序，以便于图书管理员查阅各阅览室书籍的在架情况。小明模仿该系统设计了如下程序，程序运行时，会自动对在架的书籍根据编号进行升序排序，在文本框Text1中输入阅览室编号，点击“查询”按钮，程序会将该阅览室的所有书籍及其对应的位置和书名全部输出到列表框List1中，如图所示。已知该图书馆分成四个阅览室，1号阅览室放置图书大类为A-F的书籍，2号阅览室放置图书大类为G-N的书籍……以此类推，每本书的编号第一位代表该书所属的图书大类。
实现上述功能的VB程序如下，请回答下列问题：
（1）下列属于VB窗体文件的是 (单选，填字母)。
A．dj.vbp B．dj.frm C．jd.exe D．dj.Vbw
（2）请在划线处填上合适的代码。
Dim book(1 To 100) As String '存储书籍的编号
Dim bname(1 To 100) As String '存储书籍的书名
Dim pos(1 To 100) As String '存储书籍所在阅览室的位置
Dim rroom(1 To 4) As String '存储每个阅览室存放书籍的大类
Dim n As Integer'在架书籍总数
Private Sub Form_ Load ()
'在架书籍根据编号进行升序排序，书籍编号、书籍名称和所在阅览室的位置分别存放在数组book、bname 和pos中，在架书籍总数为n，代码略
rroom(1)="ABCDEF"：rroom(2)="GHIJKN"
rroom(3)="OPQRST"：rroom(4)="UVXZ" '每个阅览室存放的书籍大类
End Sub
Private Sub Command1_Click ()
Dim id
As Integer，i As Integer，key1 As String，key2 As String，flag As Integer
Dim
start1 As Integer，end1 As Integer
id = Val(Text1． Text)
key1=
Mid(rroom(id)，1，1)
key2= 　 　
start1 =check (key1，1)
end1 =
check (key2，-1)
For i =
start1 to 　 　
List1．AddItem "编号："+gs(book(i))+"位置："+gs(pos(i))+"书名："+gs
(bname(i))
Next i
End Sub
Function check(key As String， flag As Integer) As Integer
Dim
left As Integer， right As Integer， m As Integer
left=1：right=n
Do While left <= right
m=
(left + right) \ 2
If Then
right= m - 1
Else
left=m+1
End If
Loop
check = left
End Function
Function gs(s As String) As String
Dim i As Integer
For i=1To15-Len(s)
s=s+""
Next i
gs=S
End Function
（3）程序加框处代码有错误，请改正。
【答案】（1）B
（2）Mid(rroom(id), Len(rroom(id)), 1)；end1 - 1
（3）Mid(book(m), 1, 1) > key Or Mid(book(m), 1, 1) = key And flag = 1
或 flag= -1 And Mid(book(m), 1, 1)> key or flag= 1 And Mid(book(m), 1, 1)>= key
【知识点】过程与自定义函数；排序算法及程序实现；窗体文件、工程文件及其扩展名
1 / 1浙江省杭州地区(含周边)重点中学2020-2021学年高二下学期信息技术期中考试试卷
一、选择题(本大题共12小题，每小题2分，共24分。)
1．（2021高二下·杭州期中）下列关于信息与信息技术说法正确的是（　　）
A．古代也有信息技术，人类主要通过手势、声音和各种形体动作来表达信息
B．信息具有时效性，因此获取的信息应当立即发布
C．信息具有共享性，可以在网盘中共享任何视频
D．档案卷宗上记录有不同时期的重要事件，所以档案卷宗是信息
2．（2021高二下·杭州期中）下列关于浏览器与网页描述正确的是（　　）
A．使用搜索引擎搜索信息时，可通过减少关键字来减少搜索到的信息数量
B．若使浏览器启动时自动打开某个网站，可使用浏览器主页的功能
C．在IE浏览器中，选择“网页，仅HTML(*．htm；*．html)”类型保存网页，不可以保存网页中的超链接
D．只有纯文字的网页才可以用记事本编辑
3．（2021高二下·杭州期中）关于Access数据库，下列说法不正确的是（　　）
A．新增记录，不会对已有记录的字段值产生影响
B．Access、FoxPro是小型数据库管理系统
C．在Access数据表输入数据后，则不能再将任何字段设置为主键
D．数据库中可以存储图片或视频
4．（2021高二下·杭州期中）关于二进制、十进制与十六进制的整数，下列说法正确的是（　　）
A．7位二进制数的最大值为128D
B．任何4位二进制数都不可能大于FH
C．仅凭十六进制最末位上的数，无法确定该数是奇数还是偶数
D．在十六进制数最末位后添上一位十六进制数A，所得新数是原数的16倍
5．（2021高二下·杭州期中）下列关于多媒体技术的说法不正确的是（　　）
A．多媒体技术的交互性是指媒体与媒体之间的信息交互
B．多媒体技术中的媒体是指承载信息的载体，如文字、声音、图形和图像等
C．多媒体作品的设计可分为需求分析、规划设计、脚本编写三大步骤
D．多媒体数据压缩后出现了少量失真，这种压缩必为有损压缩
6．（2021高二下·杭州期中）一幅未经压缩的1024*768像素、RGB/8 模式的BMP图像，使用photoshop将图像的宽度和高度各缩小到原来的50%，再存储为16位色的BMP图像。则处理前后的文件存储容量之比约为（　　）
A．6：1 B．8：1 C．2：1 D．12：1
7．（2021高二下·杭州期中）下列表达式的值一定为False的是（　　）
A．Mid("Visual"，1，1) < Mid("Visual"，2，1)
B．Len("654321")>Int (Rnd*3) ~2
C．1=6/2\2
D．Val("1"+"1")=2
8．（2021高二下·杭州期中）某算法的部分流程图如图所示。若要计算 ，则流程图中①处填入的语句（　　）
A．s←1/k*i B．s←s+1/(k*i)
C．s←1/(-k)*i D．s←s+1/k*i
9．（2021高二下·杭州期中）有如下程序段
Private Sub Command1_Click ()
Dim a(1 To 10) As Integer，i As Integer
For i=1 To 10
a(i)=i^i
Next i
List1.AddItem Str(a(i))
End Sub
运行程序，单击命令按钮Command1后，出现的错误提示为（　　）
A．下标越界 B．类型不匹配
C．溢出 D．子程序或函数未定义
10．（2021高二下·杭州期中）有如下VB程序段
Const n=11
Dim a(1 To n) As Integer，y(1 To n) As Integer， i As Integer， j As Integer
k=Val (Text1.Text)
For i=1To n
y(i)=1
Next i
For i=1 To n
For j=1 To n
If a(i) < a(j) Then y(i)=y(i)+1
Next j
If y(i)=k Then Text2.Text=Text2.Text+Str(a(i))
Next i
数组a的各元素的值为“3，4，3，1，4，4，5，5，6，2，0”，在文本框Text1中输入4，执行该段程序后文本框Text2中显示的值为（　　）
A．4 4 4 B．4 4 C．3 D．3 3
11．（2021高二下·杭州期中）有如下VB程序段
Dim k As Integer， num As Integer， m As Integer
Dim s As String， ans As String
s =" abcdefghi jk lmnopqrs tuvwxyz "
k=26：ans=””
m = Val(Text1.Text)
Do While m> 0
x=Int(Rnd()*k)+1
ans=ans+Mid(s， x，1)
s =Mid(s，1，x-1)+Mid(s，k，1)+Mid(s，x+1，26-x)
k=k-1：m=m-1
Loop
Text2.Text = ans
文本框Text1中输入4，执行上述程序后，文本框Tex2中有显示的内容不可能为（　　）
A．snyg B．tuna C．vmlc D．Amzm
12．（2021高二下·杭州期中）有如下VB程序段
Dim a(1 To 8) As Integer， b(1 To 8) As Integer
a(1)=1： a(2)=2： a(3)=3： a(4)=2： a(5)=1：a(6)=4：a(7)=3： a(8)=5
b(1)=5：b(2)=3：b(3)=5：b(4)=9：b(5)=7：b(6)=7：b(7)=7：b(8)=6
n=8
For i=1 To n-1
For j=n-1 To i Step-1
If a(j)*b(j+1)t=a(j)：a(j)=a(j+1)：a(j+1)=t
t=b(j)：b(j) =b(j+1)：b(j+1)=t
End If
Next j
Next i
For i=1 To 8
List1.AddItem str(a(i))+" "+str(b(i))
Next i
运行该程序段后，列表框List1第5行显示的内容为（　　）
A．1 5 B．3 7 C．2 5 D．4 7
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2021高二下·杭州期中）小张收集了某地部分市场菜篮子价格数据，并使用Excel软件进行数据处理，如图所示。
请回答下列问题：
（1）表中“平均值”数据是利用函数AVERAGE计算得到的，选择I3单元格输入公式，然后用自动填充功能完成其他单元格的计算。则I3单元格中的公式为　 　。
（2）为了分析数据的需要，创建了如图b所示的图表，则创建该图表的数据区域是　 　。
（3）若要对图a中所示数据按“最大差价”进行降序排列，则排序时选择的数据区域　 　 。
（4）对图a中的数据进行筛选，要找出“最大差价”最大的三个，可以选择　 　(单选，填字母：A .高于平均值/B
.10个最大的值/C .自定义筛选)
14．（2021高二下·杭州期中）小明利用GoldWave和Flash制作了“倒计时”的动画。作品的Flash制作界面如图a所示。请回答下列问题：
（1）为了获取1秒钟的钟声作为倒计时声音，老师下载了3秒时长的声音，然后用GoldWawe软件截取声音，步骤如下：①单击按钮选择1秒时长的音频；②单击按钮截取1秒时长的音频：③保存声音，并导入到Flash中。其中第①步中应使用的按钮是　 　，第②步中应使用的按钮是　 　(选填字母：A . \B . \C . \D . ）
（2）图层“5”、“4"、“3”、“2”、“1”、“0”中分别是数字5、4、3、2、1、0的由大变小的动画，每出现一个数字动画，钟声响一次。现将钟声添加到背景图层第1帧，其属性面板如图b所示。为使“钟声”与数字动画同步，应作的调整是　 　。
（3）测试影片时，发现播放数字0的动画时，数字1仍停留在画面上，观察图a，应对图层1作的调整是　 　。
（4）测试影片时，当最后一个数字0的动画播放完毕后，动画停止播放，可以实现这一要求的操作是　 　。
15．（2021高二下·杭州期中）学校需要从A班(共50人)选拔一批学生集训准备比赛。小明为了减轻老师的工作量，编写了一个程序帮助老师解决这个问题，将所有学生的成绩排序后按照预设人数划取分数线。由于相同分数可能有多个学生，找出最接近预设人数的分数作为分数线。如果按照前分和按后分录取增加或减少的人数相同时则按高于录取人数进行录取，最后输出录取的学生名单。例如现要求选拔15个学生，排序后第14-20名的学生成绩相同，由于13比20更接近预录取人数，因此实际只录取13人。小明编写的VB程序如下，在文本框Text1中输入拟录取人数，单击“确定”按钮后，在标签Labe15和Labe16中输出录取人数和分数线，在List1中输出录取学生名单。
实现上述功能的代码如下。请回答下列问题：
（1）观察代码，“确定”按钮的对象名是　 　。
（2）请在划线处填入合适的代码
Dim xh(0 To 100) As String ．
Dim cj(0 To 100) As Integer
Const num = 50
Private Sub Form_ Load ()
‘本过程从数据库读取每位学生的学号和成绩存放在数组xh和cj中，代码略
End Sub
Private Sub Com1_Click ()
Dim i
As Integer， m As Integer， n As Integer， k As Integer， a As Integ
a =
Val(Text1.Text)
For
i=1 To num-1
k=　 　
If
k<>i Then
t=cj(k)：cj(k)=cj(i)：cj(i)=t
s=xh(k)：xh(k)=xh(i)：xh(i)=s
End If
Next i
m=a-1：n=a+1
Do
While cj(m) = cj(a)
m=m-1
Loop
Do
While cj(n) = cj(a)
n=n+1
Loop
If
m<>0 And 　 　 Then lq = m Else lq=n-1
Label5.Caption
= Str(lq)
Label6.Caption
= Str(cj(lq))
List1.AddItem “字号”+“学号”+“成绩”
For
i=1 To lq
List1.AddItem Str(i) +“ ”+xh(i)+Str(cj(i))
Next i
End Sub
Function imax(x As Integer， y As Integer) As Integer
Dim i As Integer，j As Integer
i=x
For
j=x+1 To y
If 　 　 Then i=j
Next j
imax =
i
End Function
16．（2021高二下·杭州期中）某图书馆整理系统会自动将借阅归还的书籍按照书籍编号从小到大进行排序，以便于图书管理员查阅各阅览室书籍的在架情况。小明模仿该系统设计了如下程序，程序运行时，会自动对在架的书籍根据编号进行升序排序，在文本框Text1中输入阅览室编号，点击“查询”按钮，程序会将该阅览室的所有书籍及其对应的位置和书名全部输出到列表框List1中，如图所示。已知该图书馆分成四个阅览室，1号阅览室放置图书大类为A-F的书籍，2号阅览室放置图书大类为G-N的书籍……以此类推，每本书的编号第一位代表该书所属的图书大类。
实现上述功能的VB程序如下，请回答下列问题：
（1）下列属于VB窗体文件的是 (单选，填字母)。
A．dj.vbp B．dj.frm C．jd.exe D．dj.Vbw
（2）请在划线处填上合适的代码。
Dim book(1 To 100) As String '存储书籍的编号
Dim bname(1 To 100) As String '存储书籍的书名
Dim pos(1 To 100) As String '存储书籍所在阅览室的位置
Dim rroom(1 To 4) As String '存储每个阅览室存放书籍的大类
Dim n As Integer'在架书籍总数
Private Sub Form_ Load ()
'在架书籍根据编号进行升序排序，书籍编号、书籍名称和所在阅览室的位置分别存放在数组book、bname 和pos中，在架书籍总数为n，代码略
rroom(1)="ABCDEF"：rroom(2)="GHIJKN"
rroom(3)="OPQRST"：rroom(4)="UVXZ" '每个阅览室存放的书籍大类
End Sub
Private Sub Command1_Click ()
Dim id
As Integer，i As Integer，key1 As String，key2 As String，flag As Integer
Dim
start1 As Integer，end1 As Integer
id = Val(Text1． Text)
key1=
Mid(rroom(id)，1，1)
key2= 　 　
start1 =check (key1，1)
end1 =
check (key2，-1)
For i =
start1 to 　 　
List1．AddItem "编号："+gs(book(i))+"位置："+gs(pos(i))+"书名："+gs
(bname(i))
Next i
End Sub
Function check(key As String， flag As Integer) As Integer
Dim
left As Integer， right As Integer， m As Integer
left=1：right=n
Do While left <= right
m=
(left + right) \ 2
If Then
right= m - 1
Else
left=m+1
End If
Loop
check = left
End Function
Function gs(s As String) As String
Dim i As Integer
For i=1To15-Len(s)
s=s+""
Next i
gs=S
End Function
（3）程序加框处代码有错误，请改正。
答案解析部分
1．【答案】A
【知识点】信息及其特征；信息技术的发展历史
2．【答案】B
【知识点】网络资源的类型、下载与保存；浏览器；网络资源的检索
3．【答案】C
【知识点】数据库的分类与应用；数据表、字段、记录的编辑
4．【答案】B
【知识点】进制及数制转换
5．【答案】A
【知识点】多媒体技术的概念和特征；多媒体作品的规划和设计；多媒体组成元素及文件格式；多媒体数据压缩技术
6．【答案】A
【知识点】声音、图像、视频编码
7．【答案】D
【知识点】运算符、基本运算与表达式
8．【答案】B
【知识点】流程图识读
9．【答案】C
【知识点】循环结构语句及程序实现
10．【答案】A
【知识点】常见数据类型、数组；循环结构语句及程序实现
11．【答案】D
【知识点】循环结构语句及程序实现；常用标准函数
12．【答案】B
【知识点】常见数据类型、数组；排序算法及程序实现
13．【答案】（1）=AVERAGE(C3:H3)或等价答案
（2）B2，B4：B9，I2,I4：I9
（3）A2:J13或者A3:J13
（4）B
【知识点】表格数据的处理与计算
14．【答案】（1）D；C
（2）在声音属性面板中将钟声.wav的重复次数设置为6
（3）第51帧执行插入空白关键帧操作 或第51-60帧执行删除帧操作或等价答案
（4）在“0”图层的最后一帧添加动作脚本“stop（）；”或等同表述
【知识点】声音素材的基本处理；时间轴、帧、图层、库的概念及基本操作；常用影片控制函数的应用；声音同步属性设置
15．【答案】（1）com1
（2）imax(i, num)；a-m < n- 1- a或等价答案；cj(i) < cj(j)
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；过程与自定义函数；排序算法及程序实现
16．【答案】（1）B
（2）Mid(rroom(id), Len(rroom(id)), 1)；end1 - 1
（3）Mid(book(m), 1, 1) > key Or Mid(book(m), 1, 1) = key And flag = 1
或 flag= -1 And Mid(book(m), 1, 1)> key or flag= 1 And Mid(book(m), 1, 1)>= key
【知识点】过程与自定义函数；排序算法及程序实现；窗体文件、工程文件及其扩展名
1 / 1

展开更多......

收起↑