资源简介

2009学年第二学期六、八、九三校期中考试试题卷
学科：高一信息技术 满分：100分 考试时间：90分钟
考生须知：1、本卷共 12 页；审核：张浩 校对：陈亮
2、本卷答案必须做在答案卷上，做在试卷上无效；
3、答题前请在答题卷密封线内填好相关栏目。不得使用计算器。
一、选择题（每题1分，60题，共60分）
1．下面关于算法的描述，正确的是（ ）
A．算法不可以用自然语言表示
B．算法只能用框图来表示
C．一个算法必须保证它的执行步骤是有限的
D．算法的框图表示法有0个或多个输入，但只能有一个输出
2.在Visual Basic中，表示鼠标单击的事件名是
（A）Click （B）KeyPress （C）Load （D）DblClick
3.在Visual Basic中，zuoye.vbp文件属于
（A）工程文件 （B）窗体文件 （C）代码文件 （D）类文件
4.在Visual Basic中，要在标签Label2上显示“注意”，则下列操作正确的是
（A）在Text属性中输入“注意” （B）在Caption属性中输入“注意”
（C）在Font属性中输入“注意” （D）在Name属性中输入“注意”
5.在Visual Basic中，若a、b都是正整数且关系表达式a*b Mod 2=0为真，则下列说法正确的是
（A）a、b一定同时为奇数 （B）a、b中必有一个为偶数
（C）a、b中必有一个为奇数 （D）a、b一定同时为偶数
6、在Visual Basic中，设x=5678，能得到其十位上数字“7”的正确表达式是
（A） x \ 10 Mod 100 （B）x \ 10 Mod 10 （C） x \ 100 Mod 10 （D）x Mod 100
7.在Visual Basic中，若x<>0，则下列逻辑表达式值一定为真的是
（A）x=0 （B）Not(x>0) （C）Not(x<0) （D）Not(x=0)
8.对于Visual Basic语句If a=1 Then m=m+1 Else m=m-1，下列说法正确的是
（A）a=1为赋值语句 （B）m=m+1和m=m-1均为关系表达式
（C）m=m+1和m=m-1均为赋值语句 （D）m=m+1为关系表达式，m=m-1为赋值语句
9、在Visual Basic中，语句st="3.14"中的“3.14”是
（A）字符串常量 （B）数值常量 （C）逻辑常量 （D）实数常量
10、在Visual Basic中，若x、y都是正整数且关系表达式x\y=1为真，则下列关系表达式值一定为真的是 （A）x Mod y = 0 （B）x（C）x*y Mod 2 = 0 （D）x>=y And x<2*y
11．有流程图结构如下，其算法结构属于
( http: / / www.21cnjy.com / )
（A）顺序结构（B）选择结构（C）分支结构（D）循环结构
12、以下程序段是一个完整的Visual Basic块If语句，则划线处的语句应该是
If a>100 Then
a=a+1
Else
a=a-1
________
（A）End Sub （B）Loop （C）End If （D）Else End
13、不能用算法描述问题“输出一张所有素数的清单”，是因为解决该问题的步骤不具有
（A）确定性 （B）有穷性 （C）有效性 （D）有输出
14.如下图所示的流程图：
( http: / / www.21cnjy.com / )
该算法完成的功能是
（A）计算y=1＋2＋3＋4＋5 （B）计算y=1×2×3×4×5
（C）计算y=1＋2＋3＋4 （D）计算y=1＋3＋5＋7
15、在Visual Basic中，Circle.frm文件属于
（A）工程文件 （B）窗体文件 （C）代码文件 （D）类文件
16、在Visual Basic中，语句Command1.Caption="计算"中的Command1是
（A）属性名 （B）属性值 （C）对象名 （D）类名
17．有23个苹果分给甲乙丙丁四个孩子，每个孩子最多可得到的苹果数依次为9、8、7、6个，找出所有不同分法的算法是：采用列举方式，列举每个孩子所有可能得到的苹果数，对四人所得苹果数总和是否为23进行判断，找出符合要求的各种分法，此算法属于
（A）枚举算法 （B）排序算法 （C）递归算法 （D）解析算法
18．某数列前三项分别为：a1 = 2、a2 = 3、a3 = 4，以后每项都满足:
ai = ai-3 + ai-1 （i>3）
如果用数组a存储该数列的前20项，下面程序段划线处应填入
a(1)=2 : a(2)=3 : a(3)=4
For i=______ To 20
a(i) = a(i - 3) + a(i - 1)
Next i
（A）2 （B）3（C）6 （D）4
19．某超市在晚上7：30－8：30期间，对于在货架上已超过2天的带叶蔬菜，收银机自动将价格下降50%。用来描述某种蔬菜是否降价的处理过程，合适的算法流程是
（A）顺序结构（B）选择结构（C）重复结构（D）循环结构
20. 找出满足各位数字之和等于5的所有三位数可采用的算法是
（A）枚举算法 （B）选择排序 （C）冒泡排序 （D）解析算法
21．Len(“Friend”)的值是（　　　　）
A．6 B．7 C．8 D．9
22．有流程图如下所示：
该算法的输出结果为 （A）3 （B）5 （C）8 （D）9
23．在Visual Basic中，在文本框Text3中显示“数据太大！”，则下列操作正确的是
（A）将Text3的Width属性值设置为“数据太大！”
（B）将Text3的BackColor属性值设置为“数据太大！”
（C）将Text3的Height属性值设置为“数据太大！”
（D）将Text3的Text属性值设置为“数据太大！”
24．下列Visual Basic表达式中，能产生一个100到999之间（包括100和999）随机整数的是 （A）Rnd() * 999 （B）Rnd() * 600+100
（C）Int(Rnd() * 899) + 100 （D）Int(Rnd() * 900) + 100
25．以下程序段是一个完整的Visual Basic的For语句，则划线处的语句应该是
For k=1 To 3
s=s+k
（A）Loop （B）End If （C）Next k （D）Step k
26．小明妈妈对小明说：“柜子里那叠盘子中有一个盘子中间有一条裂缝，你把它找出来”，小明就从最上面一个盘子开始，一个一个拿下放到旁边，最终找到那个有裂缝的盘子。从算法角度看，小明的做法属于
（A）解析算法 （B）选择排序 （C）冒泡排序 （D）顺序查找
27．下面程序段是利用For语句给数组a赋值，使a(1)=1，a(2)=3，a(3)=5，…，a(50)=99，则划线处的语句应该是
Dim a(1 to 50) As Integer
For i= 1 To 50
_____________
Next i
（A）a(i)=2*i+1 （B）a(i)=2*(i+1) （C）a(i)=i+2 （D）a(i)=2*i-1
28．在算法执行流程中，对于循环模式下列说法正确的是（ ）
A．对某个情况进行判断，当结果为真时执行步骤一，否则执行步骤二
B．对某个情况进行判断，当结果为真时执行步骤一，然后再次判断这个情况，依次类推直到结果为假时结束。
C．仅用循环模式就可以用来判断某个输入的数时不是正数
D．循环模式中可以嵌套选择模式，而选择模式中不能嵌套循环模式
29．以下语句中错误的是（ ）
A．Const var1=123 B．Dim var2 As String
C．x+y=9 D．Dim d(1 to 500) As Double
30．控制工具箱中的工具 ( http: / / www.21cnjy.com / )是（　　　）
A．文件列表　　 　B．单选按钮　　 C．图片框　　 　D．标签
31．能完全正确表示“year是闰年”的逻辑表达式是 （ ）
A． year mod 4=0 B． year mod 400=0
C．(year mod 400=0) or (year mod 4=0) and (year mod 100<>0)
D．(year mod 400=0) and (year mod 4=0) or (year mod 100<>0)
32．如果x >5，那么y=2x，否则y=x2+1。下面表述正确的语句是（ ）。
A．If x>5 Then y=2x Else y=x2+1 B． If x>5 Then y=x*x+1 Else y=2*x
C．If x>5 Then y=2*x Else y=x*x+1 D． If x<5 Then y=x*x+1 Else y=2*x
33．下列可作为VB变量名的是（ ）
A． 4*D B． A_B C． 4ABC D．A+B
34．用语句 Dim A(－3 To 5) As Integer所定义的数组的元素个数是（ ）
A．6 B．7 C．8 D．9
35．将文本框Text2内输入的字符数据“abc”送到字符型变量n中，应使用的语句是（ ）
A．n=text B．n=text2.text C．n=val(text2) D．n=val(text2.text)
36、在Visual Basic中，若a=3，b=4，c=-5，则下列逻辑表达式值为假的是
（A）(a>b) And (b>c) （B）(a>c) And (b>a)
（C）(a>b) Or (b>c) （D）(a>c) Or (b>a)
37、程序段
Input a,b
c = a
a = b
b = c
Print a, b
其控制结构属于：
（A）顺序结构 （B）选择结构
（C）循环结构 （D）重复结构
38、在Visual Basic中，若要定义变量no用于存储汽车牌照号码，如"浙A·12345"，则正确的定义语句是
（A）Dim no As Integer （B）Dim no As String
（C）Dim no As Single （D）Dim no As Boolean
39、一位顾客购买了青菜x千克、包心菜y千克、大白菜z千克，其中青菜6.16元/千克、包心菜3.56元/千克、大白菜1.56元/千克。计算该顾客消费总价的算法如下：
①输入三种蔬菜的重量x，y，z
②用公式计算总价s=6.16x+3.56y+1.56z
③输出变量s
④结束
上述算法属于
（A）枚举算法 （B）排序算法 （C）递归算法 （D）解析算法
40、设a=2,b=3,c=4,d=5,表达式a>b And c<=d Or 2*a>c 的值是（ ）
（A）True （B）False （C）-1 （D）1
41、数学表达式x2-2|x|+1的Visual Basic表达式是：
（A）x*x-2*Abs(x)+1 （B）x*x-2Int(x)+1
（C）Sqr(x)-2*Abs(x)+1 （D）x︿2-2*Int(x)+1
42、大型歌唱才艺选秀活动花儿朵朵各选手人气得票数依次为1201，2120，1009，1987，2009，
原始数据 1201 2120 1009 1987 2009
第一趟 2120 1201 1009 1987 2009
第二趟
第三趟 2120 2009 1987 1009 1201
第四趟 2120 2009 1987 1201 1009
若采用选择排序算法对其进行从大到小排序，则第二趟的排序结果是
（A）2120 2009 1009 1987 1201 （B）2120 2009 1009 1201 1987
（C）1009 1201 2120 1987 2009 （D）1009 1201 2009 2120 1987
( http: / / www.21cnjy.com / )43、在Visual Basic中，若用变量C表示计数器，则计数器的表达式是：
（A）C=0 （B）C=1 （C）C=C+1 （D）C+1=C
44、在Visual Basic窗体中有一个对象，该对象的属性窗口如左图，下列说法中正确的是：
（A）CommandBotton为对象类型
（B）True为属性名
（C）Font为属性值
（D）该对象的宽度值为495
45、下列能实现求两个数x,y中较小数（用变量min保存较小数）的程序个数是：
（1）If x <= y Then Min = x Else Min = y
（2）Min = x
If y < Min Then Min = y
（3）If x > y Then
t = x: x = y: y = t
End If
Min = x
（4）If x <= y Then Min = y Else Min = x
（A） 1 （B）2 （C） 3 （D）4
46.下列属于Visual Basic数值常量的是
（A）321 （B）12*3 （C）Abs(-5) （D）Sqr(9)
47.在Visual Basic中，要定义一个一维数组a，用于存储10位学生姓名信息，则正确的数组定义语句是
（A）Dim a(1,10) As Integer （B）Dim a(1 To 10) As Integer
（C）Dim a(1,10) As String （D）Dim a(1 To 10) As String
48.在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
49.有如下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
50.在计算平均重量x时，结果中产生了许多位小数，若需要对x保留一位小数，并对第二位小数进行四舍五入，则下列表达式中正确的是
（A）Int(x*10+0.5)/10 （B）Int(x*100+0.5)/100
（C）Int(x*10)/10 （D）Int(x+0.5)
51.卫星沿某星球圆轨道运行，轨道半径是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）③④②①⑤
52.下面程序段是利用For语句给数组a赋值：
For i= 1 To 6
a(i)=i+1
Next I 该程序段运行后数组元素a(3)的值为
（A）2 （B）3 （C）4 （D）5
53.在Visual Basic中，表达式 Abs(-3.5)的值是
（A） -3 （B） -4 （C） 3 （D）3.5
54.在Visual Basic中，若x是大于零的偶数，则下列关系表达式值一定为真的是
（A）x Mod 2 = 1 　　　　 （B）x\2 = 0
（C）x\2 = x/2 （D）Int(x/2) <> x/2
55.在下面Visual Basic程序段中，有语法错误的语句行是
#01 s=0
#02 For m=1 To 5
#03 s+m=s
#04 Next m
（A） 第#01行 （B） 第#02行 （C） 第#03行 （D） 第#04行
56.在Visual Basic中，设x=4126，能得到其百位上数字“1”的正确表达式是
（A）x Mod 100 （B）x \ 100 Mod 10
（C）x \ 100 Mod 100 （D）x \ 10 Mod 10
57.在足球联赛中，有5个班级的比赛积分依次为14，11，13，8，9，
原始数据 14 11 13 8 9
第一趟 8 14 11 13 9
第二趟
第三趟 8 9 11 14 13
第四趟 8 9 11 13 14
若采用冒泡排序算法对其进行从小到大排序，则第二趟的排序结果是
（A）8 14 9 11 13 （B）8 9 14 11 13
（C）8 14 9 13 11 （D）8 11 9 14 13
58.下列Visual Basic表达式正确的是
（A）v0+a*t （B）a2+2bc （C）2π*r （D）1/2g*t︿2
59.下列语句用于计算s=1+5+9+13+…+37：
①For m=1 To 10 ②Next m ③s=0 ④s=s+4*m-3
正确的顺序是
（A）①②③④ （B）①③④② （C）③①④② （D）④③①②
60.有流程图如下图所示，其功能是将键盘输入的数进行相加，当输入的数为0时输出它们的和，则图中虚线部分的内容是
( http: / / www.21cnjy.com / )
（A） （B） （C） （D）
( http: / / www.21cnjy.com / ) ( http: / / www.21cnjy.com / ) ( http: / / www.21cnjy.com / ) ( http: / / www.21cnjy.com / )
二、程序计算题（每题2分，20题，共40分）
1.有如下Visual Basic程序段：
a = 4
b = 3
b = a + b
a = a + b
该程序段运行后，变量a的值为 （1） 。
2、有如下Visual Basic程序段：
s1= “Information”
s2=“me”
s3=Mid(s1,3,3)+ “ ”+s2
该程序段运行后，s3的值为 （2） 。
3．有如下程序段：
Dim A As String
Dim B As String
Dim C As Sting
A=”456”
B=”123”
C=Val（A+B）
该程序段运行后，C的值为 （3）
4.有如下Visual Basic程序段：
k = 0
For i = 1 To 10
If i Mod 3 = 0 Then k = k + 1
Next i
该程序段运行后，变量k的值为_____（4）______。
5.有如下Visual Basic程序段：
s = 0
i = 3
Do While s <= 10
s = s + i
i = i + 3
Loop
该程序段运行后，变量s的值为___（5）__。
6、有如下Visual Basic程序段：
a = 39
b = 93
c = (a + b) / 2
If a + b > 100 Then py = "不对，太大了"
If a + b = 100 Then py = "正确"
If a + b < 100 Then py = "不对，太小了"
Label.Caption = py
该程序段运行后，在Label1标签上显示的是： （6） 。
7、公交车从起点到终点共有5站，从起点出发，每到一站先下一半乘客，然后上两位乘客，终点站下车共有5人，小王为了知道起点出发时车上的人数，编写了如下VB程序：
Private Sub Command1_Click()
Dim n As Integer, i As Integer
n = 5
For i = 1 To 4
n = (n - 2) * 2
Next i
text1.Text = Str(n)
End Sub
则：（1）该程序的算法执行流程包含 （7） ；（填：选择模式、循环模式）
（2）该程序运行后，在文本框Text1中显示的是 （8） 。
8. 以下Visual Basic程序的功能是：计算表达式1－2＋3－4＋5－6＋…＋99－100的值，并在文本框Text1中输出计算结果。
Private Sub Command1_Click()
Dim i As Integer, s As Integer
s = 0
i = 1: t = 1
Do While i <= 100
s = s + i
t = -t
i = i + 1
Loop
Text1.Text = Str(s)
End Sub
问：（1）循环刚退出时变量i的值是_____（9）____。
（2）为了实现上述表达式的计算，程序中划线处的表达式应更正为___（10）____。
9.有如下Visual Basic程序：
Private Sub Command1_Click()
Dim s As Integer, t As Integer
t = 1: s = 0
For i = 1 To 10 Step 2
t = t * 2
s = t + 1
Next i
Text1.Text = Str(s)
End Sub 问：（1）程序运行后，变量s 的值为_____（11）___。
（2）程序运行后，语句“t = t * 2”被执行的次数为____（12）___。
10、有如下程序段：
x = 5
y = 10
z = 12
If x + y > z And y + z > x And x + z > y Then a = "True " Else a = "False "
该程序段运行后，a 的值为　　（13）　。
11、有如下程序段：
x=6
k=1
do while k<=5
k=k+3
x=x+k
loop
该程序段运行后，x的值为　　（14） 　。
12．有道写于纸上的数学题因雨水问题淋湿，有两个数字已模糊不清：
（3□+42）×6＝46□
某同学为了找出这两个数，编写了下列Visual Basic程序：
Sub command1_click( )
Dim x as integer,y as integer
For x=0 to 9
For y=0 to 8 step 2
If _____（15）_____________ then
List1.additem ”(3”& str(x)&”+42)*6=46”&str(y)
Endif
Next ___（16）_
Next ____（17）___
End sub
13.个位数字是6，且能被3整除的3位数共有多少个？下面程序用于解决这一问题，在划线处填入合适的语句或表达式，完成程序。设共有n个这样的数，Visual Basic程序如下：
Sub command1_click( )
Dim i as integer,n as integer
m=106:n=0
do while m<=996
if m mod 3=0 then ______（18）______
m=m+10
loop
text1.text=_____（19）__
End sub
14、随机产生10个1～100之间的正整数，按从小到大的次序排序并输出。为了实现这一目标，完善下面的VB程序，在划线处填入合适的语句或表达式，完成程序设计。
sub command1_click()
const n=10
dim i,j,t as integer
dim a(1 to 10) as integer
for i=1 to 10
a(i)=1+int(100*rnd())
next i
For i = 1 To n - 1
For j = i+1 To n
If ____ （20） __ Then
k = a(i): a(i) = a(j): a(j) = k
End If
Next j
Next i
For i = 1 To n
List1.AddItem Str(a(i))
Next i
End sub
接到这份出卷通知很紧迫，而且要求是：仅仅这10多个会考知识点，要出满90分钟，而且是要求不能让学生在考场上时间太宽裕。一则紧迫，二则可能考的知识点会有很多重复，三则出卷水平有限，仅仅只能做到尽量题型不重复。所以，有了这样的题量。
( http: / / www.21cnjy.com / )
( http: / / www.21cnjy.com / )
开始
结束
输出 a
输出b
b>=9？
N
Y
a←3
b←a+5
2009学年第二学期三校期中考试
高一信息技术 答题卷

展开更多......

收起↑