【www.gbppp.com--经典美文】
《Visual Basic程序设计》试卷5
一、单项选择题（每题1分，共30分）
1．窗体文件名的后缀是（ d ）。
A．BMP B．VBP C．BAS D．FRM
2.以下常数中，( c )占用存储空间最多。
A. 123 B.－9.43E6 C.－9.34D5 D.8989898
3.用户可通过( d )模拟屏幕的小图像来布置应用程序。
A.窗体设计器 B.快捷菜单 C.立即窗口 D.窗体布局窗口
4．使用（ b）方法可以删除列表框中的某个列表项。
A．Print B．RemoveItem C．AddItem D．Clear
5．下列控件中可自动设置滚动条是（ c ）
A. 复选框 B．框架 C．文本框 D．标签框
6．引用列表框(List1)最后一个数据项应使用（b ）。
A．List1.List(List1.ListCount)
C．List1.List(ListCount) B．List1.List(List1.ListCount-1) D．List1.List(ListCount-1)
7. 表达式5+5 \ 6 * 7 / 8 Mod 9 的值是（ c ）
A． 4 B. 5 C. 6 D. 7
8.使用CommonDialog控件的( d )方法可显示“字体”对话框。
A.ShowOpen B.ShowSave C.ShowColor D.ShowFont
9.在VB中设计程序时，能自动被检查出来的错误是( a )。
A.语法错误 B.语法错误和逻辑错误
C.运行错误 D.逻辑错误
10．在事件过程中，Private表示（ b ）
A. 此过程可以被任何其它过程调用
B．此过程只可以被本窗体模块中的其它过程调用
C．此过程不可以被任何其它过程调用
D．此过程只可以被本工程中的其它过程调用
11．若要求从文本框中输入密码时在文本框中只显示*号，则应当在
此文本框的属性窗口中设置（d ）
A. Text属性值为* B．Caption属性值为*
C．password属性值为空 D．Passwordchar属性值为*
12．下列运算符中，优先级最高的是（ ）。
A．/ B．+ C．\ D．MOD
a$="Visual Basic Programing"
b$="Quick"
c$=b$ & Mid$(a$,7,6) & Right$(a$,11)
13. 执行以下程序段后，变量c$的值为（ b ）
A. Visual BASIC Programing
B. Quick Basic Programing
C. QUICK Basic Programing
D. Quick BASIC Programing
14. 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（ b ）
A. Value B. Default C. Cancel D. Enabled
15.为了把焦点移到某个指定的控件，所使用的方法是（ a ）
A. SetFocus B. Visible C. Refresh D. GetFocus
16. 用下面语句定义的数组的元素个数是 。 （ d ）
Dim A (-3 To 5) As Integer
A.6 B. 7 C. 8 D .9
17．若已在窗体中加入了一个通用对话框；要求在运行时，通过ShowOpen打开对话框时,只显示扩展名为 DOC的文件；则对通用对话框的 Filter属性正确的设置是d
A. "(*.DOC)*.DOC" B. "(*.DOC)|(.DOC)"
C. "(*.DOC)||*.DOC" D. "(*.DOC)|*.DOC"
18.在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是（c ）
A. Move B. Click C. Scroll D. GetFocus
19.为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这个属性是（c ）
A. Visible B. Timer C. Enabled D. Interval
20.为了在运行时能显示窗体左上角的控制框（系统菜单），必须（b ）
A. 把窗体的Contro1Box 属性设置为Fale,其他属性任意
B. 把窗体的ControlBox 属性设置为True,并且把BoderStyle属性设置为1-3
C. 把窗体的ControlBox 属性设置为False,同时把BoderStyle属性调协为非0值
D. 把窗体的ControlBox 属性设置为True,同时把BoderStyle属性设置为0值
21．用Msgbox “你好”，vbokonly, “Hello”显示的消息对话框窗口的标题是(d )
A. 你好 B. vbokonly C. Ok D. Hello
22. 建立并打开一个新的顺序文件“seqnew.dat”的正确语句是：( b )
A． Open “seqnew.dat” For input As #1
B． Open “seqnew.dat” For Output As #1
C． Open “seqnew.dat” For Binary As #1
D． Open “seqnew.dat” For Random As #1
23. 有变量定义语句Dim a,b as String,则变量a 的类型和初值为（c ）。
A. String、0 B. String、“” C. Variant、空值 D. Variant、0
24. 执行下面的程序段后，x 的值为 （ d ）。
x=5
For i=1 To 11 Step 2
x=x+i\5
Next i
A. 11 B. 12 C. 9 D. 10
25. 下面程序运行时输出的结果是（d ）
Private Sub Form_Click()
For K = 3 To 1 Step -1
X$ = String$(K, "*"):Print X$
Next K
End Sub
A. * B. * C. * D.* * *
* * * * * * *
* * * * * * * *
26. 以下哪一条语句是向随机文件写入数据的正确语句？( c )
A． Print #1 , rec B． Write #1 , rec
C． Put #1 , rec D． Get #1 , rec
27. 在程序中应用控件时应使用该控件的：( B )
A． Caption属性值 B． 名称
C． Title属性值 D． Top属性值
28. 如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值
应该等于：( A )
A． 1000 B． 100 C． 10 D． 1
29. 要求设计的菜单具有灵活性，即设计时设定了8个菜单，但程序运行时
根据操作要求的不同，可以只显示6个、7个或全部8个菜单，这是应
该使用菜单控件的哪个属性来进行控制？( D )
A． Check B． ShortCut C． Enabled D． Visible
30．下列语句中的（ B ）语句可以用来正确地声明一个动态数组.
A．Private A(n)As Integer B．Dim A( ) As Integer
C．Dim A( , ) As Integer D．Dim A(1 to n)
二、填空题（每空1分，共10分）
1．文本框的默认属性是。
2．将通用对话框的1或选择 ，可显示“打开”对话框。
3．要使命令按钮Command1上可以显示图形，则需要对命令按钮的属性值进行设置。
4．要使驱动器列表框Drive1和目录列表框Dir1能产生同步效果，必须在事件过程中加入语句 。
5．在显示“字体”对话框之前，必须设置
6．要显示快捷菜单，应使用
7．从已打开的顺序文件中读出一行，应使用语句。
8．给程序添加注释，可采用标志。
三、程序填空题（每空2分，共20分）
1.在窗体上输出100到200之间的素数，请将程序补充完整。
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim k As Integer
Dim flag As Boolean
For n = 100 To 200
k = Int(Sqr(n))
i = 2
flag = True While i <= k And (1) If n Mod i = 0 Then flag = False Else (2) Wend
If flag = True Then (3)
End If
Next n
End Sub
2． 求的值，完善下列程序：
Private Sub Form_Click()
S=
Sing= 1
k= 2
Do While (5)
Sing= -1*Sing
T = Sing/ K (6)
k= k+ 1
Loop
Print "和值="; S
End Sub
3.以下是选择法排序的程序，请将程序补充完整。(升序)
Option Base 1
Private Sub Command1_Click()
Dim s() As Integer, t As Integer
Dim i As Integer, j As Integer, k As Integer
n = InputBox("输入数组的上界") (7)
For i = 1 To n
s(i) = InputBox("输入:")
Print s(i);
Next i For i = (8)
k = i For j = (9) If (10) Then k = j
Next j
t = s(i)
s(i) = s(k)
s(k) = t
Next I
For i = 1 To n
Print s(i);
Next i
End Sub
四、阅读程序，写出程序运行结果（每题5分，共15分）
1. Private Sub Form_Click()
For j = 1 To 10 Step 2
A = A + j Mod 5
Next j
Print A
End Sub
2. Private Sub Form_Click()
Dim k As Integer
Dim m As Integer
m = 2
k = 3
p = func(k, m): Print "p1="; p
p = func(k, m): Print "p2="; p
End Sub
Function func(a, b)
Static i As Integer
i = i + 1
n = a + b + i
b = b + n
func = n
End Function
3. Option Base 1
Private Sub Form_Click()
Dim a(10) As Integer
For j = 1 To 10
a(j) = j
Next j
For j = 1 To 9
a(j + 1) = a(j)
Next j
Print a(10)
End Sub
五、编程题
VB期末考试试卷及答案
一·选择题
1.Visual 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的窗体，
并希望程序执行时先显示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<b,Iif(b<c,c,b),a+b)的返回值是（ 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. 在窗体上画一个命令按钮（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 k /10
End Sub
3. 以下程序运行后，在Text1中输入任意字符串，单击命令按钮，将Text1中的字符
串转换为大写，再将字符串逆置（如ABCD--DCBA），在Text2中显示逆置后的字符串。请在指定位置填上正确代码将程序补充完整。
Private Sub Command1_Click()
St = Ucase(Text1.text)
For i= 【5】 To 1 Step -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()
Combo1.AddItem”交通大学”
Combo1.AddItem”理工大学”
Combo1.AddItem”财经大学”
Combo1.AddItem”外贸大学”
End Sub
Private Sub Command1_Click()
【8】
Flag=Flase
For i=0 to 【9】
If Combo1.List(i)=Combo1.Text 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:\test.txt，并将文件中的内容（多行文本）显示在文本框中。下面是实现此功能的程序，请在指定位置填上正确代码将程序补充完整。
Private Sub Command1_Click()
Text1=””
Open”c:\test.txt” For Input As #1
Do While Not 【13】
Line Input#1,S
Text1.text=Text1.text+ 【14】 +chr(13)+chr(10)
Loop
【15】
End Sub
答案： 1.S+a(I,j) 2.Label1 0 = S 3.Int(Rnd*99) 4.a(i) mod 5=0
5.Len(S1) 6.i 7.x=7 8.List1.AddItem Combo1.text
9.3/ListCount 10.Combo1.AddItem Combo1.text 11.a(j)>imax
12.ia(i)=ia(imax) 13.Eof 14. S 15.Close #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= 1/x
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
Picture1.Print a(m,n)
Next n
Picture1.Print
Next m
End Sub
程序运行后，单击命令按钮，图像框中显示的内容是什么?
5. 在窗体上画一个列表框和一个命令按钮Command1，然后编写如下程序：
Private Sub Command1_Click()
List1.RemoveItem1
List1.RemoveItem2
End Sub
Private Sub Form_Load()
List1.AddItem”兰州”
List1.AddItem”甘肃”
List1.AddItem”交通”
List1.AddItem”大学”
End Sub
程序运行后，单击命令按钮，写出在列表框中显示的结果。
答案： 1. 3 2. 4 3. 12；15 4. 2 0 4；0 4 0；4 0 6
5兰州；大学
四·编写程序：输出（1,100）之间同时被5和7整除的数的
VB试题类型与分值
1、判断题： 10题，每题1分，共10分； 2、填空题： 5空， 每空2分，共10分； 3、选择题： 40题，每题1分，共40分； 4、程序阅读题：5题， 每题4分，共20分； 5、程序填空： 2题， 每题5分，共10分； 6、程序设计题：2题， 每题5分，共10分。
VB试题库
一、判断题
1、VB是以结构化的Basic语言为基础、以事件驱动作为运行机制的可视化程序设计语言。 2、属性是对象的性质。
3、同一窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。 4、在VB中，有一些通用的过程和函数作为方法供用户直接调用。 5、控件的属性值不可以在程序运行时动态地修改。
6、许多属性可以直接在属性表上设置、修改，并立即在屏幕上看到效果。 7、所谓保存工程，是指保存正在编辑的工程的窗体。 8、在面向对象的程序设计中，对象是指可以访问的实体。
9、决定对象是否可见的属性是Visible属性，决定对象可用性的属性是Enabled属性。
10、保存VB文件时，若一个工程包含多个窗体或模块，则系统先保存工程文件，再分别保存各窗体或模块文件。
11、xxx.vbp文件是用来管理构成应用程序xxx的所有文件和对象的清单。 12、事件是由VB预先定义的对象能够识别的动作。
13、事件过程可以由某个用户事件触发执行，它不能被其它过程调用。 14、窗体中的控件，是使用工具箱中的工具在窗体上画出的各图形对象。 15、可以从“运行”对话框或MS-DOS窗口中启动VB。
16、由Visaul Basic语言编写的应用程序有解释和编译两种执行方式。 17、在使用“格式”菜单前，不能选中窗体中的多个控件。 18、“视图”菜单可用于打开各种窗口（包括与浏览或显示有关的命令及属性页和工具箱的显示）。 19、“方法”是用来完成特定操作的特殊子程序。 20、“事件过程”是用来完成事件发生后所要执行的操作。 21、用DIM定义数值变量时，该数值变量自动赋初值为0。 22、整型数值常量有整数、长整数两种。
23、在逻辑运算符Not、Or、And中，运算优先级由高到低依次为Not、Or、And。 24、关系表达式是用来比较两个数据的大小关系的，结果为逻辑值。
25、赋值语句的功能是计算表达式的值并转换为相同类型数据后为变量或控件属性赋值。 26、要在文本框中输入6位密码，并按回车确认，则文本框的MaxLength属性值为6。
27、表示各控件对象的变量名的属性为Caption。
28、标签框的Caption属性值为字符串，运行时可以重新赋值。 29、用来显示文本框内容的属性是Caption属性。
30、SetFocus方法是把焦点移到指定的对象上，使对象获得焦点，该方法适用于所有控件。 31、文本框控件除支持鼠标的Click、DblClick事件外，还支持Change、LostFocus事件。 32、运行时可以对对象的位置、大小属性通过程序代码进行调整，以获得不同的显示效果。 33、命令按钮不但能响应单击事件，还能响应双击事件。 34、要使输入文本框的字符始终显示“#”，则应修改其PasswordChar属性为“#”。 35、设置好窗体字体后，在窗体上建立控件，各控件的默认字体为窗体字体。 36、单选框控件和复选框控件都具有Value属性，它们的作用完全一样。 37、单选按钮能响应Click事件，但不能响应DblClick事件。
38、复选框不支持鼠标的双击事件，如果双击则系统会解释为两次单击事件。
39、设置框架时，可先在窗体上画好框架，再往框架内添置控件；也可以先设置控件，再建立框架，然后将已有的控件拖动到框架中。
40、移动框架时，框架内控件也跟随移动，因此框架内控件的Left和Top属性值也随之改变。 41、当列表框的MultiSelect属性值设置为0时，用户可以从列表框中选取一项或多项。 42、当列表框中表项太多、超出了设计时的长度时，VB会自动给列表框加上垂直滚动条。 43、列表框和文本框一样均没有Caption属性，但都具有Text属性。
44、从几十个项目中任选其中一项或多项时，可选用列表框或组合框控件来实现。
45、用户可拖动滚动框来改变滚动条的Value值，在移动滚动框时，发生Change事件。 46、图片框可以通过Print方法来显示文本。
47、用Cls方法能清除窗体或图片框中用Picture属性设置的图形。
48、在图片框中添加的控件，其Top和Left属性值是相对图片框而言的，与窗体无关。 49、图形控件可以在运行时接收焦点。
50、由于定时器控件在运行时是不可见的，因此在设置时可任意地将其放在任何位置。
判断题答案：
二、填空题
1、Visual Basic对象可以分为两类，分别为和。 2、为了选择多个控件，可以按住键，然后单击每个控件。 3、 Visual Basic应用程序中窗体模块文件的扩展名是 【3】。 4、 用户可以用 语句定义符号常量。
5、 浮点数由3部分组成，即符号、和尾数。 6、 函数Str$(256.36) 的值是。 7、设有如下程序段：
a$="BeijingShanghai"
b$=Mid(a$,InStr(a$,"g")+1)
执行上面的程序段后，变量b$的值为【7】。 8、下述语句段在运行时的显示结果是
Cls
x=10.34 + 8 Print Len(x)
9、在Visual Basic的立即窗口内输入以下语句
X＝65<CR> ?Chr$(X) <CR>
在窗口中显示的结果是 【9】 。
x2y2
ab转换成程序设计中的表达式为 【10】 。 10、将代数式
11、 关系式x≤-5或x≥5所对应的布尔表达式是。
12、表达式3 ^ 2 Mod 36 ＼ 2 ^ 5的值是 【12】
cos2(ab)
53x13、与数学表达式对应的Visual Basic表达式是 【13】 。
14、有下面一段程序，从文本框中输入数据，如果该数据满足条件：除以4余1；除以5余2，则输
出，否则，将焦点定位在文本框中，并清除文本框的内容。 Private Sub Command1_Click() X=Val(Text1.Text) If Print X Else
Text1.Text=‖‖
End If End Sub
15、下列语句的输出结果是。
Print Format$(1258.6, "000,000.00")
16、执行下面的程序段，x的值为。
Private Sub Command1_Click() For i=1 To 9 a=a + i Next i x=Val(i) MsgBox x End Sub
17、要使标签的背景样式为不透明，应将BackStyle属性设置为
18、将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是
19、当对象得到焦点时，会触发 20、为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的属性设置为 【20-2】 。
21、在修改列表框内容时，RemoveItem方法的作用是。
三、选择题
1、 Visual Basic 6.0分为3种版本，不属于这3种版本的是
A) 学习版 B) 专业版
C) 企业版 D) 业余版 2、下列可以启动Visual Basic的方法是
A) 打开―我的电脑‖，找到存放Visual Basic所在系统文件的硬盘及文件夹，双击―VB6.exe‖
图标
B) 在DOS窗口中，键入Visual Basic的路径，执行Visual Basic可执行文件 C) 利用―开始‖菜单中的―程序‖命令可启动Visual Basic D) A) 和C)
3、下列方法中不能退出Visual Basic的是
本文来源：http://www.gbppp.com/jd/467684/
推荐访问:vb试题及答案 计算机二级考试vb试题