vb程序设计CH13课件

VisualBasic程序设计简明教程第三版1第1章VisualBasic程序设计概述第2章VB可视化编程基础第3章VB语言基础第4章VB控制结构第5章数组和自定义类型第6章过程第7章用户界面设计第8章数据文件第9章图形操作第10章数据库应用基础目录2章内容学时实验与学时第1章VisualBasic程序设计概述1实验11+1第2章VB可视化编程基础2实验22+2第3章vb语言基础3实验32+2第4章VB控制结构6实验42+2第5章数组和自定义类型5实验52+2第6章过程4实验61+1第7章用户界面设计4实验72+2第8章数据文件3实验82+2第9章图形操作2实验92+2合计16周48学时(32+16)+课外163216+16*第10章数据库应用基础4实验102+4教学安排3第1章VisualBasic程序设计概述1.1Visualbasic简介

1.2VB集成开发环境1.3建应用程序过程1.4VB帮助系统51.1Visualbasic简介

程序设计基本概念

VisualBasic的发展

VisualBasic的特点本章目录61.1.1VisualBasic的发展20世纪60年出现Basic语言；20世纪80年代，TrueBasic、QuickBasic和TurboBasic等;1991年Microsoft公司推出VisualBasic1.0，以可视化工具为界面设计、结构化Basic语言为基础，以事件驱动为运行机制。从1991年的VB1.0至1998年的VB6.0的多次版本升级，功能更强大、完善，应用面更广；2002年正式发布VisualBasic.NET。本章目录7当一个标签放在窗体上时，标签的左上角坐标（用Left、Top表示）就被指定了。如果改变标签的左上角坐标就可移动标签，即移动文字。例如:Label1.Top=Label1.Top+50可使标签Label1向下移动50单位欢迎使用VB本章目录TopLeft0,09实现连续移动，可通过时钟对象Timer，在规定的时间间隔执行:Label1.Top=Label1.Top+50就可使标签Label1连续向下移动。时钟对象的Interval可指定时间间隔，1秒为1000单位。每隔0.2秒移动一次可设置Interval=200本章目录10程序进一步改进：连续循环移动，首先要能判断出标签是否超出窗体范围。窗体欢迎光临该点在Top方向上的坐标为:窗体的高度Height如果标签的Top>窗体的高度，表示已越出窗体范围，可将标签移到窗体上方，此时标签的Top=？本章目录Height11

VB系统的安装

VB系统的启动

VB集成开发环境的使用1.2VB集成开发环境本章目录13安装VB6.0有学习版、专业版和企业版三种版本。执行VB6.0的Setup.exe，在安装程序的提示下进行，初学者可采用典型安装方式。VB6.0联机帮助文件使用MSDN文档格式，联机帮助文件不在VB6.0系统盘上，而与VisualStudio产品的帮助集合在两张CD盘上，安装过程中，系统会提示插入MSDN盘。

本章目录14启动

启动VB选择开始菜单中的MicrosoftVisualBasic6.0中文版程序。VB6.0窗口列出了VB能够建立的应用程序类型，初学者只要选择默认标准.EXE。单击新建按钮，就可创建该类型的应用程序。

本章目录151.2.2主窗口

三种工作模式

设计模式界面的设计和代码的编制

运行模式运行应用程序

中断模式暂时中断程序运行，调试程序

2.菜单栏

包括13个下拉菜单

3.工具栏本章目录171.2.3窗体设计窗口窗体是建立VB应用程序的主要部分，一个应用程序至少有一个窗体窗口。每个窗体必须有一个唯一的窗体名，默认名为Form1.设计状态的窗体由网格点构成，方便用户对控件的定位，网格点间距可以通过工具|选项|通用进入窗体网格设置.运行时可通过属性控制窗体的可见性(窗体的网格始终不显示)。本章目录18代码设计窗口用来进行代码设计：各种事件过程、过程代码的编写和修改。打开代码设计窗口的方法：双击窗体、控件资源管理器窗口的

”查看代码”本章目录191.2.5工程管理器窗口

保存一个应用程序所有属性以及组成这个应用程序所有的文件。工程文件的扩展名为.VBP，工程文件名显示在工程文件窗口的标题框内。

已存盘未存盘本章目录211.2.6工具箱窗口

由21个被绘制成按钮形式的图标构成，利用这些工具，用户可以在窗体上设计各种控件。其中20个控件称为标准控件(注意，指针不是控件，仅用于移动窗体和控件，以及调整它们的大小)。也可通过工程|部件命令将第3方开发的其他控件装入到工具箱。本章目录221.3创建应用程序的过程

建立一个应用程序分为以下几步：(1)建立用户界面的对象(2)对象属性的设置(3)对象事件过程及编程(4)保存和运行程序例1.2编写一个人民币与美元兑换的程序。要求：通过输入兑换比率与人民币或美元金额，单击命令按钮显示兑换结果。本章目录231.4使用帮助系统使用MSDNLibrary查阅器通过VB的帮助菜单，选择内容、索引或搜索菜单项

25本章小节VisualBasic6.0一个基于对象的可视化设计工具vb的三种工作模式

设计模式、运行模式、中断模式VB程序组成工程窗体文件控件和属性设置模块文件

事件代码本章目录26类的概念在现实世界中，许多对象具有相似的性质，执行相同的操作，称之为同一类对象。类是对同一种对象的集合与抽象。如人类是“人”的抽象。类是创建对象实例的模板，对象则是类的一个实例。类包含所创建对象的属性数据，以及对这些数据进行操作的方法。封装和隐藏是类的重要特性，将数据结构和对数据的操作封装在一起，类的内部实现细节对用户来说是透明的。本章目录29VB中的类和对象VB工具箱中的可视图标是VB系统设计好的标准控件类。通过将控件类实例化，得到真正的控件对象。在窗体上画一个控件，就将类转换为对象，创建了一个控件对象。本章目录30例如：工具箱内的TextBox是类(它确定了TextBox的属性、方法和事件)窗体上显示的是两个TextBox对象本章目录31属性、事件和方法构成对象的三要素属性存放对象的数据(决定对象外观及功能)例如，控件名称、文本、大小等属性。对象属性的设置方法：

设计阶段利用属性窗口直接设置属性值程序运行时通过语句对象名.属性名=属性值

例如：Command1.Caption="确定"注意：若属性只能在设计阶段设置，在程序运行阶段不可改变，称为只读属性。

2.1.2对象的属性、事件和方法本章目录32事件

发生在对象上的事情同一事件，对不同的对象，会引发不同的反应:事件教师_铃声()讲课EndSub学生_铃声()听讲EndSubVB为对象预先定义了一系列的事件。例如，单击Click、获取焦点GotFocus、按下键盘KeyPress等其他人员_铃声()可不于响应EndSub本章目录33事件过程应用程序处理事件的步骤应用程序设计的主要工作就是为对象编写事件过程的代码。事件过程的形式如下：Sub对象名_事件(参数)

… 事件过程代码EndSub事件过程本章目录34例:单击按钮，使Text1的字体为20磅.SubCommand1_Click()

Text1.FontSize=20EndSub一个动作可能同时发生多个事件。例如单击鼠标同时发生了：Click、MouseDown、MouseUp事件编程时，只要对需要的事件过程编码。注意：在代码窗，自动产生事件过程的模板，不要修改模板的内容，只需键入过程的代码。模板产生用户输入本章目录35程序执行的次序与程序设计者无关，取决于用户的操作，这就是事件驱动程序设计方式。VB程序的执行步骤如下：①

启动应用程序，装载和显示窗体；②

窗体(或窗体上的控件)等待事件的发生；③

事件发生时，执行对应的事件过程；④

重复执行步骤②和③。事件驱动本章目录36方法面向对象的程序设计语言，为程序设计人员提供了一种特殊的过程和函数，称为方法。方法是面向对象的，调用时一定要指明对象。对象方法的调用格式为： [对象.]方法[参数名表]若省略对象，表示当前对象，一般指窗体。例如：Text1.SetFocus此语句使Text1控件获得焦点，光标在本文框内闪烁。本章目录372.2窗体和基本控件

窗体和控件具有基本属性例2.1

(1)Name名称属性所创建的对象名称,在程序中引用。(2)Caption标题属性该属性决定了对象上显示的内容。(3)Height、Width、Top和Left属性决定对象的高度、宽度，和位置。本章目录38(4)Enabled属性 对象是否允许操作(5)Visible属性 对象是否可见(6)Font属性组 文本的外观FontName字体、FontSize大小FontBold粗体、FontItalic斜体、FontStrikethru删除线、FontUnderline下划线

本章目录39(7)ForeColor属性前景颜色(8)BackColor属性背景颜色(9)MousePointer鼠标指针类型 设置值范围0～15，由系统指定。若为99，由用户提供的图形文件定义鼠标指针形状。(10)MouseIcon属性在MousePointer属性值为99时，存放自定义的鼠标图标文件（.ico或.cur）。图标库在Graphics目录下。本章目录40控件默认属性所谓默认属性是程序运行时，可以改变某控件的值，而不必指定该控件的哪个属性。控件默认属性控件默认属性文本框命令按钮单选按钮TextDefaultValue标签图形、图像框复选框CaptionPictureValue例如，下面两条语句是等价的：Text1.Text="VisualBASIC"Text1="VisualBASIC"本章目录412.2.2窗体

窗体是一块画布，是所有控件的容器，用户可以根据自己的需要利用工具箱上的控件在画布上画界面。窗体属性决定了窗体的外观和操作。本章目录42窗体-事件

常用的事件有Click、DblClick和Load。Load事件是在窗体被装入工作区时触发的事件。当应用程序启动，自动执行该事件，该事件通常用来在启动应用程序时对属性和变量进行初始化。例2.2

窗体无最大化按钮和最小化按钮，窗体启动时，在标题栏显示“装入窗体”，并装入一背景图；单击窗体装入另一图、双击窗体清除背景图，同时显示不同的文字。

本章目录43窗体-方法

使用方法的语法形式：[对象.]方法[参数列表]Cls方法清除运行时在窗体或图形框中产生的文本或图形,

Cls方法不能清除窗体在设计时的文本和图形Move方法可移动窗体或控件，并可改变其大小。语法格式如下：[对象.]Move左边距离[,上边距离[,宽度[,高度]]]本章目录442.2.3标签标签用来显示文本信息(不能输入)例2.3标签属性演示本章目录452.2.4文本框文本框是一个文本编辑区域，可以在该区域输入、编辑、修改和显示正文内容。(1)Text

显示或输入的正文内容(2)Maxlength

设置文本框可输入的文字最大长度。默认值为0，表示可以输入任意长字符串。注意：在VB中字符长度以字为单位，也就是一个西文字符与一个汉字都是一个字，长度为1。

本章目录46(3)MultiLine多行属性设置为True时，文本框可以输入或显示多行正文，同时具有文字处理器的自动换行功能，按Enter键可插入一空行。(4)ScrollBars滚动条属性

None无滚动条

Horizontal水平滚动条

Vertical垂直滚动条

Both同时加水平和垂直滚动条当MultiLine为True时，ScrollBars才有效本章目录47(5)PassWordChar设置显示文本的替代符。例如，当设置为“*”，则在文本框输入的内容均以“*”显示，而存储的值是用户输入的原文。一般用于设置口令的输入。当MultiLine为True时，该属性不起作用，密码不允许多行。(6)Locked指定文本控件是否可被编辑，默认值为False(可编辑)，当设置为True时，文本控件相当于标签控件的作用。

本章目录48(7)文本内容进行选择操作SelStart 选定的正文开始位置SelLength 选定的正文长度SelText 选定的正文内容这3个属性互相关联,例如设置SelStart、SelLength后，SelText自动存放指定的文本。例2.4

利用属性实现文本信息的复制。

本章目录49文本框-事件(1)Changed事件当Text属性值发生改变时引发该事件例在文本框每输入一个字符就引发一次事件(2)KeyPress事件按下并且释放键盘上的一个键时，引发焦点所在控件的KeyPress事件，所按键的值存放在参数KeyAscii中例对回车的判断KeyAscii=13本章目录50(3)LostFocus事件对象失去焦点时发生LostFocus事件该事件主要是用来对数据进行验证和确认，常用于检查Text属性的内容。(4)GotFocus事件GotFocus事件与LostFocus事件相反，当一个对象获得焦点时发生本章目录51文本框-方法文本框最有用的方法是SetFocus，把光标移到指定的文本框中。其形式如下：

[对象.]SetFocusSetFocus还可以用于如CheckBox、CommandButton、ListBox、ComboBox等控件。例2.5对输入的数据进行合法性检验，过滤不合法的数据。本章目录522.2.5命令按钮用于程序运行时执行相应的事件1.属性(1)Caption命令按钮上显示的文字(2)Style按钮样式

0——Standard：默认，按钮上不能显示图形

1——Graphical：按钮上可以显示图形和文字

(3)Picture在按钮装入图形(4)ToolTipText加以文字提示2.事件 命令按钮一般接收Click事件本章目录532.3综合应用例2.6建立一个类似记事本的应用程序，提供：(1)剪切、复制和粘贴的编辑操作(2)字体大小的格式设置分析：(1)建立一个文本框输入文本，文本框应该有滚动条，为了便于调试，程序运行时文本框有初始值。(2)利用文本框的SelText属性实现“剪切、复制和粘贴”的编辑操作。(3)“格式”设置利用Font对象实现。本章目录54本章小节类是同种对象的集合与抽象，包含所创建对象的属性描述和行为特征的定义，是创建对象实例的模板。对象三要素：属性、事件、方法窗体是所有控件的容器基本控件标签、文本框、命令按钮本章目录55第三章VB语言基础

3.1数据类型3.2变量和常量3.3运算符和表达式3.4程序结构和编码规则3.5综合应用本章目录563.1数据类型本章目录573.2变量变量在程序运行中其存储的值可以改变命名规则：必须以字母或汉字开头，由字母、汉字、数字或下划线组成，长度小于等于255个字符不能使用VB中的关键字

VB不区分变量名的大小写，一般变量名首字母用大写，其余用小写字母表示；常量全部用大写字母表示本章目录58变量声明用Dim语句显式声明变量

Dim变量名[As类型]As部分缺省，创建的变量为变体类型

一条Dim语句可同时定义多个变量,但每个变量应有类型说明，否则为变体型。例如：Dimm，nAsInteger,x，yAsSingle

则创建了变体型变量m、x，整型变量n和单精度型变量y本章目录59常量常量是在程序运行中不变的量,VB有三种常量：直接常量其常数值直接反映了其类型符号常量用户声明，便于程序阅读或修改Const符号常量名[As类型]=表达式例如：

ConstPI=3.14159系统常量系统提供许多内部常量例如：vbCrLf

回车/换行组合符

本章目录603.3运算符和表达式和其他语言一样，VB中也具有丰富的运算符，通过运算符和操作数组合成表达式，实现程序编制中所需的大量操作。运算符是表示实现某种运算的符号。VB中的运算符可分算术运算符、字符串运算符、关系运算符和逻辑运算符4类。本章目录61算术运算符例：5+10mod10\9/3+2^2结果：10

注意：对算术运算符两边的操作数应是数值型，若是数字字符或逻辑型，则自动转换成数值类型后再运算。例如：30-True结果是31，逻辑量True转为数值-1，False转为数值0False+10+"4"结果是14本章目录62字符串运算符&

两旁的操作数可任意，转换成字符型后再连接+

两旁的操作数应均为字符型；

1)数值型:则进行算术加运算

2)一个为数字字符，另一个为数值，自动将数 字字符转换为数值后进行算术加

3)一个为非数字字符，另一个为数值型，出错例如：

操作结果操作结果"ab"&123"ab123" "ab"

+12出错"12"&456"12456" "12"+

456468"12"&True"12True" "12"+

True11本章目录63关系运算符关系运算符是双目运算符，作用是对两个操作数进行大小比较，若关系成立，则返回True，否则返回False。操作数可以是数值型、字符型。运算符例结果="ABCDE"="ABR"False>"ABCDE">"ABR"False>="bc">="abcde

"True<23<3False<="23"<"3"

True<>"abc"<>"abcde

"True本章目录64逻辑运算符逻辑运算符除Not是单目运算符外，其余都是双目运算符，作用是将操作数进行逻辑运算，结果是逻辑值True或False。本章目录65表达式1.组成

变量、常量、函数、运算符和圆括号2.书写规则运算符不能相邻例a+-b是错误的乘号不能省略例x乘以y应写成：x*y

括号必须成对出现(均使用圆括号)

表达式从左到右在同一基准上书写，无高低、大小3.不同数据类型的转换运算结果的数据类型向精度高的数据类型靠

Integer<Long<Single<Double<Currency4.优先级算术运算符>=字符运算符>关系运算符>逻辑运算本章目录66表达式书写举例a*b*c*d/e/f/g或a*b*c*d/(e*f*g)

例逻辑表达式书写,选拔优秀生的条件为：年龄(Age)小于19岁，三门课总分(Total)高于285分，其中有一门为100分，如果其表达式写为：Age<19AndTotal>285And(Mark1=100OrMark2=100OrMark3=100)如果取消括号有何问题？请读者考虑。

sin(45*3.14/180)+(exp(10)+log(10))/sqr(x+y+1)本章目录673.3.3常用函数VB函数:内部函数和用户自定义函数内部函数数学函数转换函数字符串函数日期函数格式输出函数调用函数的形式：函数名[（参数列表）]本章目录68数学函数-43Int(-3.5)Int(3.5)取小于或等于N的最大整数Int(N)2.3Log(10)自然对数Log(N)-33Fix(-3.5)Fix(3.9)取整Fix(N)20.086Exp(3)enExp(N)1Cos(0)余弦函数Cos(N)3.5Abs(-3.5)取绝对值Abs(N)结果实例含义函数名本章目录69数学函数0Tan(0)正切函数Tan(N)3Sqr(9)平方根Sqr(N)-1Sgn(-3.5)符号函数Sgn(N)0Sin(0)正弦函数Sin(N)-44Round(-3.5)Round(3.5)四舍五入取整Round(N)[0,1)之间的数Rnd产生随机数Rnd[(N)]结果实例含义函数名Rnd函数返回0和1（包括0但不包括1）之间的双精度随机数.每次运行时，要产生不同序列的随机数，先执行Randomize语句。产生a~b的之间的随机整数：Int(Rnd*(b-a)+a)本章目录70转换函数"ABC"Ucase$("abc")小写字母转为大写字母Ucase(C)"144"Oct$(100)十进制转换成八进制Oct](N)"123.45"Str$(123.45)数值转换为字符串Str(N)123Val("123AB")数字字符串转换为数值Val(C)"abc"Lcase$("ABC")大写字母转为小写字母Lcase$(C)64Hex(100)十进制转换成十六进制Hex(N)"A"Chr$(65)ASCII码值转换成字符Chr(N)2003-11-13CDate("2003/11/13")转换成日期型CDate65Asc("A")字符转换成ASCII码值Asc(C)结果实例功能

函数名本章目录71字符串函数"BCD"Mid("ABCDE",2,3)取字符子串Mid(C,N1[,N2])"ABCD"Trim("ABCD")去掉字符串两边空格Trim(C)"A3AB3"Replace("ACDABCD","CD","3")用C2替代C1Replace(C,C1,C2)""Space(3)产生N个空格的字符串

Space(N)4Len("AB教育")字符串长度Len(C)"ABC"Left("ABCDE",3)取字符串左边n个字符Left(C,N)7InStr(2,"EFABCDEFG","EF")从n开始，在C1中找C2InStr([N,]C1,C2[,M])结果实例说明

函数名本章目录72字符串函数"ABCD"TRim(“ABCD")去掉字符串两边的空格TRim(C)"DCBA"StrReverse("ABCD")将字符串反序StrReverse(C)"AAA"String(3,"ABC")重复首字符n次String(N,C)S(0)="123"S(1)=“ab"S=Split("123,ab",",")将字符串分隔成字符数组。与Join作用相反Split(C[,D])“"Space(3)产生n个空格的字符串Space(N)"ABCD"RTrim("ABCD")去掉字符串右边空格RTrim(C)“BCD"Right("ABCD",3)