VB程序设计期末复习要点

《VB程序设计》期末复习要点
一、重点复习内容：
通过本课程的学习，要求重点掌握：
1. VB窗体的属性、事件和方法，常用的控件的公用属性和常用标准控件。

2. VB常用的数据类型，常量的定义，变量的命名，变量的声明及作用域。

3. 常用的表达式。

4. For…Next循环，Do…Loop循环,If…Then…Else条件判断语句，Select Case语句。

5. 一维数组、二维数组的声明与存取。

6. 过程的声明与调用。

7. 菜单编辑器、输入对话框、消息输出对话框及系统对话框的使用。

二、考试题型及分值：
1. 判断题共10题（每题1分，共10分）
2. 单项选择题10题（每题2分，共30分）
3. 填空题10空（每空2分，共20分）
4. 阅读程序，写出程序运行结果 2题（每题10分，共20分）
5. 程序填空 ( 共20分)
三、例题精解
●判断题（正确的打√，错误的打×）
（）1.VB对象就是窗体和控件。

（）2.事件是VB对象可以响应的用户操作。

（）3.文本框和标签框通过同一属性在窗体上显示文字。

（）4.For…Next循环结构的默认步长为1。

（）5.要实现同样的循环控制，在Do While…Loop和DO…Loop While循环结构中给定的循环条件是一样的。

（）6.对象的属性都可以在程序中通过语句设置。

（）7.能够改变多项选择框中背景颜色的属性是BackColor。

（）8.将焦点主动设置到指定的控件或窗体上，应采用Setfocus方法。

（）9.当图片框Picturebox控件的Autosize属性为true时，超过图片框尺寸的图片其超过部分会被图片框截去。

（）10.使用Open语句可以创建新的顺序文件。

（）11.要在窗体上添加控件，从工具箱中将控件拖到窗体上即可。

（）12.可以把属性看作是一个对象的性质。

（）13.TextBox与Label有许多共同的特点，它们都能显示和输入文字。

（）14.所有对象的属性都可以在属性窗口中设定。

（）15.标签没有change事件和setFocus方法。

（）16.方法Form1.show与Form1.visible=True是等效的。

（）17.Msgbox函数建立的信息框既能显示信息又能输入用户的信息。

（）18.Do…Loop Until语句实现循环时，不管条件真假，首先无条件地执
行一次循环。

（）19.函数Str(23)与Str(-23)的值的长度相同。

（）20.变量名的第一个字符必须是字母。

（）21.每个Vb对象都有name属性。

（）22.语句Command1.visible=false 与Command1.enabled=false 是等价的。

（）23.InputBox函数和MsgBox函数一样，返回的是字符串。

（）24.改变窗体的标题也就是改变其属性窗口中的name属性。

（）25.文本框控件有Caption属性。

（）26.在Visual Basic中，向过程传递参数时，按地址传递参数是缺省的。

（）27.Do…Loop until语句实现循环时，只要条件是假，循环将一直进行下去。

（）28.按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。

（）29.在工具箱内双击命令按钮图标，便会在窗体上建立一个命令按钮。

（）30.单项选择和多项选择控件都具有Value属性，它们的数据类型都是布尔类型。

●单项选择题
1. 如果要改变窗体的标题,需要设置窗体对象的（）属性。

A、Caption
B、Name
C、BorderStyle
D、BackColor
2.若要求从文本框中输入密码时在文本框中只显示 * 号，则应在此文本框的属性窗口中设置（）。

A、Text属性值为 *
B、Caption属性值为 *
C、Password属性值为空
D、Passwordchar属性值为 *
3.下面哪一种变量名是错误的（）。

A、A_B
B、a123
C、abc
D、a.1
4.下面哪一个关键字表示声明的变量可以在任何窗体中使用（）。

A、Dim
B、Public
C、Const
D、Private
5.在文本框的属性中，用于设定文本框最多可接受字符数的属性是（）。

A、Autosize
B、Passwordchar
C、Text
D、Maxlength
6.要使Listbox可以单击鼠标或按空格键来实现复选，属性Multiselect的值应设为（）。

A、0
B、1
C、2
D、3
7.使文本框能显示滚动条，必须首先设置的属性是（）。

A、 AutoSize
B、 Alignment
C、 Multiline
D、 Scrollbars
8.对象可以识别和响应的某些操行为称为（）。

A、属性
B、方法
C、继承
D、事件
9.以下关于窗体的描述，正确的是（）。

A、只有用于启动的窗体可以有菜单。

B、窗体事件和窗体中所有控件事件的代码都放在窗体文件中。

C、窗体的名字和存盘的窗体文件名必须相同。

D 、开始运行时窗体的位置只能是设计阶段时显示的位置。

10.将通用对话框控件CommonDialog1的类型设置为“颜色”对话框，可以调用
该对话框的（ ）方法。

A 、 Load
B 、 Show
C 、 ShowColor
D 、 ShowSave
11.下列变量命名正确的是（ ）。

A 、myfile
B 、1vb
C 、page ＠2
D 、cmd..1
12、以下可以构成语句一项是（ ）。

A 、对象名.属性名
B 、对象名.方法名
C 、对象名.事件名
D 、对象名.函数名
13.在下图１的窗体中，没有采用的控件是（ ）。

A 、文本框
、标签框 C 、框架
、命令按钮
14.要改变文本框中显示的文本，可以在属性窗口中改变（ ）属性。

A 、Caption
B 、Name
C 、Text
D 、Label
15.若要求从文本框中输入密码时在文本框中只显示＃号，则应在此文本框的属
性窗口中设置（ ）。

A 、Text 属性值为＃
B 、Caption 属性值为＃
C 、Passwordchar 属性值为＃
D 、Passwordchar 属性值为真
16.如上图２，在设计菜单时，要求允许在菜单项的左边设置打勾标记，下面哪
种论述是正确的？（ ）
A 、在标题项中输入＆然后打勾
B 、在索引项中输入“√”
C 、在有效项中输人“√”
D 、在复选项中输入“√”
17.VB 为命令按钮提供的Cancel 属性是（ ）。

A 、用来指定命令按钮是否为窗体的“取消”按钮
B 、用来指定命令按钮的功能是停止一个程序的运行
C 、用来指定命令按钮的功能是关闭一个运行程序
D 、用来指定命令按钮的功能是中断一个程序的运行
18.VB 提供的多项选择控件（CheckBox ）具有功能是（ ）。

A 、多重选择
B 、单一选择
C 、多项选择
D 、选择一次
19. 将通用对话框控件CommonDialog1的类型设置为“打开”对话框，可调用该
对话框的（ ）方法。

A 、Load
B 、Show
C 、ShowColor
D 、ShowOpen
20.调试程序时，要执行单个语句或一组语句时，需要处于（ ）窗口。

A 、立即
B 、监视
C 、Code
D 、中断
21.以下哪项变量名是合法的？（）
A、b&C
B、*B2#
C、City_name
D、15A
22.变量A%的类型是（）。

A、 Integer
B、 Single
C、 String
D、 Boolean
23.设定文本框中是否可以接受多行文本要用到（）属性。

A、Maxlength
B、Height
C、Multiline
D、Text
24.改变控件在窗体中的上下位置应修改控件的（）属性。

A、Top
B、Left
C、Width
D、Height
25.循环结构 For i！=1 to 10 step 1.5 共执行几次（）。

A、 6
B、 7
C、 9
D、 10
26.定义数组 Array(1 to 5,5) 后，下列哪一个数组元素不存在（）。

A、 Array(1,1)
B、 Array(1,0)
C、 Arry(0,1)
D、 Array(5,5)
27.有子程序定义 Public Sub aaa(a as Integer, b as Single),正确的调用形式是（）。

A、Call aaa(,)
B、Call sub(1,1.2)
C、aaa 1,1.2
D、sub 1,1.2
28.Line(100,100)–step(300,300)将在窗体（）画一直线。

A、（100，100）到（300，300）
B、（100，100）到（400，400）
C、（100，100）到（200，200）
D、（200，200）到（300，300）
29.菜单控件不同于其它VB控件，它只有一个事件——（）。

Ａ、Click B、KeyDown C、KeyPress D、LostFocus
30.将通用对话框CommonDialog1的类型设置成“另存为”对话框，可调用该对话框的（）方法。

A、Showopen
B、ShowSave
C、ShowColor
D、ShowFont
31.当使用上下文相关帮助时，选择要帮助的内容，然后按（），
就可出现MSDN窗口直接显示所需的帮助信息。

A、 Help
B、 F10
C、 Esc
D、 F1
32.当运行程序时，系统会自动执行启动窗体的（）事件过程。

A、Load
B、Click
C、UnLoad
D、GotFocus
33.不论何控件，共同具有的是（）属性。

A、Text
B、Name
C、ForeColor
D、Caption
34. 当文本框的内容改变时，引发的事件是（）。

A、GotFocus
B、Load
C、Change
D、UnLoad
35.菜单控件不同于其它VB控件，它只有一个事件 ----（）。

Ａ、Click B、KeyDown C、KeyPress D、LostFocus
●填空题
1、2003 MOD 4 = ; SQR(25)= 。

2、Line(100,100)–Step(300,300)将在窗体到画一直线。

3、Do…Loop Until 循环结构中，当条件为时结束循环。

4、VB中的变量按其作用域可分为：，和
变量。

5、语句Exit Sub的作用是：。

6、要设置命令按钮的背景色，首先必须使它的Style属性值设置为。

7、ABS(－0.98)= ； INT(45.02)= 。

8、将窗体级变量MyText声明为字符串变量的语句是。

9、常用的循环结构有：和。

10、VB的表达式主要有：算术运算表达式、、关系表达式、和对象属性表达式。

11、在图片控件Picturebox 的属性中，可以决定控件是否自动改变大小的属性是，若使Picturebox控件可以自动改变大小，该属性值应为。

12、a和b中有且只有一个为0，用表达式表示为。

13.VB的窗体和控件是具有自己的、和的对象。

14.声明一个值为3.14的常量Pi的语句为。

15.把条件1 x<12写成VB关系表达式为。

16.“Visual”& “Basic”运算结果为。

17.要改变控件的宽度，应修改该控件的属性。

18.用于获取字符串长度的函数是。

19.Dim b1,b2 as boolean语句显式声明变量b1是变量，b2是
变量。

20.函数Str(-459.65)的值为。

●读程序题，写出程序运行结果
1.
Dim Sub Commandl_Click( )
Textl.Text = “努力”
End Sub
Dim Sub Command2_Click( )
Textl.Text = “学习”
End Sub
单击Command2按钮，在文本框中显示__________________________。

2.
Private Sub Form_Click()
score = Int(Rnd * 10) + 30
Select Case score
Case Is < 10
A$ = "F"
Case 10 To 19
A$ = "D"
Case 20 To 29
A$ = "C"
Case 30 To 39
A$ = "B"
Case Else
A$ = "A"
End Select
Print A$
End Sub
当VB执行上面的语句后，输出的结果是：__________________________。

3．
Private Sub Form_Click( )
Static Sum As Integer
For I = l To 10
Sum = Sum+ I
Next I
Print Sum
End Sub
运行结果: 。

4．
Private Sub Commandl_Click( )
Textl.Text= “VB”
End Sub
Private Sub Command2_C1ick( )
Textl.Text = “程序”
End Sub
单击Command2按钮，又单击Command1按钮，在文本框中显示。

5.
Private Sub Form_Click()
Dim b As Integer, k As Integer
b = 1
For k = 1 To 5
b = b * k
If b >= 15 Then
Exit For
Else
k = k + 1
End If
Next k
Print k, b
End Sub
运行结果：__________________ 。

6.
Private Sub Form_ load ( )
MsgBox “学习”
End Sub
运行结果：__________________ 。

●程序填空( 共20分)
1.窗体中有两个命令按钮：“显示”（控件名为cmdDisplay）和“测试”（控件名为cmdTest）。

单击“测试”按钮时，执行如下事件过程，此事件过程的功能是：当在窗体中出现消息框并选中其中的“确定”按钮时，隐藏“显示”按钮，否则退出。

请填空。

Private Sub[ ]_Click( ) [1]
Answer = [ ] (“隐藏按钮”，l) [2]
if Answer = vbOK then
cmdDisplay.visible = [ ] [3]
Else
End
End if
End Sub
2.工程装入时弹出输入窗口，输入数据后关闭窗体。

Private Sub Form_ [ ] ( ) [4]
InputBox "请输入数据"
[ ] [5]
End Sub
3、程序填空
建立一个求和功能的窗体及程序，要求：
（1）窗体格式如下图所示。

（2） 对象属性表（请在下划线处补充填空）
（3） （4）
（5）
（6）
（7）
（8）
（9）
（10）
（11）
（12）
（13）
（14）
（15）
（16）
（17）
（18）
（19）
（20）
(3)求和程序：可执行从1到选取的数字之间的整数的累加运算。

(4)单击“总计”按钮，可执行从1到选取的数字之间的整数的累加运算，并显示在文本框中，文本框不允许直接输入数字。

(5)如果单击“结束”按钮，则终止程序。

程序代码如下（请填空）： 对象 属性 设定值 Form Name FrmSum (窗体) Caption _______________ (1)
Fontname 宋体 CommandButton Name cmdSumNumber Caption _______________ (2)
对象 属性 设定值 CommandButton Name CmdExit Caption _______________ (3) Textbox Name TxtResult （文本框） Alignment 0_左对齐 MultiLine True Enabled False Label Name LblNum (标签) Caption _________________ (4) Verticle scroll Bar Name VsbSum Max 100 Min 1 Value __________________(5)
Option Explicit
Private Sub CmdExit_Click() '单击“结束”按钮
__________________ (6)
End Sub
Private Sub ____________________(7)Click() '单击“总计”按钮 Dim N
Dim M
For N = 1 To__________________________ (8) Step 1
M = M + N
Next
TxtResult. _____________(9) = Str(M)
End Sub
Private Sub vsbSum_Change() '选取数字
LblNum = "选取数字：" + Str(vsbSum.Value)
End Sub
Private Sub vsbSum ______________ (10) ()
vsbSum_Change
End Sub
4.
上图3为运行后的VB 程序
（1）当按下[显示]按钮时，在文本框中显示“欢迎使用Visual Basic 6.0”， 按下[清屏]按钮时清除文本框中显示的内容，按下[退出]按钮时退出程序。

请补全相对应的单击事件代码。

Private Sub Command1_Click( ) '按下[显示]按钮
_____________________________ （1）
End Sub
Private Sub Command2_Click( ) '按下[清屏]按钮_____________________________ （2）
End Sub
Private Sub Command3_Click( ) '按下[退出]按钮__________ （3）
End Sub
（2）当选择字体外观和字体名称时，触发下面的事件，请补全代码。

Private Sub Check1_Click( ) '字体外观的多项选择 If Check1.Value = 1 Then
Text1.FontBold = _________ （4）'“粗体”被选中 Else
Text1.FontBold = False
End If
End Sub
Private Sub Check2_Click( )
If Check2.Value = ________ Then （5）'“斜体”被选中 Text1.FontItalic = True
___________ （6）
Text1. ____________ = False （7）
End If
End Sub
Private Sub Check3_Click( )
If Check3.Value = 1 Then
Text1.______________ = True （8）'“下划线”被选中 Else
Text1.FontUnderline = False
End If
End Sub
Private Sub Option1_Click( ) '字体名称选宋体
Text1.FontName = "宋体"
End Sub
Private Sub Option2_Click( )
Text1.FontName = "___________" （9）'字体名称选隶书End Sub
Private Sub Option3_Click( )
____________________ = “黑体” （10）'字体名称选黑体End Sub
5、当窗体装入时弹出消息框显示“欢迎你”三个字。

Private Sub Form_ [ ] ( ) [1]
[ ] “欢迎你” [2]
End Sub
6. 判断数值 10 所属的范围。

Dim Number
Number= [ ] ‘设置变量初值 [3] Select Case[ ] ‘判断Number 的值 [4] Case 1 To 5
Print “Between 1 and 5”
Case [ ] [5]
Print “Between 6 and 10”
Case Else
Pr int “Not between 1 and 10”
End Select
第11 页共11 页。