VB程序化设计复习题.doc

考试题题型：
单项选择题（30小题，共30分）
填空题（20小题，共20分）
编程题（4道题，共36分）
程序填空（2个程序，14个空，共14分）
选择题
1.具有___C_______特点的程序设计称为面向对象的程序设计。
A.链接、嵌入、动态数据交换 B.可视化、结构化C.封装性、继承性、多态性 D.只包含顺序、选择、循环三种结构
2.下列关于对象中属性和方法的定义中，不正确的是____ D ______。
A.属性，就是类中所定义的数据 B.属性是客观实体所具有的性质的抽象C.方法，就是对象所能执行的操作 D.方法是用于调用对象以外的函数
3.在VB集成开发环境中，启动VB后则显示"新建工程"对话框，此时默认的选项是__d________。
A.VB 应用程序向导 B. ActivX EXE C. ActivX DLL D.标准 EXE
4.VB使用“工程管理”用来建立一个应用程序的所有文件，一般一个工程至少应含有____b______。
A.标准模块文件和类模块文件 B.工程文件和窗体文件C.工程文件和类模块文件 D.工程文件和标准模块文件
5.下列设置中，可以使命令按钮Command1处于不可见状态的是__d________。
A.Command1.Enabled=True B.Command1.Enabled=FalseC.Command1Visible=True D.Command1.Visible=False
6.下列设置中，可以使计时器Timer1停止计时的是______d____。
A.Timer1.Locked=True B.Timer1.Enabled=TrueC.Timer1.Interval=1 D.Timer1.Interval=0
7.文本框的默认属性是_____d_____。
A.Caption B.Name C.Enabled D.Text
8.复选框处于选中状态时，它的Value属性值是___d_______。
A.False B.True C.0 D.1
9.使用______c____方法，可以删除列表框中的一个项目。
A.RemoveItem B.Remove C.Clear D.Move
10.改变显示在窗体标题栏中的标题，使用的属性是___c_______。
A.(名称) B.FontName C.Caption D.Text
11.设置__a________属性，可以使图片显示在图片框或图像框中。
A.Picture B.Image C.Icon D.DownPicture
12.下列不能接收焦点的控件是___b_______。
A.命令按钮 B.标签 C.文本框 D.单选按钮
13.程序运行期间，用鼠标单击滚动条上滑块两侧的空白处时，滑块的移动量是d______。
A.Min B.Max C.SmallChange D.LargeChange
14.在菜单设计窗口，如果希望为子菜单项添加分隔线，则可在菜单中插入一个菜单项，将该菜单项的标题属性设置为____c______。
A.除号(/) B.乘号(*) C.减号(-) D.加号(+)
15.关键字______d____用于定义变体类型数据。
A.Double B.Currency C.Boolean D.Variant
16.整数除法的运算符是________c_。
A.% B./ C.\ D.Mod
17.运算符"&"是______b____运算。
A.逻辑与 B.字符串连接 C.关系 D.算术
18.多分支选择结构的Case语句，写法错误的是___c_______。
A.Case 1，5，7，9 B.Case 1 To 5 C.Case 5 To 1 D.Case Is<"max"
19.用于退出for-next循环结构的语句是_____a_____。
A.Exit for B.End Next C.Exit D.End for
20.下列程序运行后，单击Command1按钮，标签Label1中显示的内容是_____a_____。
Option Base 1
Private Sub Command1_Click()
Dim a(3， 4) As Integer， i As Integer， j As Integer
For i = 1 To 3
For j = 1 To 4
a(i， j) = a(i， j) + i + j
Next j
Next i
Label1 = a(3， 4)
End Sub
A.7 B.12 C.16 D.5
21.对窗体编写如下事件过程。程序运行后，在窗体上单击鼠标右键，则输出结果为____c______。
Private Sub Form_MouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single)
If Button = 2 Then Print "AA";
End Sub
Private Sub Form_MouseUp(Button As Integer， Shift As Integer， X As Single， Y As Single)
Print "BB";
End Sub
A.BBAA B.AABB C.AA D.BB
22.下列语句中，能够暂时隐藏窗体Form1，但不释放它所占用的内存空间的是__d________。
A.Unload Form1 B.Form1.Unload C.Hide Form1 D.Form1.Hide

23.在窗体上有一个文本框控件，名称为Text1；一个命令按钮，名称为Command1，并有以下事件过程。程序运行后，单击Command1按钮，在文本框中显示的内容是__c________.
Private Sub Command1_Click()
Dim i As Integer，n As Integer
For i=0 To 50
i=i+3
n=n+1
If i>10 Then Exit For
Next
Text1.Text=Str(n)
End Sub
A.2 B.4 C.3 D.5
24.设窗体中包含1个命令按钮-Command1，1个标签-Label1；并有以下的事件过程。程序运行后，单击Command1按钮，标签中显示的内容是______c____。
Private Sub Command1_Click()
Dim i As Integer，n As Integer
i=1
n=0
do while i<10
n=n+i
i=i*(i+1)
loop
label1=i & "--" & n
End Sub
A.6—3 B.24—9 C.42—9 D.6--9
25设窗体中包含1个命令按钮-Command1，1个标签-Label1；并有以下的事件过程。程序运行后，单击Command1按钮，标签中显示的内容是____b__
Private Sub Command1_Click()
Dim i As Integer， j As Integer， n As Integer
For i = 1 To 3
For j = i To 4
n = n + i + j
Next j
Next i
Label1 = n
End Sub
A.30 B.42 C.24 D.26
26-27在窗体上画两个标签，名称分别为Label1和Label2，Caption属性分别为“数值”及空白；然后再画一个名称为Hscroll1的水平滚动条，其Min的值为0，Max的值为100。程序运行后，如果单击滚动条两端的箭头，则在标签Label2中显示滚动条的值。请将程序填完全。
Private Sub Hscroll1_ ______b____() [26]
Label2.Caption=Hscroll1.___c_______ [27]
End Sub
[26]A.LostFocus B.Change C.KeyPress D.Scroll
[27]A.SmallChange B.LargeChange C.Value D.Width
28-29.下列程序是：在窗体初始化事件中，通过通用对话框的打开文件对话框只列出扩展名为.DAT的文件，而后选择文件“A:\DATA.DAT”，以顺序文件方式打开完成输出操作；单击命令按钮（Command1），将文本框（Text1）中的内容写入该顺序文件；单击命令按钮（Command2），关闭打开的顺序文件，结束程序运行。完善下列程序，实现上述功能。
Private Sub Form_Initialize()
CommonDialog1.Filter= "数据文件（*.DAT）|*.DAT"
CommonDialog1._______c______[28]
Open ________b_____[29]For Output As #1
End Sub

Private Sub Command1_Click)
Print #1，Text1.Text
End Sub

Private Sub Command2_Click()
Close #1
END
End Sub
[28]A.Action = 2 B.Action = 3 C.ShowOpen D.ShowSave
[29]A.CommonDialog1.FileTitle B.CommonDialog1.FileName
C.CommonDialog1.Filter D.CommonDialog1.Title
30.在窗体上画一个标签名称分别为 Label1 和 Label2，再画一个命令按钮，名称为 Command1程序运行时，单击 Command1 按钮，在 Label1 上显示系统时间、清除标签2上显示的信息并使 Command1 按钮不响应事件(呈暗淡色)。请将程序填完全。
Private Sub Command1_click( )
Label1.Caption =time$
Label2.Caption=""
Command1.___A__________=false
End Sub
A.Enabled B.Caption C.Default D.Cancel
31.VB是面向GUI的可视化编程语言，它采用的程序设计方法是___C__。
A.面向对象、顺序驱动 B.面向过程、事件驱动C.面向对象、事件驱动 D.面向过程、顺序驱动
32.下列关于对象和类的说法中，正确的是_________B____。
A.包含参数调用和返回值的函数就具有对象的一切特点。B.在应用领域中，有意义的任何事物都可以称为对象。
C.对象是无法实现数据封装的。D.在应用领域中，有意义的任何事物都可以称为类。
33.在设计界面时，若双击窗体中的某个控件对象，打开的窗口是__A__。
A.代码窗口 B.项目（工程）窗口 C.属性窗口 D.立即窗口
34.每个工程都包含一个以____C________为扩展名的工程文件，这个文件用来管理工程中所有的文件。
A..EXE B..BAS C. .vbp D. .frm
35.鼠标指针指示工具箱中某一控件上显示“picture BOX”，该控件是__D_____。
A.文件框 B.图像框 C.组合框 D.图片框
36.VB窗体设计器的主要功能是_____D________。
A.显示文字 B. 画图 C.编写源程序代码 D.建立用户界面
37.文本框的属性不包括_______A______。
A. caption B. text C. name D. top
38.设置命令按钮的____B_____属性值为False，可以使命令按钮处于不可用状态。
A. Enabled B. Value C. Default D. Cancel
39.下列设置中，可以使计时器Timer1停止计时的是________D_____。
A.Timer1.Locked=True B.Timer1.Locked=False
C.Timer1.Enabled=True D.Timer1.Enabled=False
40．标签的默认属性是_____________。
A.Caption B.Text C.Name D.Top
41.为了将复选框(名称为Check1)设置为选中状态，应该使用______B_____语句。
A.Check1.Value=True B.Check1.Value=0
C.Check1.Value=1 D.Check1.Value=False
42.使用_______B______方法，可以清除列表框中指定的一个项目。
A.RemoveItem B.Clear C.Remove D.Move
43.图片框控件(PictureBox)与图像控件(Image)相比，_________B___。
A.功能强，并且占用系统资源较少 B.功能强，但占用系统资源较多
C.功能弱，但占用系统资源较少 D.功能弱，并且占用系统资源较多
44.下列语句中，能够把焦点移到文本框控件Text1上的是_____C________。
A.Text1.GetFocus B.Text1.GetFocus=TrueC.Text1.SetFocus D.Text1.SetFocus=True
45.下列操作中，能够触发滚动条的Scroll事件的是_____D________。
A.单击滚动条两端的滚动箭头 B.单击滚动条上滑块两侧的空白处C.单击滚动条上的滑块 D.拖动滚动条上的滑块
46.显示弹出式菜单必须使用专门的方法是_______B______。
A.upmenu B.popupmenu C.popmenu D.menu
47.在VB中，字符串"天津2003Test"的长度和需要的存储空间字节数为_____D__。
A.12和10 B.10和12 C.12和12 D.10和20
48.在VB中，声明一个变量为局部变量（私有变量）应该用_______B___关键字。
A.Dim B.Private C.Static D.Public
49.在VB中，逻辑值True转换成整数时，其值为_________B____。
A.1 B.-1 C.0 D.任何非0值
50.设a%=20，b$="30"，则表达式a & b是________D_____。
A.算术表达式 B.逻辑表达式 C.关系表达式 D.字符表达式
51.设a="Visual BASIC"，下面使b="BASIC"的语句是_______C______。
A.b=Left$(a，8，5) B.b=Right$(a，5，5)C.b=Mid$(a，8，5) D.b=InStr(a，8)
52.进行逻辑运算时，只要有一个为假，结果即为假的逻辑运算符是___A___。
A.And B.Eqv C.Xor D.Or
53.设a=10，则执行语句a=IIf(a，a+1，a-1)后，a的值为______C_______。
A.10 B.9 C.11 D.0
54.多分支选择结构中，Select Case语句的“测试表达式“为_______D______。
A.只能是数值表达式 B.只能是字符串表达式
C.可以是关系表达式或逻辑表达式 D.可以是数值表达式或字符串表达式
55.x初值为0，下列循环语句执行后，循环体执行的次数为________D_____。
i=1
do while x>20
x=x+i
i=i+1
loop
A.5 次 B.4 次 C.0 次 D.无数次
56.下列程序运行后，单击Command1按钮，标签Label1中显示的内容是____A___。
Option Base 0
Private Sub Command1_Click()
Dim a(5) As Integer， i As Integer， n As Integer
For i = 1 To 5
a(i) = i
n = n & a(i)
Next i
Label1 = n
End Sub
A. 12345 B. 15 C. 55 D.程序报错，Label1不能得出结果
57.下面的程序运行后，输出结果为____C_________。
Option Base 1
Private Sub form_Click_____________
x = Array(10， 25， 15， 20， 20)
p = x(1)
For i = 2 To 5
If x(i) > p Then
p = x(i)
s = s + p
End If
Next i
Print p; s
End Sub
A.25 90 B.25 80 C.25 25 D.25 20
58.下面程序的功能是: 。请将程序补充完整。注意: 不得增行或删行， 也不得更改程序的结构!
Private Sub Command1_Click()
Dim i As Integer， j As Integer， cr As Integer
Dim ok As Boolean
cr = 0
For i = 100 To 200
ok = False
j = 2
Do while ______B_______
If i Mod j = 0 Then exit Do
If j = i \ 2 Then ok = True
j=j+1
loop
If ok Then
cr = cr + 1
Me.Print i;
If cr Mod 5 = 0 Then Print
End If
Next i
End Sub
A.j>i-1 B.j<=i\2 C.j=i-1 D.j<>i\2
59.进行界面设计时，若双击工程资源管理器中的某个窗体名，打开的窗口是____A______。
A.对象窗口 B.代码窗口 C.属性窗口 D.立即窗口
60.单选按钮处于选中状态时，它的Value属性值是_____B_____。
A.False B.True C.0 D.1
61.在菜单设计窗口，如果希望菜单项的某一字母为热键，则可在该字母前加的符号是____D______。
A.@ B.# C.^ D.&
62.Visual Basic的货币型数据占____B_____字节内存空间。
A.4 B.8 C.16 D.32
63.参与逻辑运算的两个量中，只要有一个为假，结果即为假的逻辑运算符是__C_______。
A.Xor B.Eqv C.And D.Or
64.x初值为0，则下列循环语句执行后，x的值等于_____A____。
i=1
do until x>20
x=x+i
i=i+2
loop
A.25 B.21 C.22 D.27
65.用于退出for-next循环结构的语句是___A______。
A. Exit for B. End Next C.Exit D.End for
66.在设定Option Base 1 后，经Dim arr(3，4) As Integer定义的数组arr含有的元素个数为____B_____
A.12 B.20 C.16 D.9
67.设有如下窗体事件
Option Base 0
Private Sub Form_Click()
Dim a
Dim i As Integer
a=Array(1，2，3，4，5，6，7，8，9)
For i=0 To 3
Print a(5-i);
Next
End Sub
程序运行后，单击窗体，则在窗体内显示的结果是___D______。
A.5 4 3 2 B.7 6 5 4 C.4 3 2 1 D.6 5 4 3
68.单击命令按钮command1后，下列程序的运行结果为_____A____。
Option Base 1
Private Sub Command1_Click()
Dim a(5)， i
For i = 1 To 5
a(i) = i * i
Next i
For Each i In a
Print i;
Next
End Sub
A.1 4 9 16 25 B.1 2 3 4 5 C.25 16 9 4 1 D.5 4 3 2 1
69.对窗体编写如下事件过程。程序运行后，在窗体上单击鼠标左键，则输出结果为______C___。
Private Sub Form_MouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single)
Print "AA";
End Sub

Private Sub Form_MouseUp(Button As Integer， Shift As Integer， X As Single， Y As Single)
If Button = 1 Then Print "BB";
End Sub
A.BBAA B.AABB C.AA D.BB
70.能够释放窗体Form1所占用的内存空间的是___A______。
A.Unload Form1 B.Form1.Unload C.Hide Form1 D.Form1.Hide
71.窗体上有一文本框控件Text1；一个命令按钮，名称为Command1，并有以下事件过程。程序运行后，单击Command1按钮，在文本框中显示的内容是____C_____。
Private Sub Command1_Click()
Dim i As Integer，n As Interger
For i=0 To 50
i=i+3
n=n+1
If i>10 Then Exit For
Next
Text1.Text=Str(n)
End Sub
A.2 B.4 C.3 D.5
72.设窗体中包含1个命令按钮-Command1，1个标签-Label1；并有以下的事件过程。程序运行后，单击Command1按钮，标签中显示的内容是____C_____。
Private Sub Command1_Click()
Dim i As Integer，n As Interger
i=1
n=0
do while i<10
n=n+i
i=i*(i+1)
loop
label1=i & "--" & n
End Sub
A.6—3 B.24—9 C.42—9 D.6—9
73-74.单击命令按钮，下列程序代码的执行结果为：
Dim a As Integer， b As Integer， c As Integer
Private Sub Command1_Click()
a = 2 : b = 4 : c=16
Call proc_1(a，b)
Print "a="; a， "b="; b， "c="; c '显示的结果是73_____C____
Call proc_2(a，b)
Print "a="; a， "b="; b， "c="; c '显示的结果是74____D_____
End Sub

Public Sub proc_1(x As Integer， y As Integer)
x = 2 * x: y = y + 2: c = x + y
End Sub
Public Sub proc_2(x As Integer， ByVal y As Integer)
Dim c As Integer
x = 2 * x: y = y + 2: c = x + y
End Sub
[73]A.a=4 b=6 c=10 B.a=2 b=4 c=6
C.a=4 b=6 c=16 D.a=4 b=4 c=10
[74]A.a=4 b=4 c=10 B.a=4 b=8 c=16
C.a=8 b=8 c=10 D.a=8 b=6 c=10
75.VB是一种面向图形用户界面的可视化编程语言，所采用的程序设计方法是____A_____。
A.面向对象、事件驱动 B.面向对象、顺序驱动
C.面向过程、事件驱动 D.面向过程、顺序驱动
76.在进入VB集成开发环境的过程中，启动VB后则显示"新建工程"对话框，此时默认的选项是____C_____。
A.ActivX DLL B.ActivX EXE C.标准 EXE D.VB 应用程序向导
77.使用____C_____方法，可以同时清除列表框的所有项目。
A.RemoveItem B.Remove C.Clear D.Move
78.用于退出do-loop循环结构的语句是____A_____。
A. Exit do B. End Next C.Exit D.End do
79.对窗体编写如下事件过程。程序运行后，在窗体上单击鼠标右键，则输出结果为_____C____。
Private Sub Form_MouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single)
Print "AA";
End Sub

Private Sub Form_MouseUp(Button As Integer， Shift As Integer， X As Single， Y As Single)
If Button = 1 Then Print "BB";
End Sub
A.BBAA B.AABB C.AA D.BB
80.复选框处于选中状态时，它的Value属性值是_____D_____。
A.False B.True C.0 D.1

填空题
1.VB语言中，菜单分为_______下拉式菜单__和_____弹出式菜单_____________。
2.面向对象系统的三个基本特性是_____封装性____继承性__________和___多态性_________。
3.设在窗体上有一通用对话框Commondialog1，为建立一个“打开文件”对话框，应把_________ Action _________属性设置为_______1_____；或者使用____CommonDialog1.ShowOpen________方法。
4.设在窗体上有一通用对话框Commondialog1，为建立一个“保存文件”对话框，应把_________ Action _________属性设置为_____2______；或者使用_____ CommonDialog1.ShowSave ______方法。
5.设在窗体上有一通用对话框Commondialog1，为建立一个“选择颜色”对话框，应把________ Action __________属性设置为____3_______；或者使用____CommonDialog1.ShowColor________方法。
6.设在窗体上有一通用对话框Commondialog1，为建立一个“打印”对话框，应把____ Action ______________属性设置为_____5______；或者使用_____CommonDialog1.ShowPrinter_______方法。
7.命令按钮的______ Enable _______属性为True时，表示该控件有效，即能够响应用户的操作。
8.能够释放窗体Form1所占用的内存空间的语句是_________ Unload Form1_________。
9.能够隐藏窗体Form1，但不释放Form1所占用的内存空间的语句是______ Form1.Hide ____________。
10.能够加载窗体，并显示窗体Form1的语句是________Form1.show __________。
11.能够加载窗体，但不显示窗体Form1的语句是_________ load Form1 _________。
12.若无语句option base 1，但有定义Dim x(-2 to 4，3) as Integer，则函数UBound(x，1)的值为__4_____。
13.若无语句option base 1，但有定义Dim x(-2 to 4，3) as Integer，则函数UBound(x，2)的值为___3____。
14.若无语句option base 1，但有定义Dim x(-2 to 4，3) as Integer，则函数LBound(x，1)的值为___-2____。
15.若无语句option base 1，但有定义Dim x(-2 to 4，3) as Integer，则函数LBound(x，2)的值为___1____。
16.如果要从顺序文件中读数据，则打开方式应为_______ input _________。
17.如果要向顺序文件中以覆盖的方式写数据，则打开方式应为______Output__________。
18.如果要向顺序文件中以追加的方式写数据，则打开方式应为______Append__________。
19.关键字_______Boolean___________用于定义布尔类型数据。
20.关键字________ Variant __________用于定义变体类型数据。
21.XOR是逻辑________异或__________运算符。
22.IMP是逻辑_________蕴含__运算符。
23.EQV是逻辑_________相等_________运算符。
24.表示变量x既是5的倍数，也是7的倍数的逻辑表达式为______(x mod 5=0)and(x mod 7=0)____________。
25.在VB语言中，窗体文件的扩展名为________ .frm __________。
26.在VB语言中，工程文件的扩展名为_________.vbp_________。
27.向随机文件或二进制文件中写入数据所用的命令关键字为____ put#_________。
28.从随机文件或二进制文件中读出数据所用的命令关键字为______Input
29.函数过程（或子程序过程）直接或间接地调用自身称为___递归调用____________。
30.程序运行期间，用鼠标单击滚动条上滑块两侧的空白处时，滑块的移动量是滚动条控件的___ LargeChange ______属性。
31.程序运行期间，用鼠标单击滚动条上两端的箭头时，滑块的移动量是滚动条控件的___delargenchange______属性。
32.设置数组下标的默认下界为1的语句是________ Option Base 1
__________。
33.设置数组下标的默认下界为0的语句是_______ Option Base 0_____
34.用关键字sub定义的过程称为_________子程序过程_________。
35.用关键字function定义的过程称为_______函数过程___________。
36.鼠标指针置于工具箱窗口中的某一个控件图标上时，就会在工具提示窗口上显示出相应的类型名。如果显示 "OptionButton"，该控件是_______单选按钮控件___________。
37.鼠标指针置于工具箱窗口中的某一个控件图标上时，就会在工具提示窗口上显示出相应的类型名。如果显示 " picture BOX "，该控件是_______图片框___________。
38.文本框控件的默认属性是____text______________。
39.标签控件的默认属性是______Caption____________。
40.VB窗体设计器的主要功能是_______建立用户界面___________。
41.两个操作数取值相同为“假”，不同为“真”的运算符是______ Xor ________。
42.两个操作数中有一个为“假”，结果即为“假”，两个都为“真”，结果才为“真”的运算符是________ And_______。
43.在程序中，要在图片框或图像框中加载图片，可用函数____ LoadPicture _________。
44.有一名为menuItem的菜单项，为了在程序运行时使该菜单项失效（即不响应用户的操作），应使用的语句为________ menuitem.enable=false __________。
45.程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是____ scroll ____。
46.在VB中，字符串"天津2003Test"的长度为____10________。
47.在VB中，字符串"天津2003Test"所占内存空间的字节数为______12______。
48.能够表示当整型变量x是奇数时为真的VB表达式为_______ x mod 2=1___________。
49.数学表达式写成VB表达式为_______ sin(45/180*3.14159)+sqr(ln(3*x^5)+6*Exp(x))___________。
50.从结构化程序设计角度看，程序的控制结构分为___顺序结构________、_____选择结构______和_____循环结构_______。
51.鼠标指针置于工具箱窗口中的某一个控件图标上时，就会在工具提示窗口上显示出相应的类型名。如果显示"Image"，该控件是________图像框__________。
52.在VB语言中，提前结束子程序过程的执行，需要使用命令____end sub___________。
53.在VB语言中，提前结束函数过程的执行，需要使用命令_______exit sub________。
54.VB程序中的对话框分为____预定义对话框______________、__________自定义对话框_______和________通用对话框_________。
55.表达式123 & mid(“123456”，3，2)的值是_____12334______。
56.表达式123 + mid(“123456”，3，2)的值是______157_____。
57.根据文件中数据存取方式的不同，可以将数据文件分为_______顺序文件_______、_____随机文件_________和_______二进制文件________。
58.从结构化程序设计角度看，程序的控制结构分为______顺序结构_________、____选择结构__________和______循环结构________。
59.在应用领域中，任何有意义的事物称为________实体_________。
60.在VB语言中，用于设计菜单和菜单项的工具是______菜单编辑器_________。
61.定义过程或函数时，形参之前有关键字_______ byval __________，表示按参数值传递数据。
62.名称属性相同的同类型控件称为_______控件数组__________。
63.表示列表框中选项数目