VB期末考试试卷及答案.doc

VB 期末考试试卷及答案

一·选择题

1.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ B ） A 属性、控件和方法 B 属性、事件和方法

C 窗体、控件和过程

D 控件、过程和模块

2.所有控件都有一个共同的属性，这个属性是（ C ）

A text

B font

C name

D caption

3.下列叙述中错误的是（ A ）

A工程文件扩展名是 .vbgB 标准模块文件的扩展名是 .basC窗体模块的扩展

名是 .frmD 类模块的扩展名是 .cls

4.当要编写一个新的 Visual Basic程序时，所做的第一件事是（ A ）A xx 一个工程 B 编写代码

C 设置属性

D 添加 Active X控件

5.下面控件中，没有caption 属性的是（ B ）

A框架B组合框

C 命令按钮

D 复选按钮

6.在文件框中输入字符时，若只显示某个字符，如（* ），应设置属性是（B）A MultiLine B PasswordChar

C Text

D selText

7.若要将窗体从内存中卸载出去，其实现的方法是（ D ） A

Show B Hide

C Load

D UnLoad

8.下列关于过程叙述不正确的是（ D ）

A过程的传值调用是将实参的具体值传值传递给形参

B过程的传址调用是将实参在内存的地址传递给形参

C过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的

D无论过程传值调用还是传地址调用，参数传递都是双向的

9.某人创建 1 个工程，其中的窗体名为Form1，之后又添加了 1 个名为Form2 的窗体，并希望程序执行时先显示Form2 窗体，那么，他需要做的工作

是（ C ）A 在 Form1 的 Load 事件过程中加入语句Load Form2

B 在 Form2 的 Load 事件过程中加入语句Form2.Show

C在“过程属性”对话框中把“启动对象”设置为 Form2

D在 Form2 的 TabIndex 属性设置为 1，把 Form1 的 TabIndex属性设置为 2

10.以下关于文件的叙述中，正确的是（ B ）

A 以 Output 方式打开一个不存在的文件时，系统将显示出错信息

B 以Append 方式打开的文件，既可以进行读操作，也可以进行写操作

C 在随机文件在，每个记录的长度是固定的

D无论是顺序文件还是随机文件，其打开的语句和打开的方式都是完全相

同的

11.设 a=6，b=8，c=10则函数 IIf(a

C8D12

12.下面程序的执行结果为（ B ）

I= ” 1” :j= ” 2”

I=val(i)+val(j)

J=val(“ 12”)

If i<>j Then print i-j Else printj-i

A9B-9

C12D0

13.下面程序的执行结果为（ A ）

Dim S(10)AS Integer

For i=0 to 10

S(I)=2*i

Next i

Print S(S(3))

A12B6

C0D4

二·程序填空题：

1.在窗体上画一个命令按钮（Command1）和一个标签（ Label1），为命令按钮编写以下事件，其功能是求数组中各元素之和，并将结果在标签上显示，

请在指定位置填上正确代码将程序补充完整。

Option Base 1

Private Sub Command1_Click()

Dim a(3,2) AS Integer

S =0

For i= 1 to 3

For j= 1 to 2

a(I,j) = i+j

s=【1】

Next j

Next i

【2】

End Sub

2.下面程序的功能是产生 10 个小于 100（不含 100）的随机正整数，并统计其中 5 的倍数所占比例，请在指定位置填上正确代码将程序补充完整。

Private Sub Command1_Click()

Randomise

Dim a(10) As Integer

For j =1 to 10

a(i)=【 3】

If 【4】Then k= k+1

Print a(j)

Next j

Print

Print k /10

End Sub

3.以下程序运行后，在Text1 中输入任意字符串，单击命令按钮，将Text1 中的字符串转换为大写，再将字符串逆置（如ABCD--DCBA），在 Text2 中显示逆置后的字符串。请在指定位置填上正确代码将程序补充完整。

Private Sub Command1_Click()

St = Ucase(Text1.text)

For i=【5】To 1Step -1

S2= s2+Mid(s1,【6】, 1)

Text2.text= s2

End Sub

4.Next i 设有如下的循环，要求程序运行时执行 3 次循环，请在指定位置填上正确代码将程序补充完整。

Dim x As Integer

X=1

Do

x = x+2

Print x

Loop Until 【7】

5.在窗体上画一个组合框（Combo1）、一个列表框（ List1）和一个命令按钮（ Command1）。下面程序的功能是在组合框中选择一个大学名称，单击命

令按钮，则所选大学名称将添加在列表框中，当组合框中没有要选的大学名称

时，输入一个名称，则此大学名称在添加列表框中的同时也会添加到组合框

中，请在指定位置填上正确代码将程序补充完整。

Private Sub Form_Load()