VB期末考试考卷及答案
刘天佐-老师祝福语
VB期末考试试卷及答案
一·选择题
Basic是一种面向对象的程序设计语言，构成对象的三要素是（
B ）
A属性、控件和方法 B属性、事件和方法
C窗体、控件和过程 D控件、过程和模块
2. 所有控件都有一个共同的属性，这个属性是（ C ）
A
text B font
C name D caption
3. 下列叙述中错误的是（ A ）
A
工程文件扩展名是.vbg B 标准模块文件的扩展名是.bas
C 窗体模块的扩展名是.frm D 类模块的扩展名是.cls
4. 当要编写一个新的Visual Basic程序时，所做的第一件事是（ A ）
A 新建一个工程 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的窗
体，并希望程序执行时先显示Fo
rm2窗体，那么，他需要做的工作是（ C ）
A
在Form1的Load事件过程中加入语句Load Form2
B
在Form2的Load事件过程中加入语句
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
A 10 B
6
C 8
D 12
12. 下面程序的执行结果为（ B ）
I=”1” : j=”2”
I=val(i)+val(j)
J=val(“12”)
If i<>j Then
print i-j Else printj-i
A 9
B -9
C 12
D 0
13. 下面程序的执行结果为（ A
）
Dim S(10) AS
Integer
For i=0 to 10
S(I)=2*i
Next i
Print S(S(3))
A 12
B 6
C 0
D 4
二·程序填空题：
1. 在窗体上画一个命令按钮（Comm
and1）和一个标签（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()
For i= 【5】
To 1 Step -1
S2=
s2+Mid(s1, 【6】 , 1)
=
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()
m”交通大学”
m”理工大学”
m”财经大学”
m”外贸大学”
End Sub
Private Sub
Command1_Click()
【8】
Flag=Flase
For i=0 to 【9】
If (i)= Then
flag=True : Eixt For
End If
Next i
If Not flag Then 【10】
End Sub
6. 下面程序的功能是对数组的元素值用选择法按递增顺序排序，请
在指定位置填上
正确代码将程序补充完整。
Private
Sub Command1_Click()
Dim
ia(),i%,max%,imax%.t%
Ia=Array(3,8,5,6,7,4,9)
For i =0 To 5 : imax = i
For j = i+1 To 6
If
【11】 Then imax =j
Next j
T=ia(i) :
【12】 : ia(imax)=t
Next i
For i=0 To
6 : Print ia(i) : Next i
End Sub
7. 窗体上有名称为Command1的命令按钮及名称为Text1、能
显示多行文本的文本框。
程序运行后，如果单击命令按钮，则可打开磁盘文件c:，并将文件中
的内容（多行文本）显示在文本框中。下面是实现此功能的程序，请在指定位置
填上正确代码将程序补充
完整。
Private Sub
Command1_Click()
Text1=””
Open”c:” For
Input As #1
Do While Not
【13】
Line
Input#1,S
=+ 【14】
+chr(13)+chr(10)
Loop
【15】
End Sub
答案：
1.S+a(I,j) 1 0 = S (Rnd*99)
4.a(i)
mod 5=0
(S1) 6.i
7.x=7 m
9.3ListCount
11.a(j)>imax
m
(i)=ia(imax) 14. S
#1
三·阅读程序，在答题纸指定位置写出程序运行结果。
1.
以下程序运行后，单击命令按钮，写出程序的运行结果。
Private Sub
Command1_Click()
Dim n%,b,t
t =1 : b =1 : n =2
Do While
n<=4
If b > 1 Then Exit Do
b = b*n : t = t+b : n = n+1
Loop
Print “t=”& t
End
Sub
2. 在窗体中添加一个命令按钮Command1，并编写如下程序：
Private Sub Command1_Click()
X =InputBox(x)
If x^2<=9 Then y= 1x
If x^2>9
Then y= x^2+1
If (x^2)-7=9
Then y=x
Print “y=”&y
End Sub
程序运行后，在InputBox中输入4，单击命令按钮，写出程序的运行结果。
3.
窗体上画一个命令按钮，并编写以下事件过程和子过程：
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x =12 : y = 20
Call
Value(x,y)
Print “x=”&x,
“y=”&y
End Sub
Private Sub Value(ByVal m As Integer, n As
Integer)
m=m*2 ： ｎ=n-5
End Sub
程序运行后，单击命令按钮，写出程序的输出结果。
4.
窗体上画一个命令按钮和一个图像框，并编写以下事件过程：
Private Sub Command1_Click()
Dim
a(3,3)
For m =1To3
For n= 1 To 3
If n = m Or
n = 4 –m Then
a(m,n)=m+n
Else
a(m,n)=0
End If
a(m,n)
Next n
Next m
End Sub
程序运行后，单击命令按钮，图像框中显示的内容是什么?
5.
在窗体上画一个列表框和一个命令按钮Command1，然后编写如下程序：
Private Sub Command1_Click()
Item1
Item2
End Sub
Private Sub Form_Load()
m”兰州”
m”甘肃”
m”交通”
m”大学”
End Sub
程序运行后，单击命令按钮，写出在列表框中显示的结果。
答案： 1. 3
2. 4 3. 12；15 4. 2 0 4
0
6
5兰州；大学
；0 4 0；4
四·编写程
序：输出（1,100）之间同时被5和7整除的数的个数及其它们的和。
答案：Private Sub Form1_Click()
Dim s%,c%
For i=1 to 100
If i Mod 5=0 And i Mod 7=0 Then
s = s+1
c = c +i
End If
Next i
Print s, c
End Sub