海盐县职成教中心09级计算机专业(升学)
2009—2010学年第二学期
VB阶段性考试(期中)试卷
班级姓名学号
一、选择题(每空1分,共30分)
1、下列符号中,只有 C 是合法的变量名。
A、23xy
B、Sub
C、xy23
D、xy8[1]
2、函数“Int ( Rnd ( 0 ) * 10 ) + 1”是 B 范围内的整数。
A、(0,10)
B、(1,10)
C、(0,100)
D、(1,100)
3、下列常量中, A 不是
..字符串常量。
A、#False#
B、“北京”
C、“True”
D、“”
4、设b的值为7,表达式为“x=b=7”,则运算后x为 C 。
A、b=7
B、7
C、True
D、b
5、下列叙述中,不正确
...的是 D 。
A、变量名的长度不能超过255个字符
B、变量名的第一个字符必须是字母
C、变量名不能使用VB的关键字
D、变量名可以包含特殊符号
6、假定变量a的类型是Boolean,则下面赋值语句中, D 是正确的。
A、a=“True”
B、a=.True.
C、# True #
D、3<4
7、表达式“Str(Len(“3212”))+Str(88.8)”的值为 B 。
A、488.8
B、4 88.8
C、3300.8
D、321288.8
8、设B=“234455678”,则“Val(Left(b, 4)) + Val(Mid(b, 4, 2))”的值为 C 。
A、55
B、2344
C、2389
D、234455
9、函数Len(Str(Val(“111.1”)))的值为 B 。
A、5
B、6
C、111
D、111.1
10、设A=”abcdefgh”,则下面的函数中只有 A 的值不为”fgh”。
A、Left(A,6,3)
B、Mid(A,6,8)
C、Mid(A,6,3)
D、Right(A,3)
11、Rnd函数不可能
...产生 D 值。
A、0
B、0.0000001
C、0.99999
D、1
12、能产生30~100之间随机数的表达式为 B 。
A、Int(71 * Rnd) + 30
B、Int(100 * Rnd) + 30
C、Int(70 * Rnd)
D、Int(100 * Rnd)
13、下列表达式中,值不为
..2的是 D 。
A、5 mod 3
B、10/5
C、12\5
D、12\5 mod 2
14、删除字符串前导与尾随空格的函数是 D 。
A、Lcase()
B、Ltrim()
C、Rtrim()
D、Trim()
15、执行下面的程序后,变量“c$”的值为 D 。
a$ =“Visual Basic Programming”
b$ =“C++”
c$ = Ucase( Left $ ( a $ , 7 ) ) & b $ & Right $ ( a $ , 12 )
A、Visual Basic Programming
B、Visual C++ Programming
C、VISUAL BASIC Programming
D、VISUAL C++ Programming
16、下列各组变量声明中,正确的是 C 。
A、Dim I%,N$ As Integer
B、Dim A%, b%, c%, a$
C、Dim abc As Integer, num As Single
D、Public Dim n%
17、字符串的连接运算符为 C 。
A、@
B、$
C、&
D、*
18、Boolean型数据只有两种取值,它们是 B 。
A、Yes和No
B、True和False
C、0和1
D、“是”和“不是”
19、用InputBox函数可以生成 C 。
A、消息框
B、“保存”对话框
C、简单输入框
D、“颜色”对话框
20、若要强制变量先声明后使用,应该用 C 。
A、Public Const
B、Option Base
C、Option Explicit
D、Explicit
21、语句“Print Sgn( -4 ^ 2 ) + Abs( -4 ^ 2 ) + Int( -4 ^ 2 )”的输出结果为 B 。
A、1
B、-1
C、-16
D、-32
22、一个命令按钮的Click事件过程为:
Dim a,b as Interger
a=InputBox(“请输入第1个数:”)
b=InputBox(“请输入第2个数:”)
print b + a
程序运行时,单击该按钮并分别输入456和123,则输出的结果为 C 。
A、123
B、456
C、579
D、123456
23、MsgBox函数中的参数中,只有 A 是不能省略的。
A、prompt
B、buttons
C、title
D、helpfile
24、InputBox函数的返回值是 B 。
A、数值
B、字符串
C、整型
D、视输入而定
25、MsgBox函数的返回值是 C 。
A、数值
B、字符串
C、整型
D、视输入而定
26、定义一个数组变量A(-2 to 4),该数组中包含了 D 个元素。
A、-2
B、4
C、6
D、7
27、数组x中合法的数组元素可表示为 D 。
A、x9
B、x[9]
C、x{6}
D、x(i+1)
28、定义一个数组a(5),现将数组的最后一个元素赋值给变量b,正确的是 A 。
A、b=a(5)
B、b=a[5]
C、b=a(4)
D、b=a[4]
29、下列数组声明的语句中, C 是正确的。
A、Dim A[3,4] As Integer
B、Dim A[3;4] As Integer
C、Dim A(3,4) As Integer
D、Dim A(3;4) As Integer
30、有变量定义语句Dim a As Integer,变量a的类型和初值是 A 。
A、Integer,0
B、Variant,空值
C、String,“”
D、Long,0
二、填空题(每空1分,共10分)
1、日期型常量必须用 # 括起来。
2、产生两位数的随机整数的表达式为 Int ( Rnd * 90 ) + 10 。
3、当型循环是先判断,后执行;直到型循环是先执行,后判断。
4、Spc(n)表示输出空格,n为空格数;tab(n)要求将结果输出的指定的列上,n为列号。
5、Do循环一般用于循环次数未知的情况,对于循环次数已知时,最
好采用 For 循环。
三、读程题(每空2分,共20分)
1、执行以下代码后,输出结果为 ace 。
Option Base 1
Dim a
a=Array( “a”, ”b”, ”c”, ”d”, ”e”, ”f”, ”g”, ”h” ) Print a(1); a(3); a(5)
2、在窗体上用复制、粘贴的方法建立了一个命令按钮数组,数组名为arrM。设窗体Form1的标题为MyForm1,双击控件数组中的第3个按钮,打开代码编辑器,输入以下代码:
Private Sub arrM_Click( index As Integer)
Form1.Caption = ”MyForm2”
End Sub
运行时,单击按钮数组中的第一个按钮,窗体的标题为 MyForm2 。
3、下列程序段的执行结果为 False 。
x = 3
y = 2
If x * y < 1 then y = y – 1 else y = - 2
Print y – x > 0
4、下列程序段的执行结果为 bcdcde 。
A = “abcd”
B = “bcde”
E = Right(A, 3)
F = Mid(B, 2, 3)
If E < F then print E + F Else Print F + E
5、下列程序执行后,变量x的值为 100 。
Dim a, b, c, d as single
Dim x as single
a = 100
b = 20
c = 1000
if b > a then
d = a: a = b: b =d
end if
if b > c then
x = b
else if a > c then
x = c
else
x = a
end if
6、执行下列程序段后,变量a= 1000 ,b= 100 ,c= 20 。
Dim a, b, c, d As Single
a = 100
b = 20
c = 1000
If b > a Then
d = a: a = b: b = d
End If
If c > a Then
d = a: a = c: c = d
End If
If c > b Then
d = b: b = c: c = d
End If
7、执行下列程序后,整型变量c的值为 24328 。
a = 24
b = 328
select case b\ 10
case 0
c = a * 10 + b
case 1 to 9
c = a * 100 + b case 10 to 100
c = a * 1000 + b
end select
8、当条件为“5 < x < 10”时,有“x = x + 1”,请写出对应的语句: 。 四、编程题(共40分)
1、使用双重循环,输出“九九乘法表”,如图1-1所示,请写出对应的代码。(10分)
图1-1
2、显示所有的水仙花数。所谓水仙花数,就是指一个3位正整数,其各位数字
的立方和等于该数本身。例如,3
33351153++=,153即为水仙花数。请写出
对应的代码。(10分)
3、编写一个简单的程序。运行后界面如图一所示,单击“输入成绩”按钮,出现如图二所示的文本框。
图一 图二
在图二的文本框中输入一个学生的一门课分数x (百分制),当x≥90时,在图一的输出“优秀”;当80≤x<90 时,输出“良好”;当 70≤x<80 时,输出“中等”;当60≤x<70 时,输出“及格”,当 x <60 时,输出“不及格”。(要求分别使用select case 语句和if 语句编写,各10分,共20分)
海盐县职成教中心09级计算机专业(升学)
2009—2010学年第二学期
VB阶段性考试(期中)答卷
班级姓名学号
一、选择题(每空1分,共30分)
二、填空题(每空1分,共10分)
1、 #
2、 Int ( Rnd * 90 ) + 10
3、判断;执行;执行;判断
4、空格数;列号
5、未知; For
三、读程题(每空2分,共20分)
1、 ace
2、 MyForm2
3、 False
4、 bcdcde
5、 100
6、 1000 ; 100 ; 20
7、 24328
8、
四、编程题(共40分)
题目见试卷部分。
1、(10分)
2、(10分)
3、(分别用Select Case语句和If语句编写)(共20分)