高中信息技术会考分类汇编及参考答案算法与程序设计题(第五套)

高中信息技术会考分类汇编及参考答案算法与程序设计题
（第五套）
一、选择题（本题有14 小题，每小题 3 分，共42 分。

选出各题中一个符合题意的正确选项，不选、多选、错选均不给分。

）
1．存储一幅未经压缩的1024×768 像素黑白位图图像，所占的磁盘空间约为（）
（A）96KB（B）384KB （C）768KB （D）1024KB 2．二进制数(10)2转换成十进制数是（）
（A）1 （B）2 （C）3 （D）10
3．将网页中的图片保存到本地计算机中，主要操作过程如下：（）
①在“保存图片”对话框中，选择要保存的文件夹
②在“保存图片”对话框中，单击“保存”按钮
③浏览需要保存图片的网页
④右击图片，在弹出的快捷菜单中选择“图片另存为”
正确的操作顺序是
（A）①②③④（B）②③④①（C）③④①②（D）④①②③
4．学校采购了一批图书，要将这批图书信息输入到图书馆的数据库中，应采取的操作是（）
（A）添加记录（B）修改记录（C）查询记录
（D）删除记录
5．超文本传输协议的英文缩写是（）
（A）SMTP （B）TCP/IP （C）FTP （D）HTTP 6．下列一般属于网页文件的是（）
（A）index.mp3 （B）index.htm （C）index.psd （D）index.fla
7. 选择排序的基本思想是在参与排序的所有数组元素中找出最小(或最大)的元素，使它与第一个元素互换位置，然后再在余下的元素中重复上述过程。

有一组数，顺序是“4、7、8、1、9”，用选择排序法将这组数从小到大排序，第一次交换数据后的顺序是：（）
（A）7、4、8、1、9 （B）9、4、7、8、1
（C）7、8、1、9、4 （D）1、7、8、4、9
8. 有一个程序段，其功能是画一个圆，在编程时，如果用该程序段画100 个圆，则适合采用的算法构是（）
（A）顺序模式（B）选择模式（C）循环模式（D）树型模式
9. 在Visual Basic 中，表示整数型的数据类型名是（）（A）Date （B）Integer （C）String （D）Boolean 10．在Visual Basic 中，下列表达式的值等于4 的是（）（A）Int(4.1）（B）Int(-4.1) （C）Sqr(4.1) （D）Abs(-4.1)
11．在Visual Basic 代码窗口中，语句Student.Font="宋体"中的Student 是（）
（A）对象名（B）属性名（C）属性值（D）窗口名
12. 如果以下是一个完整的Visual Basic For 语句，则划线处的语句应该是（）
For i=1 To 10
a=a+i
________
（A）End i （B）Next i （C）End For （D）End 13．在Visual Basic 中，设x=4，y=8，则关系表达式x<y 的值是（）
（A）-4 （B）4 （C）False （D）True
14．在Visual Basic 中，已知x 是正整数，关系表达式x Mod 2=1 为真时，则表示（）
（A）x 被 2 除的余数为0 （B）x 能被 2 整除（C）x 是奇数（D）x 是偶数
四、程序设计题（本题有 4 小题，第1－3 小题，每小题
4 分，第4 小题6 分，共18 分）
1．有如下Visual Basic 程序段：
a=2
b=4
b=a+b
该程序段运行后，变量 b 的值是_____6______。

2．有如下Visual Basic 程序段：
x=1.5
If x>1 Then
Label1.Caption = "醉酒!"
Else
Label1.Caption = "没有醉酒! "
End If
该程序段运行后, Label1 标签上显示为___醉酒!________。

3. 下面Visual Basic 程序的功能是：计算表达式1+1/2+1/3+…+1/100 的值，并在文本框Text1 中输出表达式的值。

为了实现这一功能，程序中划线处的语句应更正为__ sum=sum+1/i__。

Private Sub Command1_Click()
Dim sum As Double，i As Integer
sum = 0
For i = 1 To 100
sum=sum+i
Next i
Text1.Text=Str(sum)
End Sub
4. 《浙江省道路交通安全法》第八十三条规定：机动车驾驶人驾驶机动车超过规定时速的，按以下标准处以罚款：（一）超过规定时速未达百分之五十的，处二百元罚款；（二）超过规定时速百分之五十的，处五百元罚款；每多超五公里，加处二百元罚款，但最高罚款不得超过二千元。

设某公路的规定时速为80(km/h)，用x 表示车速，y 表示罚款数，该问题的数学式为：
根据上述分析，解决此问题的Visual Basic 程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。

Private Sub Command1_Click()
Dim x As Single, y As Single
x = Val(Text1.Text)
If x <= 80 Then
y = 0
Else
If ①Then
y = 200
Else
②
If y > 2000 Then y = 2000
End If
End If
Label1.Caption = Str(y)
End Sub
程序中划线处①应填入x<=120
程序中划线处②应填入y=500+Int((x-1.5*80)/5)*200。