VB程序设计考试题库(5)

VB程序设计考试题库（5）

一、单选题（每题1分，共50题）

1.以下关于Visual Basic特点的叙述中，正确的是（ 未填 ）。 错误 正确答案：D

A.构成Visual Basic程序的多个过程有其固定的执行顺序

Basic程序只可以编译运行，不可以解释运行

Basic采用面向对象的程序设计方法

Basic程序是结构化程序，具备结构化程序的三种基本结构

2.在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是 （ 未填 ） 错误 正确答案：C

A.窗体布局窗口

B.立即窗口

C.代码窗口

D.监视窗口

3.在设计阶段，当双击窗体上的某一个文本框控件时，系统将在代码窗口中显示该文本框控件的（ 未填 ）事件过程模板。 错误 正确答案：C

ck

us

4.文本框的（ 未填 ）属性用于设置或返回文本框中的文本内容。 错误 正确答案：A

B.(名称)

n

5.程序运行时，若要通过回车键调用某命令按钮的Click事件过程，则可设置该命令按钮的（ 未填 ）属性值为True来实现。 错误 正确答案：C

d

t

6.下列函数中，返回值的类型与其它3个不同的是（ 未填 ） 。 错误 正确答案：A

()

()

()

()

7.表达式"Turbo"+"c">"Ture"+"Basic"的值是（ 未填 ）。 错误 正确答案：B

D.出错信息

8.下列不能作为VB中的变量名的符号是（ 未填 ）。 错误 正确答案：C

A.A45

B.P12

C.89Ta

9.函数Len(str(val("-135.6")))的值是（ 未填 ）

错误 正确答案：B

A. 11

B. 6

C. 5

D. 8

10.为了给x，y，z三个变量赋初值1，下面正确的赋值语句是（ 未填 ）。

错误 正确答案：A

A.x = 1 : y = 1 : z = 1

B.x = 1, y = 1, z = 1

C.x = y = z = 1

= 1

11.函数Ucase( Basic )的值为（ 未填 ）。 错误 正确答案：D

12.为程序的空白行选择适当的语句，使程序段完成相应计算 。

程序段的功能是：当x取值5到10，或取值大于20时，输出一串"*"；x取其他值时，输出一串"#"。X为整型数据。

Select Case x

( )

Print "**********"

Case Else

Print "############"

End Select （ 未填 ） 错误 正确答案：B

5-10，x>20

5，6，7，8，9，10，is>20

5，6，7，8，9，10，x is>20

5 To 10，x>20

13.下列叙述中， 错误的是（ 未填 ） 错误 正确答案：A

A. 标签和文本框都有Caption属性

B. 标签和文本框的主要区别在于能否编辑其内容

C. 标签具有AutoSize属性，而文本框没有

D. 文本框具有ScrollBar属性，而标签没有

14.退出FOR循环可使用的语句为（ 未填 ） 错误 正确答案：A

For

Do

For

Do

15.错误使用Print方法的是（ 未填 ） 错误 正确答案：D

A.

B.

C.

D.

16.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：

Private Function f(m As Integer)

If m Mod 2 = 0 Then

f = m

Else

f = 1

End If

End Function

Private Sub Command1_Click()

Dim I As Integer

s = 0

For I = 1 To 5

s = s + f(I)

Next

Print s

End Sub

程序运行后，单击命令按钮，在窗体上显示的是（ 未填 ） 错误A.11

B.10

C.9

D.8

17.下列叙述中，错误的是（ 未填 ） 错误 正确答案：A

A. 不允许使用行号与标号

B. 单条语句可分行书写

C. 同一行上可以书写多条语句

D. VB代码不区分字母的大小写

正确答案：C

18.计算z的值：当x大于y时，z=x；否则，z=y。下列语句行错误的是（ 未填 ） 错误 正确答案：A

x=y Then z=x：z=y

x>=y Then z=x Else z=y

C.z=y：If x>=y Then z=x

x<=y Then z=y Else z=x

19.多分支选择结构中，Case子句的作用是说明 （ 未填 ）。 错误

D

A. “Select Case<测试表达式>”语句中<测试表达式>的值域

B. “Select Case<测试表达式>”语句中<测试表达式>的类型

C. “Select Case<测试表达式>”语句中<测试表达式>的取值个数

D. “Select Case<测试表达式>”语句中<测试表达式>的入口

20.下列语句错误的是（ 未填 ）。 错误 正确答案：B

For

While

Do

Sub

21.有如下事件过程:

Private Sub Command1_Click()

b=10

Do Until b=-1

a=InputBox(""输入a的值"")

a=Val(a)

b=InputBox(""输入b的值"")

b=Val(b)

a=a*b

正确答案：

Loop

Print a

End Sub

程序运行后，依次输入数值30，20，10，-1，输出结果为（ 未填 ）。 错误 正确答案：D

A.6000

B.-6000

C.200

D.-10

22.下面程序的运行结果不同是 （ 未填 ）。 错误 正确答案：D

I=100 To 200 Pset(100，I) Next I

(100，100)-(100，200)

(100，100)-Step(0，100)

Step(100，100)-Step(100，200)

23.下面是一个窗体的单击事件过程：

Privme Sub Form_Click()

If d Then

n="命令按钮可以使用!"

Else

n="命令按钮不可以使用!"

End If

End Sub

该窗体事件的功能是（ 未填 ）。

错误 正确答案：B

A.判断命令按钮是否可见，以便在标签上显示不同的信息

B.判断命令按钮是否可用，以便在标签上显示不同的信息

C.判断命令按钮是否设置了默认按钮，以便在标签上显示不同的信息

语句中的条件不合法，事件过程错误，不能执行。

24.运行下面的程序段后，x的值为（ 未填 ）。

x = 4

For i = 1 To 5

x = x + x 3

Next i 错误 正确答案：B

A. 6

B. 7

C. 8

D. 9

25.可以惟一标识控件数组中的每一个控件的属性是（答案：C

A．Name

B．Caption

C．Index

D．Enabled

26.阅读程序

Option Base 1

Private Sub Form_Click()

Dim arr, Sum

Sum = 0

arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)

For i = 1 To 10

If arr(i) / 3 = arr(i) 3 Then

Sum = Sum + arr(i)

End If

Next i

Print Sum

未填 ）。错误 正确

End Sub

程序运行后，单击窗体，输出结果为（ 未填 ）。 错误 正确答案：C

A.13

B.14

C.27

D.15

27.在过程调用中数组作为参数传递时，不正确的是（ 未填 ）。

答案：C

A.可用数组名作为形参或实参

B.可用数组元素值作为实参进行传递

C.用数组名时，在参数列表中一定要有数组的维数值

D.在过程体内，用函数Lbound()和Ubound()确定实参数组的上、下界28.

对窗体编写如下代码：

Option Base 1

Private Sub Form_KeyPress(KeyAscii As Integer)

a=Array(237,126,87,48,498)

m1=a(1)

m2=1

If KeyAscii=13 Then

For i=2 To 5

If a(i)>m1 Then

m1=a(i)

m2=i

End If

Next i

End If

Print m1

Print m2

错误 正确

End Sub

程序运行后，按回车键，输出结果为（ 未填 ）。 错误 正确答案：C

A.48 4

B.237 1

C.498 5

D.498 4

29.在窗体上面画一个命令按钮，然后编写如下事件过程：

Option Base 1

Private Sub Command1_Click()

Dim a

a = Array(1,2,3,4)

j = 1

For I = 4 To 1 Step -1

s = s + a(I)*j

j =j*10

Next I

Print s

End Sub

运行上面的程序，单击命令按钮，其输出结果是（ 未填 ）。

A.4321

B.12

C.34

D.1234

30.在下列数组声明语句中，正确的是（ 未填 ）。

错误 正确答案：B

a[5,5] As Integer

a(5,5) As Variant

错误 正确答案：D

a(m, m) As Double

a(5 5) As Single

31.下列语句都是在Form中定义的，（ 未填 ）是错的。 错误 正确答案：A

Const A1=2u

B. Private Const A2=8

a3 As Integer

e a4 As Integer

32.下面过程运行后显示的结果是（Public Sub F1(n%,ByVal m%)

n=n Mod 10

m=m10

End Sub

Private sub command1_click()

Dim x%,y%

X=12

Y=34

Call F1(x,y)

Print x,y

End sub

错误 正确答案：A

A.2 34

B.12 34

C.2 3

D.12 3

33.关于过程调用正确的是（ 未填A.过程要用Call语句调用

未填 ）。

）。 错误正确答案：D

过程一定要用Call语句调用

C.过程都可以用赋值语句的形式调用

D.只要写上过程名并给出实参就能调用过程

34.在参数传递过程中，使用关键字（ 未填 ）来修饰参数，可以使之按值传递。 错误 正确答案：A

A．ByVal

B．ByRef

C．Value

D．reference

35.在窗体模块的通用声明中声明变量时，不能使用（ 未填 ）关键字。 错误 正确答案：D

A．Dim

B．Public

C．Private

D．Static

过程与Function过程最根本的区别是（ 未填 ）。 错误 正确答案：D

A．Sub过程可以直接使用过程名调用，而Function过程不可以

B．Function过程可以有参数，而Sub过程不可以

C．两种过程参数传递方式不同

D．Sub过程的过程名不能返回值，而Function过程能通过过程名返回值

37.假定图片框Picture1中装入一个图形Picture1，为了清除该图形(注意，清除图形，而不是删除图片框)，应采用的正确方法是（ 未填 ）。 错误 正确答案：B

A.选择图片框，然后按【Del】键

B. Picture1. Picture=LoadPicture(“”)

C.执行语句Picture1. Picture=””

D.选择图片框，在属性窗口中选择Picture属性条，然后按回车键

38.下面哪些控件不会影响到界面设计效果（ 未填 ）。 错误 正确答案：A

A. 定时器

B. 文本框

C. 标签

D. Line控件

39.在窗体上画了一个名称为Timer1的计时器和一个名称为Lab的属性设置为Enabled=True,Interval=0,并编程如下。希望在每2秒在标签上显示一次系统当前时间。

Private Sub Timer1_Timer()

n=Time$

End Sub

但在程序执行时发现未能实现上述目的，那么，应做的修改是（ 未填 ）。 错误 正确答案：A

A.通过属性窗口把计时器的Interval属性设置为2000

B.通过属性窗口把计时器的Enabled属性设置为False

C.把事件过程中的n=Time$语句改为al=Tims$

D.把事件过程中的n=Time$语句改为n=

40.用户可以通过设置菜单项的（ 未填 ）属性的值为False来使该菜单项不可用。 错误 正确答案：D

d

d

d

41.决定标签内显示内容的属性是（ 未填 ）。 错误 正确答案：D

ent

n

42.以下关于图片框控件的说法中，错误的是（ 未填 ）。 错误 正确答案：D

A.可以通过Print方法在图片框中输出文本

B.清空图片框控件中图形的方法之一是加载一个空图形

C.图片框控件可以作为容器使用

D.用Stretch属性可以自动调整图片框中图形的大小

43.下列控件中没有Caption属性的是（ 未填 ）。 错误 正确答案：B

A. 框架

B. 列表框

C. 复选框

D. 单选按钮

44.引用列表框List1最后一个数据项，应使用（ 未填 ）语句。 错误 正确答案：C

A. (unt)

B. (ListCount)

C. (unt-1)

D. (ListCount-1)

45.滚动条产生Change事件是因为（ 未填 ）值改变了。 错误 正确答案：B

A. SmallChange

B. Value

C. Max

D. LargeChange

方法可在（ 未填 ）记录集中进行查找。 错误 正确答案：C

t类型

B. Snapshot类型

类型

D.以上三者

47.要使用数据控件返回数据库中记录集，则需设置 （ 未填 ）属性。 错误

确答案：C

t

deName

C. RecordSource

Type

48.下列不能表示精确数值的数据类型是（ 未填 ）。

错误 正确答案：D

A. int

B．numeric

C. real

D．smallint

正

数据库是（ 未填 ）。

错误 正确答案：B

A. 临时数据库

B．新建数据库的模板数据库

C. 用户数据库

D．备份数据库

50.在新增记录调用Update方法写入记录后，误 正确答案：C

A. 记录集的最后一条

B. 新增记录集上

C. 添加新记录前的位置上

D.记录集的第一条

记录指针位于（未填 ）。错