资源简介

2016年6月信息技术VB期末测试试卷
一、选择题（每题3分）
1.在求解“一元二次方程实数根”的算法中，如果方程不存在实数解，也要求输出结果“无实数根”。此要求主要体现了算法特征中的（　　）
（A）有穷性
（B）有输出
（C）确定性
（D）唯一性
2．某超市在晚上19：30－20：30期
( http: / / www.21cnjy.com )间，对于在货架上已超过2天的带叶蔬菜，收银机自动将价格下降50%。用来描述某种蔬菜是否降价的处理过程，合适的算法流程是（　　）
（A）循环模式
（B）重复模式
（C）选择模式
（D）顺序模式
3.在Visual
Basic程序中要用到存储范围为-40000～40000的某一整数变量，则该变量的类型应该定义为（　　）
（A）Integer
（B）Long
（C）Single
（D）Boolean
4.在Visual
Basic中，要定义一
( http: / / www.21cnjy.com )个一维数组a，用于存储15名铅球运动员的成绩数据（以米为单位，精确到0.01米），则正确的数组定义语句是（　　）
（A）Dim
a(1,15)
As
Integer
（B）Dim
a(1,15)
As
Single
（C）Dim
a(1
To
15)
As
Single
（D）Dim
a(1
To
15)
As
Integer
5．在Visual
Basic中，用变量y存储“ABC”，变量y的数据类型应定义为（　　）
（A）String
（B）Long
（C）Boolean
（D）Integer
6.下列运算结果中，值为3的是（　　）
（A）5/3
（B）5\3
（C）3
mod
5
（D）5
mod
3
7.产生[1，40]
范围内某一随机整数的表达式是（　　）
（A）Rnd
40
（B）Int(Rnd
40)
（C）Int(Rnd
40)
+
1
（D）Int(Rnd
39)
+
1
8.下列Visual
Basic表达式的值等于56的是（　　）
（A）Mid("1234567",
5,
3)
（B）Len("55")
+
1
（C）Sqr(56)
（D）Abs(-55)
+
1
9.在Visual
Basic中，语句abc.Text="hello"中的“Text”是（　　）
（A）对象名
（B）方法名
（C）属性值
（D）属性名
10.下列属于正确的Visual
Basic赋值语句的是（　　）
（A）a
+
b
=
2
（B）a
=
2+b
（C）2
=
a
+
b
（D）a
b
=
2
11.在Visual
Basic中，下列能作为变量名的是（　　）
（A）3_Click
（B）Name
（C）Integer
（D）a+y
12.在Visual
Basic中，Hello.frm文件属于（　　）
（A）工程文件
（B）窗体文件
（C）代码文件
（D）类文件
13.在Visual
Basic中，语句tel="ipad3"中的"iPad3"是（　　）
（A）逻辑常量
（B）数值常量
（C）字符串常量
（D）实数常量
14.下列表达式中，符合
Visual
Basic表达式书写规范的是（　　）
（A）3+|k-1|
（B）2k-1
（C）a·k/2
（D）k2-1
15.在Visual
Basic中，要在标签对象Label3上显示文字“正确”，下列语句正确的是（　　）
（A）Label3
="正确"
（B）Lable3.Caption
="正确"
（C）Label3.Caption
="正确"
（D）Caption.Label3
="正确"
16.对于Visual
Basic语句If
b=2
Then
s=s
2
Else
s=s/2，下列说法正确的是（　　）
（A）b=2为赋值语句
（B）s=s
2和s=s/2均为赋值语句
（C）s=s
2和s=s/2均为关系表达式
（D）s=s
2为关系表达式，s=s/2为赋值语句
17．长方体侧面积计算公式是s=2h(a+b)，a、b为长和宽，h为高，计算s的Visual
Basic表达式是
（　　）
（A）2h(a+b)
（B）2h
(a+b)
（C）2
h(a+b)
（D）2
h
(a+b)
18.将整数型变量n的值显示在文本框Text1中，正确的语句是（　　）
（A）Text
=
n
（B）Val(Text1)
=
n
（C）Text1.Text
=
Str(n)
（D）Str(Text1.Text)
=
n
19．下列语句用于计算s=1+4+7+10+…+25：
①For
i=1
To
25
Step
3
②Next
i
③s=0
④s=s+i
正确的语句顺序是（　　）
（A）①②③④
（B）①③④②
（C）③①④②
（D）④③①②
20．有流程图结构如下，其算法结构属于
（　　）


（A）顺序结构
（B）选择结构
（C）分支结构
（D）循环结构
21．下列描述算法的流程图符号中属于输入.输出框符号的是（　　）
（A）
（B）
（C）
（D）
22.某Visual
Basic程序的一个事件过程如下：
Private
Sub
Command1_Click()
Dim
ch
As
String
ch
=
"abcd"
Label1.Caption
=
ch
End
Sub
窗体中标签对象的属性设置如图所示。
( http: / / www.21cnjy.com )
运行程序，单击命令按钮Command1，出现“要求对象”的出错信息提示。引起该错误的语句是（　　）
（A）Dim
ch
As
String
（B）ch
=
"abcd"
（C）Label1.Caption
=
ch
（D）End
Sub
二、填空题
1.（每空3分）有如下Visual
Basic程序段：
i=6
i=i+2
j=2
i+1
j=i
该程序段运行后，变量j的值为
。
（每空3分）
Private
Sub
Command1_Click()
Dim
a
As
String
a
=
Text1.Text
+
Text2.Text
Print
a
End
Sub
程序运行后,在第一个文本框(Text1)和
( http: / / www.21cnjy.com )第二个文本框(Text2)中分别输入58和42,然后单击命令按钮,则在窗体上打印出来的结果为_______________
3.（每空3分）某算法的流程图如下所示：


若输入a、b的值分别为3、9，则该算法的输出结果为_______________
4.（每空3分）某快递公司
( http: / / www.21cnjy.com )快递货物按照货物的重量，按下列标准收费：若不超过5千克，统一收取费用15元，若超过5千克，在基本费用15元的基础上，超过部分则按每千克2.5元收费，若超过20千克,在基本费用50元的基础上，超过部分则按每千克2元收费。
设x表示货物重量，y表示快递费用。该问题的数学表达式为：
解决上述问题的Visual
Basic程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。
Private
Sub
Command1_Click()
Dim
x
as
Double
x=Val(Text1.Text)
If
x>20
Then
①
Else
If
②
Then
y=15+(x-5)
2.5
Else
y=15
End
If
Text2.Text=Str(y)
End
If
End
Sub
5、（每空3分）有如下Visual
Basic程序段：
s
=
0
For
i
=
1
To
6
step
2

s
=
s
+
i
Next
i
该程序段运行后，s=________
6.（每空4分）以下Visual
Ba
( http: / / www.21cnjy.com )sic程序的功能是：计算表达式1×3＋2×3＋3×3＋…100×3的值，并在文本框abc中输出计算结果。
Private
Sub
Command1_Click()
Dim
i
As
Integer,
s
As
Integer
s
=
0
i
=
1
Do
While
i
<=
100
s
=
s
+
i
3
i
=
i
+
1
Loop
_____①______
=
Str(s)
End
Sub
问：（1）为了实现上述表达式的计算，②处划线处应填入_____①_____。
退出循环时，变量i的值是____②_____。
7.（每空4分）如下图为冒泡排序的案例：lstUnsorted，lstSorted为左右两个列表框。
( http: / / www.21cnjy.com )
Option
Explicit
Const
MAXSIZE
=
1000
Dim
d(MAXSIZE
+
1)
As
Integer,
n
As
Integer
Private
Sub
Command1_Click()
Dim
i
As
Integer,
j
As
Integer
n
=
Val(txtSize.Text)
If
n
<=
0
Or
n
>
MAXSIZE
Then
txtSize
=
"数据个数必须大于0！"
Exit
Sub
End
If
Randomize
lstUnsorted.Clear
For
i
=
1
To
n
j
=
Int(32768
Rnd)
lstUnsorted.AddItem
Str$(j)
d(i)
=
j
Next
Command2.Enabled
=
True
End
Sub
Private
Sub
Command2_Click()
'冒泡
Dim
i,
j,
TEMP,
NextElement
lstSorted.Clear
For
i=1
to
n-1
For
_____①_______
Step
-1
If
d(j)
<
d(j
-
1)
Then
TEMP
=
d(j)
________②_______
d(j
-
1)
=
TEMP
End
If
Next
Next
For
i
=
1
To
n
lstSorted.AddItem
d(i)
Next
End
Sub
问：为了实现上述冒泡算法的实现，划线处应填入_____①_____。____②_____。
2016年6月信息技术VB期末测试试卷答题卷
一、选择题
(本大题22小题，每小题3分，共66分。在每小题给出的四个选项中，只有一个是符合题目要求的。)
题次
1
2
3
4
5
6
7
8
9
10
答案
题次
11
12
13
14
15
16
17
18
19
20
答案
题次
21
22
答案
填空题
（1-4题每空3分，6-7题每空4分）
_____________
_____________
（3）_____________
（4）_____________
_____________
（5）_____________
（6）_____________
_____________
（7）_____________
_____________
2016年6月信息技术VB期末测试试卷答案
一、选择题
(本大题22小题，每小题3分，共66分。在每小题给出的四个选项中，只有一个是符合题目要求的。)
题次
1
2
3
4
5
6
7
8
9
10
答案
B
C
B
C
A
C
C
D
D
B
题次
11
12
13
14
15
16
17
18
19
20
答案
B
B
C
D
C
B
D
C
C
D
题次
21
22
答案
C
C
填空题
（1-4题每空3分，6-7题每空4分）
_____17________
_____5846________
（3）_______2______
（4）_y=50+(x-20)
2
x>5或x>5
and
x<=20
（5）_______9______
（6）__abc.text______
___101_____
（7）
j=n
to
i+1
d(j)=d(j-1)___
线
密
封
线
密
封

展开更多......

收起↑