资源简介

2010学年第二学期期中检测（2011年4月）
高一 信息技术试题卷
审核人：陈亮 校对：潘虹
考生须知：1、本卷共 9页；
2、本卷答案必须做在答案卷上，做在试卷上无效；
3、答题前请在答题卷密封线内填好相关栏目。不得使用计算器。
一、选择题（每题2分，30题，共60分）
1. 下列关于算法的描述，正确的是
（A）一个算法的执行步骤可以是无限的
（B）一个完整的算法必须有输出
（C）算法只能用流程图表示
（D）一个完整的算法至少有一个输入
2. 用计算机无法解决"打印所有素数"的问题，其原因是解决该问题的算法违背了算法特征中的
（A）唯一性 （B）有穷性
（C）有0个或多个输入 （D）有输出
3.在Visual Basic中，Hello.vbp文件属于
（A）工程文件 （B）窗体文件 （C）代码文件 （D）类文件
4. 在Visual Basic中，语句Year.Caption = "2010" 中的"Year"是
（A）属性值 （B）属性名 （C）对象名 （D）类名
5. “和谐号”列车规定：旅客可免费携带20Kg行李，携带品的长、宽、高相加不超过130cm，对超过规定的携带品，应提前办理托运手续。用算法描述行李能否托运的处理过程，合适的算法流程是
（A）顺序模式 （B）选择模式 （C）循环模式 （D）树型模式
6.下列属于Visual Basic数值常量的是
（A）321 （B）12*3 （C）Abs(-5) （D）Sqr(9)
7.在Visual Basic中，如果要给变量i,j,k都赋值为1，则下列语句正确的是
（A）i=j=k=1 （B）i,j,k=1 （C）i=1,j=1,k=1 （D）i=1:j=1:k=1
8.在Visual Basic中，窗体中添加文本框Text1的正确方法是
（A）先单击工具箱中的控件图标，再将鼠标指针移到窗体上，双击鼠标
（B）双击工具箱中的控件图标
（C）先单击工具箱中的控件图标，再将鼠标指针移到窗体上，单击鼠标
（D）用鼠标左键拖动工具箱中的控件图标到窗体中
9.在Visual Basic中，要定义一个一维数组name，用于存储10位学生姓名信息，则正确的数组定义语句是
（A）Dim name(1,10) As Integer （B）Dim name(1 To 10) As Integer
（C）Dim name(1,10) As String （D）Dim name(1 To 10) As String
10.在Visual Basic中，表达式 Abs(-3.5)的值是
（A） -3 （B） -4 （C） 3 （D）3.5
11. 为找自己第一次上幼儿园时的照片，小张同学依次翻开自己的多本相册来逐张查找。这种查找方法为
（A）无序查找 （B）顺序查找 （C）对分查找 （D）随机查找
12.在Visual Basic中，要在标签Label2上显示“注意”，则下列操作正确的是
（A）在Text属性中输入“注意” （B）在Caption属性中输入“注意”
（C）在Font属性中输入“注意” （D）在Name属性中输入“注意”
13. 在Visual Basic中，若x表示能被5整除的正整数，则下列逻辑表达式的值一定为真的是
（A）x / 5 = 0 （B）x Mod 5 = 0
（C）Int(x \ 5) = 0 （D）5 Mod x = 0
14. 在校内跳蚤市场中，某班准备的5类商品售出的数量(单位：件)分别是8，10，4，6，3。采用冒泡排序对其进行排序，若完成第一遍时的结果是：3，8，10，4，6，则完成第二遍时的结果是
（A）3，8，10，4，6 （B）3，4，8，6，10
（C）3，4，8，10，6 （D）3，4，6，8，10
15. "计算计件工资"的Visual Basic程序运行界面如图所示，单击"计算"命令按钮Command1，触发的事件处理过程名是
（A）Command1_Click （B）Text1_Click
（C）Form_Click （D）Label3_Click
16. 报名参加冬季越野赛跑的某班5位学生的学号是：5，8，11，33，45。利用对分查找，查找学号为33号学生的过程中，依次被访问到的学号是
（A）5，11，33 （B）8，33
（C）11，45，33 （D）11，33
17. 在Visual Basic中，a = -100，表达式"360" + Str(a)的值是
（A）260 （B）360-100 （C）460 （D）360100
18.有如下Visual Basic程序段：
For j=1 To ______ Step 2
t=t*j
Next j
要使循环体t=t*j执行5次，循环变量的终值可以是
（A）-5 （B）0 （C）5 （D）10
19.卫星沿某星球圆轨道运行，轨道半径是r千米，周期是t秒，根据这些数据估算该星球的质量m的步骤有：
①输出星球质量m
②pi=3.14159
③计算星球质量m=4*pi︿2*r︿3/(g*t︿2)
④输入轨道半径r和周期t
⑤g=6.67*10︿-11
其正确的顺序是
（A）⑤①②③④ （B）①②③④⑤
（C）④⑤②③① （D）③④②①⑤
20.下列Visual Basic表达式正确的是
（A）v0+a*t （B）a2+2bc （C）2π*r （D）1/2g*t︿2
21. 下面流程图所表示的是"根据居民月用电量a，按阶梯递增电价计算相应电费y"的算法，该算法属于
（A）解析算法 （B）排序算法
（C）枚举算法 （D）对分算法
22.下面程序段是利用For语句给数组a赋值：
For i= 1 To 6
a(i)=i+1
Next i
该程序段运行后数组元素a(3)的值为
（A）2 （B）3 （C）4 （D）5
23. 运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生"除数为零"错误时所执行的语句是
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Single
a = 2 '①
b = a + 1 '②
c = a / (b - 3) '③
Text1.Text = Str(c) '④
End Sub
（A）① （B）② （C）③ （D）④
24.在Visual Basic中，若a=1，b=2，c=5，则下列逻辑表达式值为真的是
（A）(a>b) And (a>c) （B）(b>a) And (b>c)
（C）(a>b) Or (a>c) （D）(b>a) Or (b>c)
25. 某校有5位学生参加学生会主席竞选，得票数依次为110，98，3，150，67。使用选择排序的方法对得票数进行从大到小排序，需要进行数据互换的次数是
（A）5 （B）4 （C）3 （D）2
26.在Visual Basic中，设x=4126，能得到其百位上数字“1”的正确表达式是
（A）x Mod 100 （B）x \ 100 Mod 10
（C）x \ 100 Mod 100 （D）x \ 10 Mod 10
27.以下程序段是一个完整的Visual Basic块If语句，则划线处的语句应该是
If a>100 Then
a=a+1
Else
a=a-1
________
（A）End Sub （B）Loop （C）EndIf （D）Else End
28.下面程序段是利用For语句给数组a赋值，使a(1)=2，a(2)=4，a(3)=6，…，a(100)=200，则划线处的语句应该是
For i= 1 To 100
_____________
Next i
（A）a(i)=i+2 （B）a(i)=i*i （C）a(i)=i （D）a(i)=2*i
29. 计算某球队平均年龄的部分算法流程图如图所示，其中：c用来记录已输入球员的人数，sum用来计算有效数据之和，d用来存储从键盘输入的球员年龄值，输入0时表示输入结束。
图中空白处理框①和②处应填入的是
（A）① sum ← sum + d ② c ← c + 1
（B）① sum ← sum + c ② c ← c + 1
（C）① sum ← sum + d ② d ← d + 1
（D）① sum ← sum + c ② d ← d + 1
30. 在Visual Basic中，有如下程序：
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim d As Integer
a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text)
d = max(a, b) + max(b, c)
Text4.Text = Str(d)
End Sub
Function max(x As Integer, y As Integer) As Integer
If x > y Then max = x Else max = y
End Function
运行该程序，在文本框Text1、文本框Text2、文本框Text3中分别输入2、-5、6后，单击命令按钮Command1，文本框Text4中显示的是
（A）-5 （B）2 （C）6 （D）8
二、程序计算题（每题2分，10题，共20分）
1.有如下Visual Basic程序段：
s="good"
s=s+"luck"
该程序段运行后，变量s的值是___________。
2.有如下Visual Basic程序段：
m = -5
n = -2.6
s = m + Int(n)
该程序段运行后，变量s的值为____________。
3.有如下Visual Basic程序段：
Dim x As Single, c As String
x=Val(Text1.Text)
If x>12 Then
c= "PM"
Else
c= "AM"
End If
Label1.Caption=c
该程序段运行时，在文本框Text1中输入15.6，Label1标签上将显示的是　　　 。
4.有如下Visual Basic程序段：
a = 30 : b = 20 : c = 5
m=a
If b < m Then m = b
If c < m Then m = c
该程序段运行后，变量m的值为 。
5.有如下Visual Basic程序段：
s = 0
i = 3
Do While s <= 10
s = s + i
i = i + 3
Loop
该程序段运行后，变量s的值为________。
6.有如下Visual Basic程序段：
k = 0
For i = 1 To 10
If i Mod 3 = 0 Then k = k + 1
Next i
该程序段运行后，变量k的值为___________。
7.下列Visual Basic程序的功能是：计算表达式12+42+72+…+972的值，并在文本框Text1中输出表达式的值。为了实现这一目标，程序中For语句划线处的循环变量步长应为__________________。
Private Sub Command1_Click()
Dim sum As Long
Dim i As Integer
sum = 0
For i =1 To 97 Step
sum = sum + i*i
Next i
Text1.Text = Str(sum)
End Sub
8.有如下Visual Basic程序段：
s = 0:t=1
For i = 1 To 4
t=-t
s=s+t*i
Next i
该程序段运行后，变量s的值为___________。
9.以下Visual Basic程序的功能是： 计算表达式1+2+4+8+16+32+…+1024的值，并在文本框Text1中输出结果。为了实现这一功能，程序中划线处的语句应更正为_____________。
Private Sub Command1_Click()
Dim a As Integer, s As Long
s = 0
a = 1
Do While a <= 1024
s = s + a
a = a + 2
Loop
Text1.Text=Str(s)
End Sub
10.以下Visual Basic程序的功能是：找出自然数1-100之间被3整除的数，并在文本框Text1中输出这些数的累加和。为了实现这一功能，程序中划线处的语句应更正为____________。
Private Sub Command1_Click()
Dim i As Integer, sum As Integer
sum = 0
For i = 1 to 100
If i Mod 3=0 Then sum = sum + 3
Next i
Text1.Text=Str(sum)
End Sub
三、程序填空（每空4分，5空，共20分）
1.有一道趣味题，张老师问李老师:"你今年几岁？你爱人今年几岁？"李老师笑笑说："我年龄的平方与我爱人年龄之和恰好等于1053。而我爱人年龄的平方与我的年龄之和却等于873。你计算一下吧！"
设李老师年龄为x岁，他爱人年龄为y岁，由题意可得x，y满足的数学式为：
x2 + y = 1053
x + y2 = 873
解决此问题的流程图如VB-1所示。根据流程图VB-1编写的Visual Basic程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。
Private Sub Command1_Click()
Dim x As Integer, y As Long
x = 1
y = 1053 - x * x
Do While （1）
（2）
y = 1053 - x * x
Loop
Text1.Text = Str(x)
Text2.Text = Str(y)
End Sub
程序中划线处(1)应填入
程序中划线处(2)应填入
2. 某超市打折促销，规定如下：
①购物未超过500元按原价支付；
②购物超过500元但未超过1000元，超过500元部分按9折优惠计价；
③购物超过1000元但未超过1500元，超过1000元部分按8折优惠计价；
④购物超过1500元但未超过3000元，超过1500元部分按7折优惠计价；
⑤购物超过3000元，超过3000元部分按6折优惠计价。
根据以上规定，假定购物货款为x元，则实付金额y为:
程序界面如图所示，在"输入购物金额（单位：元）"后的文本框orgtext中输入购物金额（单位：元），单击"实付金额计算"按钮（Command1）后，在"实际支付金额（单位：元）为"后的文本框cashText中输出实付金额。
解决此问题相应的Visual Basic程序如下：
Private Sub Command1_Click()
Dim x As Single, y As Single
x = Val(orgtext.Text)
If x <= 500 Then
y = x
ElseIf ① Then
y = 500 + (x - 500) * 0.9
ElseIf x <= 1500 Then
y = 500 + 500 * 0.9 + (x - 1000) * 0.8
ElseIf x <= 3000 Then
y = 500 + 500 * 0.9 + 500 * 0.8 + (x - 1500) * 0.7
Else
y = 500 + 500 * 0.9 + 500 * 0.8 + 1500 * 0.7 + (x - 3000) * 0.6
End If
②
End Sub
（1）解决此问题的算法是_______________。 （选填：解析法 或 枚举法）
在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。
（2）程序中①划线处应填入_______________。
（3）程序中②划线处应填入_______________。
一、单项选择题（共30小题，每题2分，共60分）
题号 1 2 3 4 5 6 7 8 9 10
答案
题号 11 12 13 14 15 16 17 18 19 20
答案
题号 21 22 23 24 25 26 27 28 29 30
答案
二、程序计算题（共20分，每题2分）
1 2
3 4
5 6
7 8
9 10
三、程序填空题（共20分，每空4分）
1
2
2010学年第二学期期中检测（2011年4月）
高一 信息技术答题卷
2010学年第二学期期中检测（2011年4月）
高一 信息技术答案

展开更多......

收起↑