VB 期中试卷

海盐县职成教中心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分）