2013-2014学年浙江省衢州市龙游二中高三（上）期中信息技术试卷
发布：2024/4/20 14:35:0
一、本大题共30小题，每小题2分，计60分．在每小题列出的四个备选项中只有一个符合题目要求，请将其代码按题号填涂至答题卡上．错选、多选或未选均无分．
-
1．综艺片《爸爸去哪儿》吸引了不同年龄段观众观看，摄像工作人员从现场拍摄视频，经后期剪辑后，再将其通过卫星信号传递到千家万户，那么，拍摄视频的过程属于（ ）
组卷：5引用：2难度：0.9 -
2．如图所示是“上”字的8×8点阵码，假设空白方块用“0”表示，黑方块用“1”表示．从上往下数第5行用“0”和“1”从左向右排列的信息编码是（ ）组卷：6引用：7难度：0.5 -
3．中国人民解放军保密条例的第三条规定“全军所有单位和人员都有保守军事秘密的义务”，该管理规定主要针对的是信息资源中的（ ）
组卷：7引用：1难度：0.9 -
4．如图是小王向小张发送电子邮件过程的示意图，下列说法正确的是（ ）
组卷：4引用：1难度：0.9 -
5．在美、英等西方国家的超市里，顾客在收银台处只要输入自己的指纹就可以完成付款，这主要体现了信息安全保护方法中的（ ）
组卷：5引用：2难度：0.9 -
6．某同学在制作“健康与生活”专业网站时如果需要在网页中添加背景音乐“健康歌”，他可以选择的音频格式是（ ）
组卷：6引用：1难度：0.9 -
7．下列关于网页的说法，正确的是（ ）
组卷：8引用：2难度：0.9 -
8．如图为驾驶证考试部分的流程图，该流程图的结构属于（ ）
组卷：5引用：1难度：0.9 -
9．为了做好售后服务，某公司每年都做一次用户调查．今年的调查结果如下：非常满意的占20%，满意的占60%，不满意的占15%，非常不满意的占5%．若用图表来表示上述调查结果，比较合理的是（ ）
组卷：8引用：6难度：0.5 -
10．在用FrontPage制作网页过程中，网页中应该插入的图片是t03．jpg,结果小明误将t01．jpg插入了，为了改正错误，小明在已插入的图片t01．jpg上右击，从“快捷菜单”中选择“图片属性”，出现了如图2所示的“图片属性”对话框，那么，小明接下来应该单击的是（ ）
组卷：3引用：1难度：0.9 -
11．伴随着信息化建设进程的推进，手机已成为人们信息交流的重要工具之一．每时每刻海量手机话费的实时统计、查询等业务都离不开网络数据库技术的支持．以上实例说明（ ）
组卷：5引用：2难度：0.7 -
12．国际互联网标准化组织按标准制定了各种通信协议，如TCP/IP协议、FTP协议、HTTP协议等，其主要目的是信息表达的（ ）
组卷：5引用：1难度：0.9
二、非选择题部分本大题共8小题，共30空，第31题至34题每空1分，第35题至38题每空2分，共计40分．
-
37．数组排序．点击“产生随机数”按钮，让计算机随机产生10个整数，并对这10个整数进行标号，再点击“排序”按钮，对这10个整数进行从大到小排序．如图所示．
程序代码如下：
Dim a（1To 10）As Integer
Dim i,j,k,kt As Integer
Private Sub Command1_Click （ ）
List1．Clear'清除列表框数据
For i=1To 10
Randomize'随机数初始化
a（i）=Int（Rnd*1000）
List1．AddItem Str（i）+”=”+Str（a（i））
Next i
Command2．Enabled=True'激活排序按钮
End Sub
Private Sub Command2_Click
For i=1To 9
k=i
For j=____①___To 10
If a（j）＞a（k） Then k=j
Next j
If i＜＞k Then
_②____
End If
Next i
List2．Clear
For i=1To 10
List2．AddItem Str（i）+”=”+Str（a（i））
Next i
End Sub
请在①、②横线处填入合适的语句或表达式，把程序补充完整：
程序中①横线处应填入；
程序中②横线处应填入．组卷：1引用：1难度：0.1 -
38．学校要进行元旦文艺汇演了，学生会让薛明来担任总记分员，任务就是根据各个评委所打分数，去掉一个最高分和一个最低分，然后计算平均分．薛明很快编写了这个程序，该程序的界面如图所示：
程序运行时，每输入一个分数单击“确定”按钮（Command1），就将该分数记入总分，同时在下面显示到目前为止已输入的所有分数．当所有的分数输入完毕后，单击“统计-＞”按钮（Command2），程序就会在右边显示总分和最后的平均分．请回答下面的问题：
1）写出上述图形中所标识的③对象所属的类？如④所属的类为“文本框”．
③
2）以下是薛明编写的统计程序，请完善程序．
Dim total As Integer,ans As Single,x As Integer,max As Integer
Dim min As Integer,s As Integer
Private Sub Command1_Click
x=Val（Text1．Text）
total=total+x
s=s+1
If ④Then max=x
If x＜min Then min=x
List1．AddItem x
End Sub
Private Sub Command2_Click
Label4．Caption=Str（total）
ans= ⑤
ans=ans/（s-2）
Label6．Caption= ⑥
End Sub
Private Sub Form_Load
total=0
s=0
min=10000
max=0
End Sub.组卷：3引用：1难度：0.1
