资源简介

上海市某重点中学2012-2013学年度第一学期
高一信息科技期中考试

考前必读：
1、本试卷内容为程序设计概念和程序设计两部分，选择题每题2分（第22题到33题为每题3分），编程为12分，满分为90分，考试时间为90分钟。
2、选择题的答案涂在答题卡上，编程题的答案写在答题纸上。
3、答题卡和答题纸上写上班级、学号、姓名，否则不计分。
4、本试卷所有程序的运行环境为：Windows XP、Visual Basic6.0企业版或以上。
5、本次考试可能用到的运算符和函数如下：
运算符或函数名
功能
例
Mod
取余运算符
5 mod 3 = 2；9 mod 3 = 0；3 mod 5 = 3

整除运算符
5 3 =1；35=0
Int(x)
向下取x的整数
Int（3.7）=3；Int（-3.7）= -4
Abs(x)
返回x的绝对值
Abs（-2）=2
Rnd()
产生一个小于1大于等于0的随机小数
Sqr(x)
返回x的算术平方根
Sqr(4)=2
Round(x,n)
返回x四舍五入到n位
Round(123.235,2)=123.24
Str(x)
把x转换成字符型
x=123,Str(x)
Val(x)
把x转换成数值型
Val(Text1.Text)
一、选择题（每题只有一个正确答案）
1、从在计算机中执行的过程来看，用 编写的程序，在计算机中执行得最快。
A、高级语言 B、汇编语言 C、机器语言 D、无法比较
2、计算机解决问题的一般过程是 。
A、需求分析→设计算法→编写程序→上机调试与维护
B、需求分析→编写程序→设计算法→上机调试与维
C、编写程序→上机调试与维护→需求分析→设计算法
D、设计算法→需求分析→编写程序→上机调试与维护
3、 不全是程序设计中的高级语言。
A、C++、VB、Nero B、C++、VB、Delphi
C、VC、VB、Delphi D、Turbo C、VB、Pascal
4、哪一种不属于算法的基本结构 。
A、 顺序结构 B、 判断结构 C、 选择结构 D、 循环结构
5、某超市在晚上7:30-8:30期间，对于在货架上已超过2天的带叶蔬菜，收银机自动将价格下降50%。用来描述某种蔬菜是否降价的处理过程，合适的算法流程是 。
A、顺序结构 B、分支结构 C、循环结构 D、树型结构
6、以下关于变量的说法，错误的是 。
A、变量用来存储计算过程中所涉及的初始值、中间值和运算结果
B、变量中的数据被读出来后，该变量中的数据就不再存在
C、若数据存储到某个变量，只要不把新的数据存储到该变量，它的值将不会改变
D、在算法的执行过程中，可以读出变量的值，也可以将数值存储到指定的变量中
7、关于变量，下列叙述中不正确的是( )。
A、变量名的第一个字符必须是字母
B、变量名的长度不超过255个字符
C、变量名可以包含小数点
D、变量名不能使用关键字
8、以下各项，可以作为Visual Basic变量名的是 。
A、Flag B、 2_seek C、123.58 D、While
9、下列给出的赋值操作中正确的是 。
A、6 ← T B、-T ← T C、 Y ← X +1 D、 A+B ← 2
10、VB程序设计中的三种基本运算：算术运算、关系运算、逻辑运算，其优先级由高到低依次为 。
A、算术运算、关系运算、逻辑运算 B、关系运算、算术运算、逻辑运算
C、算术运算、逻辑运算、关系运算 D、关系运算、逻辑运算、算术运算
11、选拔身高T超过1.7米且体重W低于62.5公斤的人，表示该条件的布尔表达式为 。
A、T>=1.7 And W<=62.5 B、T<=1.7 Or W> =62.5
C、T>1.7 And W<62.5 D、T>1.7 Or W<62.5
12、逻辑表达式（13<12）or （10=10） and not （1 > - 1）的值是 。
A、-1 B、F C、T D、10
13、设a=3，b=2，c=4,下列运算结果中，值最小的是 。
A、c︿2 - a︿2 + b︿2 B、a – b*2 + c
C、(a + b) Mod c D、Sqr(a + b + c)
14、使得数值100与100的比较结果为真，下列可使用的关系运算符是 。
A、> B、 <> C、< D、 >=
15、若变量x、y均为整形变量，值分别为4、2，则表达式 Int(-2 + y / x) Mod -3 的值是 。
A、-2 B、 1 C、2 D、0
16、数学表达式写成计算机程序设计语言表达式正确的是 。
A、sqr(a*x+b)/2*a B、sqrt(a*x+b)/2/a
C、（a*x+b）︿(1/2)/(2*a) D、（a*x+b）︿1/2/(2*a)
17、分支结构有1个入口， 出口。
A、1 B、 2 C、3 D、4
18、For-Next循环中， 情况下程序体只执行一次。
A、初值大于终值，且步长大于零
B、初值小于终值，且步长小于零
C、初值等于终值
D、初值小于终值，步长小于终值与初值之差
19、关于双重循环的表述错误的有 。
①两个单循环在程序中前后排列，不能称之为双重循环
② 内循环的循环变量和外循环的循环变量可以使用同名简单变量
③ 双重循环的整个内循环体执行的次数就是外循环的循环次数
A、 三个 B、 一个 C、零个 D、 两个
20、以下程序的功能是，键盘输入三个数，输出最大值：
a =Val(InputBox("输入a:")) '键盘输入一个数，转化成数字型赋给变量a
b =Val(InputBox("输入b:"))
c =Val(InputBox("输入c:"))
If a > b And a > c Then Print a
If b > a And b > c Then Print b
If c > a And c > b Then Print c
执行上述程序后，能否输出最大值 。
肯定能 B、肯定不能 C、不一定 D、程序无法运行
21、某同学用VB设计了一个程序，功能是：键盘输入一个正整数，计算表达式：1+4+7+10+……n的值并输出，以下选项错误的是 。
A、
s = 1
b = 1
n = Val(InputBox("请输入n:"))
Do While b < n
b = b + 3
s = s + b
Loop
Print s
B、
s = 0
b = 1
n = Val(InputBox("请输入n:"))
Do While b <= n
s = s + b
b = b + 3
Loop
Print s
C、
s = 1
b = 4
n = Val(InputBox("请输入n:"))
Do While b <= n
s = s + b
b = b + 3
Loop
Print s
D、
s = 0
b = 1
n = Val(InputBox("请输入n:"))
Do While b < n
s = s + b
b = b + 3
Loop
Print s
22—33为读程序写结果
22、下面程序段：
x=3
y=5
If x+3>y Then
x =x+y
y =x+y
End If
执行此程序代码后，x与y的值分别为 。
A、 3与5 B、 8与8
C、 8与13 D、 11与16
23、下面程序段：
a = 5
b = 8
If a > b Then
c = a – b
Else
c = b – a
End If
Print c
执行此程序代码后，结果为 。
A、13 B、3 C、8 D、-3
24、下面程序段：
x = 83
y = 58
If x <= y Then
x = Sqr(x - y)
Else
y = Int((y - x) / 2)
End If
Print y
执行此程序代码后，结果为 。
A、12 B、0 C、-12 D、-13
25、下面程序段：
M=12
N=8
IF M Mod N <>0 Then
T=M Mod N
M=N
N=T
End If
Print N
执行此程序代码后，结果为 。
A、 3 B、 4 C、 5 D、 6
26、下面程序段：
s = 0
i = 1
Do While i < 5
s = s + 2 * i
i = i + 1
Loop
Print s
执行此程序代码后，结果为 。
A、12 B、10 C、20 D、30
27、下面程序段：
s=0
For i=1 To 10 Step 3
s=s+i
Next i
Print s
执行此程序代码后，结果为 。
A、 12 B、 5 C、 34 D、22
28、下面程序段：
n=8
s=0
Do While n>0
s=s+n
n=n-1
Loop
Print s
执行此程序代码后，结果为 。
A、 8 B、 35 C、 0 D、36
29、下面程序段：
s=0
a = 1
For t = 1 To 9 Step 2
s = s + 1 / t * a
a = -a
Next t
以上程序段的功能 。
A、求1-1/3+1/5-1/7+1/9；
B、求1+1/3+1/5+1/7+1/9
C、求1-1/3+1/5-1/7+1/9-1/11
D、1+1/3+1/5+1/7+1/9+1/11
30、下面程序段：
n = Val(InputBox(“请输入n：”))
s = 0
i = 0
Do While i <= n
s = s + i
i = i + 1
If i Mod 3 = 1 Then i = i + 1
If i Mod 3 = 2 Then i = i + 1
Loop
Print s
以上程序段的功能 。
A、求1—n被3整除的和；
B、求1—n的奇数和
C、求1—n的偶数和
D、程序没有输出
31、执行以下程序代码后，循环体执行了
次。
total=0
Counter=1
Do While Counter<=10
Print Counter
total=total*Counter+1
Print total
Counter=Counter+1
If total >10 Then
Exit Do
End If
Loop
执行此程序代码后，
A、 3 B、4 C、 5 D、6
32、以下是交换两个变量的程序段，不正确的是 。
A、 B、
c=a a=b-a
a=b b=b-a
b=c a=a+b
C、 D、
a=a-b c=a
b=b+a b=a
a=b-a a=c
33、执行以下程序代码后，结果为 。
a=0
For i=1 to 2
For j=1 to 4
If j Mod 2 <>0 then
a=a+1
Endif
a=a+1
Next j
Next i
Print a
A、9 B、10 C、12 D、6
二、编程（第1题6分，第2题6分，共12分）
1、小明为某超市编了一个小程序，功能是：根据香蕉的购买量w计算应付价格price。
已知香蕉的促销价如下：
购买量w（千克）
单价（元/千克）
3以下
3.5
3～6（含3千克）
3
6（含6千克）以上
2.6
请在空白处填上适当的语句，使之能实现上述功能。
Private Sub Command1_Click()
Dim w As singe, price As Single
w = Val(InputBox("请输入重量w："))
If （1） Then
If （2） Then
price = 2.6 * w
Else
price = 3 * w
End If
Else
（3）
End If
Print price
End Sub
2、现有一个程序，功能是：任意输入a，b两个电阻的阻值，能求解出其并联后的电阻值(若有小数，结果精确到0.001)。(电阻并联的物理公式是：)。
界面如下图：

要求：
在下列数条语句中选取若干条语句（变量定义除外）拼成一段完整的程序，实现上述功能。
注意：
每条语句最多使用一次；答题时只要将选取语句的标号按执行先后排列即可。
本题的得分标准：输入两个电阻值，输出正确结果得分，否则不得分。
程序代码：
Dim a As Single, b As Single
Dim x As Single, r As Single
（1）a = Val(InputBox("请输入a"))
（2）b = Val(InputBox("请输入b"))
（3）r = 1 / x
（4）x = 1 / r
（5）r = 1 / r
（6）r = (a + b) / a * b
（7）r = a * b / a + b
（8）x = (a + b) / a * b
（9）x = (a + b) / (a * b)
（10） Print r
（11）Print "r="; Int(r * 1000 + 0.5) / 1000
（12）Print "r="; Int((r * 1000 + 0.5) / 1000)
(13) Print "a=" & a & "," & "b=" & b
选取的语句标号序列是：
选择题（每小题2分，第22题到33题为每题3分，共78分）
1、 C 2、 A 3、 A 4、 B 5、 B 6、 B
7、 C 8、 A 9、 C 10、 A 11、 C 12、 B
13、 C 14、 D 15、 A 16、 C 17、 A 18、 C
19、 D 20、 C 21、 D 22、 C 23、 B 24、 D
25、 B 26、 C 27、 D 28、 D 29、 A 30、 A
31、 B 32、 D 33、 C
编程（共12分）
第1题
1、 w>=3 2分
2、 w>=6 2 分
3、 price=3.5*w 2 分

第2题
选取的语句标号序列是： 1-2-9-3-13-11

展开更多......

收起↑