VB期末复习资料

“Visual Basic编程与应用”期末复习资料

第一章Visual Basic 6.0程序设计概述

重点掌握的内容：

对象与事件驱动

对象：世界上存在的任何具体的事物都可以称之为对象。对象是具体存在的，每个对象都是唯一的，有着自己独特的个性。

类：是具有相同性质的对象的集合。

对象和类的区别在于前者是具体的，而后者则是抽象的。

属性、方法和事件：VB采用一种所谓的事件驱动的编程机制，由用户来掌握程序的运行流向。可以把属性看作一个对象的性质，把方法看作对象的动作，把事件看作对象的响应。对象的属性的设置可以通过两种方法来实现：

（1）通过属性窗口直接设置；

（2）在程序代码中通过赋值实现，其格式为：

对象.属性=属性值

事件过程:

事件即对象相应的动作，是Visual Basic预先定义好的对象能识别的动作，如Click、DbClick、LostFocus等等。

事件过程是指附在该对象上的程序代码，是事件的处理程序，即用来完成事件发生后所要做的动作

创建 Visual Basic 应用程序有三个主要步骤：

1．创建应用程序界面。

2．设置属性。

3．编写代码。

窗体的属性和方法

窗体属性：

重点掌握：Name，Caption，BorderStyle，MinButton，MaxButton等属性。

Print方法: 在Visual Basic 中，Print方法是用来输出信息的专用过程，Print方法应重点掌握如下：

（1）语法结构

[对象].Print [表达式列表]

（2）表达式列表中的分隔符：

①若用分号（；）：输出的各表达式的值中间没有空格，数值型前留有一个符号位。例如 Print “1”；“2”；“3”

输出格式为 123

②若用逗号（，）：输出的各表达式的值将被分配在各个区段内，例如 Print “1”，“2”，“3”

输出格式为 1 2 3

③Spc(n)函数，用于产生空格，这里n为要插入的空格数，例如Print “1”；Spc(3)；“2”

输出格式为 1 2

④Tab(n)函数，用于将插入点定位在绝对列号上，这里n为列号。例如Print “1”；Tab(20)；“2”

输出格式为 1 2

自测与练习题

一、判断题

1、为了使一个控件在运行时不可见，应对该控件的Visable属性值设置为False。（）

2、当用Load命令将窗体装入内存时，一定触发窗体的load事件和Activate 事件。（）

3、面向对象程序设计是一种以对象为基础，由事件驱动对象执行的设计方法。（）

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

5、方法是VB对象可以响应的用户操作。（）

6、对象是基本的运行时实体，它既包括了数据（属性），也包括作用于对象的操作（方法）和对象的响应动作（）。

7、属性是用来描述和反映对象特征的参数，对象的所有属性都可以在属性窗口中设置。（）

8、VB中将一些通用的过程和函数编写好并封装作为方法供用户直接调用。（）

9、每个对象都有一系列预先定义好的事件，但要使对象能响应具体的事件，则应编写该对象相应的事件过程。（）

10、属性是VB对象性质的描述，对象的数据就保存在属性中。

11、同一个窗体文件只能用于一个工程中。（）

12、当打开一个VB工程后要另存为一个版本，单击“工程另存为…”就行，因为其同时会保存窗体文件。（）

13、标签的Capton 属性用于设置标签框中显示的文本内容，该内容可以编辑。（）

14、标签的Alignment属性值为1，表示标签中的文本右对齐。（）

15、文本框既用于输出，又可在其中输入、编辑文本。（）

16、要想在文本框中输入或显示多行文本，必须将该文本框的MultiLine

属性设置为False。（）

17、要想一个文本框中文本长度或宽度超过文本框的长度或宽度时既有水平滚动条又有垂直滚动条，应将该文本框的ScrollBars属性设置为

3。（）

18、要想让一个命令按钮无效，应将该命令按钮的Visable属性设置为False。（）

19、某控件的Visable属性设置为True，表示该控件在程序运行时是可见的。（）

参考答案：

1．√ 2．× 3．√ 4．√ 5．× 6．√ 7．× 8．√ 9．√ 10．√

11．× 12．√ 13．× 14．√ 15．√ 16．× 17．√ 18．× 19．√

二、填空题

1．为了在窗体上输出具有相同的字体格式，应对的属性进行设置。

2．在代码窗口对窗体的BorderStyle、MaxButton属性进行了设置，但运行后没有效果，原因是这些属性。

3．在文本框中，通过属性能获得当前插入点所在的位置。

4．要对文本框中已有的内容进行编辑，按下键盘上的键，就是不起作用，原因是设置了属性为True。

5．在窗体上已建立多个控件如Text1、Labell、Command1，若要使程序一运行焦点就定位在Command1控件上，应对Command1控件设置属性的值为。

6．在用Show方法后显示自定义对话框时，如果Show方法后带参数就将窗体作为模式对话框显示。

7．每当一个窗体成为活动窗口时触发事件，当另一个窗体或应用程序被激活时在原活动窗体上产生事件。

8．VB中可作为其它控件的容器的除窗体外还有和控件。

参考答案：

1．窗体 font 2．不能在代码中设置

3． selstart 4． Locked

5． TabIndex 0 6． vbModal或 1

7． Activate Deactivate

8． PictureBox（或图片框） Frame（或框架）

三、选择题

1．对于窗体，下面属性在程序运行时对于其在屏幕上的位置起作用。

（A）MaxButton （B）BorderStyle

（C）Name （D）Left

2．要使Print方法在Form_Load事件中起作用，要对窗体的

属性进行设置。

（A）BackColor （B）ForeColor

（C）AutoRedraw （D）Caption

3．若要使标签控件显示时不覆盖其背景内容，要对

属性进行设置。

（A）BackColor （B）BorderStyle

（C）ForeColor （D）BackStyle

4．若要使命令按钮不可操作，要对属性设置。

（A）Enabled （B）Visible

（C）BackColor （D）Caption

5．文本框没有属性。

（A）Enabled （B）Visible

（C）BackColor （D）Caption

6．不论何对象，都具有属性。

（A）Text （B）Name

（C）ForeColor （D）Caption

7．要使某控件在运行时不可显示，应对属性进行设置。

（A）Enabled （B）Visible

（C）BackColor （D）Caption

8．要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列属性设置就有效。

（A）MaxButton （B）Borderstyle

（C）Width （D）MinButton

9．当运行程序时，系统自动执行启动窗体的事件过程。

（A）Load （B）Click

（C）UnLoad （D）MinButton

10．改变控件在窗体中的上下位置应修改该控件的

属性。

（A）Top （B）Left

（C） Width （D）Right

参考答案：

1、D

2、C

3、D

4、A

5、D

6、B

7、B

8、B

9、A 10、A

四、编程题：

在窗体上建立5个命令按钮Command1、Command2、Command3、Command4、Command5和1个标签Label1。将这些控件作适当布置，如下图。编程序完成如下要求：

（1）程序运行后，4个命令按钮显示分别为：“放大”、“加粗”，“下画线”、“还原”“移动”，标签显示为“VB程序设计”

（2）单击“放大”，标签显示的文字放大3倍，单击“加粗”，标签显示的文字则加粗，单击“下画线”则标签显示的文字加下画线、单击“还原”，则标签显示的文字格式回到起初状态。

（3）每单击“移动”命令按钮一次，标签则向左移动一定距离，单击10次，则移动到最左边（Label1.Left=0）。

代码如下：

Dim size As Integer, ft As Double, bd As Boolean, dl As Boolean

Private Sub Command1_Click()

Label1.FontSize = Label1.FontSize * 3

End Sub

Private Sub Command2_Click()

Label1.FontBold = True

End Sub

Private Sub Command3_Click()

Label1.FontUnderline = True

End Sub

Private Sub Command4_Click()

Label1.FontSize = size

Label1.FontBold = bd

Label1.FontUnderline = bl

Label1.Left = ft

End Sub

Private Sub Command5_Click()

Label1.Left = Label1.Left - ft / 10 End Sub

Private Sub Form_Load()

size = Label1.FontSize

bd = Label1.FontBold

bl = Label1.FontUnderline

ft = Label1.Left

End Sub

第二章 Visual Basic 6.0语言基础

重点掌握的内容：

1、数据类型

Visual Basic 中的数据以四种形式存储：变量、常量、数组和记录。每一种形式都适合于不同的特定任务。

2、变量：变量的概念、命名、声明。

命名规则：

（1）变量名的第一个字母必须是字母，后接字母、数字、下划线，但不可是小数点、空格。

（2）变量名的最后一个字符可以是类型说明符（！，@，#，$，%，&），但它们不能出现在变量名的其它位置。

例如：

A% 说明了变量A是整型

B& 说明了变量B是长整型

C! 说明了变量C是单精度型

D # 说明了变量D是双精度型

E @ 说明了变量E是货币型

F$ 说明了变量F是字符串型

注意：变量名不能与保留字重名。

声明变量：

（1）隐式声明

变量不经声明直接使用，如：A=123 其类型由赋值的类型所决定

（2）显式声明

变量用 Dim 变量名 As 类型名声明后再使用的方式就是显式声明。Option Explicit 的作用就是强制显式声明模块中的所有变量。

3、常量：常量的概念、分类、声明。

常量分为系统内在常量和自定义常量（符号常量）。

符号常量用Const语句声明。

例如 Const PI As Double=3.1415926

4、运算符与表达式：运算符是用来对运算对象进行各种运算的操作符号，而表达式是由多个运算对象和运算符组合在一起的合法算式。

Visual Basic 中的运算符分为五类：算术运算符、连接运算符、关系运算符、逻辑运算符和特殊运算符；主要有三种表达式，即算术表达式，关系表达式和逻辑表达式。

（1）数学运算：运算符有＋－ * / \ （整除）Mod（求余运算）。例如：a Mod b表示a被b整除以后的余数。

（2）关系运算：:关系运算也称比较运算，VB共提供六种运算符，分别是=（等于），>（大于），<（小于），>=（大于等于），<=（小于等于），<>（不等于），Like(模糊匹配)和Is（一致比较）。

（3）逻辑运算： Not And Or

（4）日期运算：＋－

5、常见标准函数:

（1）数学函数：Sqr Rnd

（2）转换函数：Asc Chr Int Val Str

（3）字符串函数：Space Trim Mid

（4）日期和时间函数：Date Time Now Year

（5）交互式函数:Msgbox函数和InputBox 函数的使用。

自测与练习题

一、写出下列函数的值

（1）Int(-3.14159) （2）Chr$(Sqr(64))

（3）Fix(-3.1415926) （4）Sgn(-7^2+2)

（5）Mid(''Hello'',2) （6）Val(''16 Year'')

（7）Str(-459.65) （8）Len(''Hello'')

参考答案：

（1）-4 （2）退格符（3）-3 （4）-1

（5）“ello”（6）16 （7）“-459.65”（8）5

二、填空题

1、整型变量X中存放了一个两位数，要将两位数交换位置，例如，13变成31，实现的表达式是。

2、表示x是5的倍数或是9的倍数的逻辑表达式为。

3、表达式Ucase(Mid("abcdefgh",3,4))的值是。

4、在直角坐标系中， x,y是坐标中任意点的位置，用x与y表示在第一或第三象限的表达式是。

5、表示S字符变量是字母字符(大小写字母不区分)的逻辑表达式

为。

参考答案：

1、 (X mod 10)*10+X\10

2、 x mod 5=0 OR x mod 9=0

3、“CDEF “

4、 x>0 AND y>0 OR x<0 AND y<0

5、 s>=”A” AND s<=”Z” OR s>=”a” AND s<=”z”

三、选择题

1、函数Int(Rnd(0)*100)是在哪个范围内的整数？

A. (0,10)

B. (1,100)

C. [ 0,100)

D. (1,99)

2、如果X是一个正实数，对X的第3位小数四舍五入的表达式是：

A. 0.01*Int(x+0.005)

B. 0.01*Int(100*(x+0.005))

C. 0.01*Int(100*(x+0.05))

D. 0.01*Int(x+0.05)

3、已知变量A、B、C中C最小，则判断A、B、C可否构成三角形的逻辑表达式为：

A. A>=B And B>=C And C>0

B. A+C>B And B+C>a And C>0

C. (A+B>=C or A-B <=C) And C>0

D. A+B>C And A-B0

4、下面哪个是算术运算符：

A. Imp

B. Mod

C. Not

D. Like

5、下面的运算符中，优先级最高的是：

A. Not

B. Is

C. Like

D. &

6、下面的哪一条语句与Visual Basic 的默认设置相同：

A. Option Base 1

B. Option Base 2

C. Option Cmpare Text

D. Option Explicit

参考答案：

C B B B

D D

四、编程题

1．在窗体上放1个标签Label1，1个命令按钮Command1，当窗体启动时使标签居于窗体的中间，并显示系统的当前时间，命令按钮显示为“放大”，当单击命令按钮时，将标签中显示显示文字放大1～3倍，并重新显示系统当前时间。

Option Explicit

Private Sub Command1_Click()

Label1.FontSize = Label1.FontSize * (Int(Rnd * 3 + 1))

' 放大字体

Label1.Caption = "当前时间为" & Time '显示时间

' 以下让Label1居中显示

Label1.Left = Form1.ScaleWidth / 2 - Label1.Width / 2 Label1.Top = Form1.ScaleHeight / 2 - Label1.Height / 2 End Sub

Private Sub Form_Load()

Label1.Caption = "当前时间为" & Time

Label1.Left = Form1.ScaleWidth / 2 - Label1.Width / 2 Label1.Top = Form1.ScaleHeight / 2 - Label1.Height / 2 End Sub

2．编一模拟简易计算器的程序，运行界面如下图所示。

Option Explicit

Private Sub Form_Load()

Label1.Caption = ""

End Sub

Private Sub Command1_Click() ' 加法

Label1.Caption = "＋"

Text3.Text = Val(Text1) + Val(Text2)

End Sub

Private Sub Command2_Click() ' 减法

Label1.Caption = "－"

Text3 = Str$(Val(Text1) - Val(Text2))

End Sub

Private Sub Command3_Click() ' 乘法

Label1.Caption = "×"

Text3 = Str$(Val(Text1) * Val(Text2))

End Sub

Private Sub Command4_Click() ' 除法

Label1.Caption = "÷"

Text3 = Str$(Val(Text1) / Val(Text2))

End Sub

Private Sub Command5_Click() ' 清除

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Label1.Caption = ""

End Sub

第三章程序设计的3种基本结构

重点掌握的内容:

InputBox（函数）：使用InputBox函数可以建立输入对话框并返回字符型数据。

MsgBox函数与语句：MsgBox函数产生的消息对话框可以看作是输出对话框。消息对话框能显示“错误”、“指示”、“警告”之类的简短信息以及“确定”、“取消”等按钮。详见4.2节。

三种程序结构以及If条件语句、Select Case语句、For…Next语句、Do While …Loop语句等。能够分析阅读程序，正确输出程序运行结果，能够编写简单的程序。

自测与练习题

一、判断题

1、使用MsgBox函数与MsgBox过程均可接受用户输入数据。（）

2、IF语句中的条件表达式中只能使用关系或逻辑表达式。（）

3、在Select Case情况语句中，各分支（即Case 表达式）的先后顺序无关。（）

4、要实现同样的循环控制，在Do While-Loop和DO-Loop While循环结构中给定的循环条件是一样

的。（）

5、Do-Loop While语句实现循环时，不管条件真假，首先无条件地执行一次循环。（）

6、Do-Loop Until语句实现循环时，只要条件是假，循环将一直进行下去。（）

7、一个Do循环只能使用一个Loop关键字，但是可以使用多个Exit语句。（）

8、For 循环语句正常结束（即不是通过Exit For语句或强制中断）其循环控制变量的值一定大于“终值”，并等于“终值”+“步

长”。（）

9、Print方法既可以在窗体中输出数据，又可以在图片框和立即窗口中输出数据。（）

参考答案：

1．× 2．× 3．× 4．× 5．√ 6．√ 7．√ 8．× 9．√

二、选择题

1、下面程序段运行后，显示的结果是。

Dimｘ As Integer

If x Then Print x Else Print x+1

（A）1 （B）0 （C）-1 （D）显示出错信息

2、下面程序段求两个数中的大数，不正确。

（A）Max = Iif(x>y,x,y)

（B）If x>y Then Max = x Else Max=y

（C）Max=x If y>=x Then Max =y

（D）If y>=x Then Max=y

Max = x

3、下段程序执行的输出结果是。

S=0:T=0:U=0

For I=1 To 3

For J=1 To I

For K=J To 3

S=S+1

Next K

T=T+1

Next J

U=U+1

Next I

Print S;T;U

（A）3 6 14 （B）1 4 6 3 （C） 14 3 6 （D）16 4 3 参考答案：

1．A 2．D 3．B

三、程序阅读

写出下列各段程序执行后的输出结果。

1．程序1

Private Sub Form_Click()

Dim i As Integer, j As Integer

Dim k As Integer

For I=0 To 10 Step 3

For j=1 To 10

If j>=5 Then I=I+4 :Exit For

J=j+1

K=k+1

Next j

If I>8 Then Exit For

Next I

Print k

End Sub

程序运行后，当单击窗体之后，窗体上输出的是______。2．程序2

Private Sub Form_Click()

Dim b As Integer

a=Val(InputBox("请输入数据" ，，100))

Select Case a Mod 5

Case Is <4

w=a+10

Case Is <2

w=a * 2

Case Else

w=a – 10

End Select

Label1.Caption="w=" & Str(w)

End Sub

设输入的数据分别为14、3、125、21时，标签框Label1.Caption的值分别是什么？

3．程序3

Private Sub Form_Click()

Dim n%, i%, str$, x$

str = "How are you!"

n = Len(str)

For i = 1 To n

x = Mid(str, i, 1) + x

Next i

Print str

Print x

End Sub

程序运行后，当单击窗体之后，窗体上输出的是______。

4．程序4

Private Sub Form_Click()

Dim i% ,j%

For i = 1 To 5

For j=1 to 2*i-1

Print chr$(65+i-1);

Next j

Print

Next i

End Sub

程序运行后，当单击窗体之后，窗体上输出的是______。

5．程序5

Private Sub Text1_KeyPress(KeyAscii As Integer)

k% = KeyAscii

c$ = Chr(k)

If c >= "A" And c <= "Z" Then

k = k + 5

If k > Asc("Z") Then k = k - 26

ElseIf c >= "a" And c <= "z" Then

k = k + 5

If k > Asc("z") Then k = k - 26

End If

Text2.Text = Text2.Text + Chr(k)

End Sub

程序运行后，在文本框Text1输入“Ab,X4y5”，文本框Text2中显示的内容是什么？

参考答案：

1．4 2． 4 13 135 31 3．!uoy era who

4．A 5．Fg,c4d5

BBB

CCCCC

DDDDDDD

EEEEEEEEE

四、程序填空题

1．下面的程序段是检查输入的算术表达式中圆括号是否配对，并显示相应的结果。本程序在文本框中输入表达式，边输入，边统计，以输入回车作为表达式输入结束，然后显示结果。

Dim count1%

Private Sub Text1_KeyPress(KeyAscii As Intcger)

If ="(" Then

Count1 =Count1+1

Elself Then

End If

If KeyAscii=13_Then

If Then

Print "左右括号配对"

Elseif Then

Print "左括号多于右括号"; count1; "个"

Else

Print "右括号多于左括号"; -count1; "个"

End If

End If

End Sub

2．输入任意长度的字符串，要求将字母顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。

Private Sub Command1_Click()

Dim a$,c$,d$,n%,i%

a=InputBox$("输入字符串")

n=

For i=1 To n

C=Mid(a,i,1)

Next i

Print a

End Sub

3．下程序用辗转相除法求两自然数m、n的最大公约数和最小公倍数。

Private Sub Form_Click()

Dim m %,n%,mn%

n=Val(InputBox(“n=”))

m=Val(InputBox(“m=”))

If n<=0 OR m<=0 Then MsgBox “数据出错” : End

_______________

If ________________ Then