vb试题

试题一

1.VB应用程序通常有、和三种模块组成。

2.在VB中根据变量的作用域不同，变量可以分为、

和。

3.VB提供的属性，用来控制对象是否可见，当属性值为时，表示

对象可见。

4.Line方法用于在容器对象的指定位置画或。

5.在VB应用程序中，过程主要有、、和属性过程四类。

6.根据数据的存取方式和结构，可将文件分为、和二进制文件。

7.Visual Basic 6.0中，要对数据库进行访问，需要通过数据访问对象进行，数据访问对象

有：、和。

二、单项选择题（每题2分，共30分）

1.以下关于Visual Basic特点的叙述中，错误的是（）。

A）Visual Basic是采用事件驱动编程机制的语言

B）Visual Basic程序既可以编译运行，也可以解释运行

C）构成Visual Basic的多个过程没有固定的执行顺序

D）Visual Basic程序不是结构化程序，不具备结构化的三种基本结构

2.以下叙述中，错误的是（）。

A）在Visual Basic中，对象所能响应的事件是由系统定义的

B）对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定

C）Visual Basic中允许不同对象使用相同名称和方法

D）Visual Basic中的对象具有自己的属性和方法

3.设有如下语句：

Dim a, b As Integer

c = "VisualBasic"

d = #7/20/2005#

以下关于这段代码的叙述中，错误的是（）。

A）a被定义为Integer类型变量

B）b被定义为Integer类型变量

C）c中的数据是字符串

D）d中的数据是日期类型

4.在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：

Private Sub Command1_Click()

For i = 1 To 4

For j = 0 To i

Print Chr$ (65+i );

Next j

Print

Next i

End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）。

A）BB B） A C） B D） AA

CCC BB CC BBB

DDDD CCC DDD CCCC

EEEEE DDDD EEEE DDDDD

5.以下关于过程的叙述中，错误的是（）。

A）事件过程是由某个事件触发而执行的过程

B）函数过程的返回值可以有多个

C）可以在事件过程中调用通用过程

D）不能在事件过程中定义函数过程

6.下面能够正确打开文件的一组语句是（）。

A）Open "data1" For Output As #5

Open "data1" For Input As #5

B）Open "data1" For Output As #5

Open "data1" For Input As #6

C）Open "data1" For Input As #5

Open "data1" For Input As #6

D）Open "data1" For Input As #5

Open "data1" For Random As #6

7.单选按钮用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的

（）中安排适当的单选按钮，即可实现。

A）框架控件或图像控件

B）组合框或图像控件

C）组合框或图片框

D）框架控件或图片框

8.若在一个应用程序窗体上，依次创建了CommandButton、TextBox、Label等控件，则

运行该程序显示窗体时，（）会首先获得焦点。

A）窗体B）CommandButton C）Label D）TextBox

9.使用（）方法可以将新的列表项添加到一个列表框中。

A）Pint B）AddItem C）Clear D）RemobeItem 10.有程序代码“Text1.Text = "Visual Basic"”，其中的Text1、Text和"Visual Basic" 分别代

表（）。

A）对象、值、属性B）对象、方法、属性

C）对象、属性、值D）属性、对象、值

11.以下有关数组的说明中，错误的是（）。

A）根据数组说明的方式，可将数组分为动态数组和静态数组

B）在过程中，不能用Private 语句定义数组

C）利用ReDim语句重新定维时，不得改变已经说明过的数组的数据类型

D）数组重新定维后，原有的数组元素内容将不予保留

12.名为sort的Sub子过程的形式参数为一数组，以下的定义语句中正确的是（）。

A）Private Sub sort ( a() As Integer )

B）Private Sub sort ( a(10) As Integer )

C）Private Sub sort ( ByVal a() As Integer )

D）Private Sub sort ( a( , ) As Integer )

13.设有命令按钮Command1的单击事件过程，代码如下

Private Sub Command1_Click()

Dim a (3, 3) As Integer

For i = 1 To 3

For j = 1 To 3

a (i, j) = i * j + i

Next j

Next i

Sum = 0

For i = 1 To 3

Sum = Sum + a (i, 4 - i)

Next i

Print Sum

End Sub

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

A）20 B）7 C）16 D）17

14.针对语句If i = 1 Then j = 1，下列说法正确的是（）。

A）i=1 和j=1均为赋值语句

B）i=1 和j=1均为关系表达式

C）i=1为关系表达式，j=1为赋值语句

D）i=1为赋值语句，j=1为关系表达式

15.以下控件中，不能作为数据绑定控件的是（）。

A ）Label B）TextBox C）OptionButton D）ListBox

三、读程序写结果（共10分）

1.读完下面的程序，写出结果。（5分）

Private Sub Form_Click()

Dim str1 As String, str2 As String

Dim str3 As String, i As Integer

str1 = "e"

For i = 1 To 2

str2 = UCase(str1)