《VisualBasic6.0全套课件》由会员分享，可在线阅读，更多相关《VisualBasic6.0全套课件（292页珍藏版）》请在金锄头文库上搜索。
1、Visual Basic 6.0程序程序设计（第二版）（第二版） 第第1章章 Visual Basic 概述概述w1.1VisualBasic6.0的特点的特点w1.2环境要求及安装环境要求及安装w1.3VisualBasic6.0项目类型项目类型w1.4VisualBasic6.0集成开发环境集成开发环境w1.5菜单组成菜单组成w1.6工具栏工具栏w1.7创建程序举例创建程序举例1.1VisualBasic6.0的特点的特点1可可视化化2面向面向对象象3部件部件编程程4事件事件驱动返回首页1.2环境要求及安装环境要求及安装w1.2.1环境要求环境要求w1.2.2安装步骤安装步骤w1.2.3添
2、加或删除添加或删除VisualBasic6.0部件部件返回首页1.2.1环境要求环境要求（1）操作系统：）操作系统：MicrosoftWindowsNTServer4.0或更高版本，或或更高版本，或MicrosoftWindowsNTWorkstation4.0或更高版本，或或更高版本，或MicrosoftWindows95或更高版本。或更高版本。（2）CPU：486DX/66MHz或更高的处理器。或更高的处理器。（3）内存：）内存：Windows95/98下要求下要求16MB以上的内存，以上的内存，WindowsNT下要求下要求32MB以上。以上。（4）磁磁盘盘空空间间：对对于于学学习习版版
3、，典典型型安安装装48MB，完完全全安安装装80MB。对对于于专专业业版版，典典型型安安装装48MB，完完全全安安装装80MB。对对于于企企业业版版，典典型型安安装装128MB，完全安装完全安装147MB。（5）其其他他设设备备：CD-ROM驱驱动动器器、鼠鼠标标或或其其他他光光标控制设备。标控制设备。返回本节1.2.2安装步骤安装步骤（1）启动安装程序。）启动安装程序。（2）输入）输入CD号。号。（3）输入姓名及用户单位。）输入姓名及用户单位。（4）安装路径的选择。）安装路径的选择。（5）安装方式的选择。）安装方式的选择。返回本节1.2.3添加或删除添加或删除VisualBasic6.0部件
4、部件w要要添添加加或或删删除除VisualBasic部部件件，需需要要进进行行以以下下操作：操作：（1）重新启动安装程序。）重新启动安装程序。（2）在安装程序对话框中选取）在安装程序对话框中选取“自定义自定义”按钮。按钮。（3）在在“自自定定义义”对对话话框框的的“选选项项”列列表表框框中中选选定要安装的部件（或撤消选定要删除的部件）。定要安装的部件（或撤消选定要删除的部件）。返回本节1.3VisualBasic6.0项目类型项目类型（1）标准）标准EXE项目项目（2）ActiveXDLL项目项目（3）ActiveXEXE项目项目（4）ActiveX控件项目控件项目（5）ActiveX文档项目
5、文档项目（6）DHTML应用程序项目应用程序项目（7）IIS应用程序项目应用程序项目返回首页图1-1“新建工程”对话框返回本节1.4VisualBasic6.0集成开发环境集成开发环境图1-2VisualBasic6.0集成开发环境返回首页1.5菜单组成菜单组成w1.5.1“文件文件”菜单菜单w1.5.2“编辑编辑”菜单菜单w1.5.3“视图视图”菜单菜单w1.5.4“工程工程”菜单菜单w1.5.5“格式格式”菜单菜单w1.5.6“调试调试”菜单菜单w1.5.7“运行运行”菜单菜单w1.5.8“工具工具”菜单菜单w1.5.9“外接程序外接程序”菜单菜单返回首页1.5.1“文件文件”菜单菜单（1
6、）新建工程）新建工程（2）打开工程）打开工程（3）添加工程）添加工程（4）移除工程）移除工程（5）保存工程）保存工程（6）工程另存为）工程另存为（7）保存文件）保存文件（8）文件另存为）文件另存为（9）生成工程）生成工程图1-3“文件”菜单返回本节1.5.2“编辑编辑”菜单菜单w“编辑编辑”菜单用于编辑操作，以方便对工程进行菜单用于编辑操作，以方便对工程进行修改。修改。图1-4“编辑”菜单返回本节1.5.3“视图视图”菜单菜单w“视图视图”菜单用于显示各种窗口。菜单用于显示各种窗口。图1-5视图菜单栏返回本节1.5.4“工程工程”菜单菜单w“工工程程”菜菜单单用用于于为为当当前前工工程程创创建
7、建模模块块、引引用用对对象或提供各种设计器。象或提供各种设计器。图1-6工程菜单栏返回本节1.5.5“格式格式”菜单菜单w“格格式式”菜菜单单用用于于界界面面设设计计，可可以以使使得得界界面面中中的的控件按照一定的规则有序排列。控件按照一定的规则有序排列。图1-7格式菜单栏返回本节1.5.6“调试调试”菜单菜单w“调试调试”菜单用于调试、监视程序。菜单用于调试、监视程序。图1-8调试菜单栏返回本节1.5.7“运行运行”菜单菜单w“运行运行”菜单用于执行程序。菜单用于执行程序。图1-9运行菜单栏返回本节1.5.8“工具工具”菜单菜单w“工具工具”菜单组成如图菜单组成如图1-10所示。所示。图1-
8、10工具菜单栏返回本节1.5.9“外接程序外接程序”菜单菜单w“外接程序外接程序”菜单如图菜单如图1-11所示。所示。图1-11外接程序菜单栏返回本节1.6工具栏工具栏图1-12选取工具栏返回首页表1-1 标准工具栏上的图标按钮返回本节1.7创建程序举例创建程序举例1分析分析问题2建立工程建立工程3界面界面设计4编写源代写源代码5调试运行运行6保存工程、生存保存工程、生存执行文件行文件返回首页图1-13“保存文件”对话框图1-14界面设计表1-2 控件属性值设置对象类型属性设置值Form1窗体Caption商品零售计价Text1文本框Text2文本框Label1标签Caption单价：Labe
9、l2标签Caption数量：Label3标签Caption累计应收款：Label4标签BorderStyle1Command1按钮Caption继续Command2按钮Caption刷新Command3按钮Caption退出图1-15通过代码窗口编辑代码图1-16立即窗口图1-17监视窗口返回本节Visual Basic 6.0程序设计（第二版） 第2章可视化编程的概念和步骤2.1VB可视化编程的基本概念可视化编程的基本概念2.1.1VisualBasic对象的概念对象的概念任何一个实体都可以视为一个对象任何一个实体都可以视为一个对象2.1.2对象的属性、事件和方法对象的属性、事件和方法1.对
10、象的属性对象的属性 对象的属性可以看作是它的一些性质对象的属性可以看作是它的一些性质在程序中用程序设置属性，格式为：在程序中用程序设置属性，格式为：对象名对象名. .属性名称属性名称 = = 属性值属性值2. 2. 对象的事件对象的事件 事件（事件（EventEvent）就是对象上所发生的事情）就是对象上所发生的事情 事件过程的一般格式为：事件过程的一般格式为：Private Sub Private Sub 对象名称对象名称_ _事件名称事件名称()() 事件响应程序代码事件响应程序代码End SubEnd Sub3.对象的方法对象的方法 方法就是要执行的动作方法就是要执行的动作调用格式如下：
11、调用格式如下：对象名称对象名称. .方法名称方法名称2.2基本控件介绍基本控件介绍2.2.1 Visual Basic Visual Basic的控件种类的控件种类 1.1.内部控件内部控件 2.ActiveX2.ActiveX控件控件 2.2.2 对象的基本属性对象的基本属性 多数多数VBVB标准控件和窗体都具有相同的基标准控件和窗体都具有相同的基本属性，如本属性，如NameName、CaptionCaption、EnabledEnabled、VisibleVisible、FontFont2.2.3窗体窗体2.2.4标签控件标签控件2.2.5 文本框控件文本框控件2.2.6 命令按钮控件命令
12、按钮控件2.2.7常用方法常用方法1.Print方方法法：Print方方法法用用于于在在窗窗体体、图图片片框框和打印机上显示文本和打印机上显示文本2. Cls方方 法法 ： Cls方方 法法 可可 以以 清清 除除 Form或或PictureBox中中由由Print方方法法和和图图形形方方法法在在运运行行时所生成的文本或图形时所生成的文本或图形3.Move方法方法Move方方法法用用于于移移动动窗窗体体或或控控件件，并并可可以以改改变变其大小其大小2.3VisualBasic可视化编程的基本步骤可视化编程的基本步骤2.3.1 新建工程新建工程 2.3.2 添加控件添加控件2.3.3设置控件属性
13、设置控件属性 2.3.4编写代码编写代码 2.3.5工程的保存、装入、运行及文件删工程的保存、装入、运行及文件删除除 Visual Basic 6.0程序设计（第二版） 第3章VB语言基础3.1数据类型数据类型数据类型：指出变量能存储何种类型的数据。数据类型：指出变量能存储何种类型的数据。一、常用的基本数据类型：一、常用的基本数据类型：1、数值型数值型Integer整型整型Long长整型长整型Single单精度型单精度型Double双精度型双精度型2、日期型、日期型用用#把表示日期和时间的值括起来把表示日期和时间的值括起来如：如：#11/18/2003#，#2003-11-18#，#11/18
14、/200310:28:45pm#存放整数存放带有小数的数值3、布尔、布尔(逻辑逻辑)型型Boolean，取值：，取值：True或或False4、字符串型字符串型String用用“”括起来的一串字符括起来的一串字符（1）变长字符串）变长字符串例：例：dimnameasstring（2）定长字符串）定长字符串例：例：dimempAddressasstring*20empAddress=“Beijing”当字符少于当字符少于20个，则用空格将不足部分填满个，则用空格将不足部分填满当字符多于当字符多于20个，则截去超出部分的字符个，则截去超出部分的字符5、对象型、对象型声明为声明为object的变量可
15、以引用应用程序中的对象的变量可以引用应用程序中的对象例例:dimobjDbasObjectsetobjDb=OpenDatebase(“c:vb6bibio.mdb”)6、变体类型、变体类型VariantVariant类型的数据可以表示所有系统定义的数据类型的数据可以表示所有系统定义的数据注：变量的缺省类型为变体类型注：变量的缺省类型为变体类型3.2变量变量标识符的命名规则：标识符的命名规则： v必须字母开头，后跟字母、数字或下划线必须字母开头，后跟字母、数字或下划线 v不能与不能与VBVB中关键字同名中关键字同名 v不区分大小写不区分大小写 变量变量存储可能变化的数据存储可能变化的数据 常量
16、常量固定不变的数据固定不变的数据 通常，在使用变量和常量前必须事先声明。通常，在使用变量和常量前必须事先声明。一、一、变量变量 1、变量的命名变量的命名 遵循标识符命名的规则遵循标识符命名的规则 2、变量的声明变量的声明 Dim Dim 变量名变量名 As As 类型类型 注：注：缺省为变体类型缺省为变体类型 Dim Dim 变量名变量名 类型符后缀类型符后缀 例如：下列两句声明语句效果相同例如：下列两句声明语句效果相同 Dim a As Integer,b As SingleDim a As Integer,b As Single Dim a%, b! Dim a%, b! 3、变量的隐式声
17、明变量的隐式声明(不声明不声明) 不声明就使用的变量为不声明就使用的变量为Variant类型类型 初值默认为初值默认为Empty4、变量的显式声明、变量的显式声明(强制声明强制声明) 在通用声明段中加上在通用声明段中加上OptionExplicit3.3常量常量1、直接常量、直接常量2、符号常量、符号常量(1)系系统统预预定定义义的的常常量量由由应应用用程程序序和和控控件件提提供供 例：例：Form1.BackColor = Form1.BackColor = vbBluevbBlue(2)用户定义的常量用户定义的常量Public|PrivateConst Public|PrivateCons
18、t 常常量量名名As As 类类型型= 例：例： ConstConst PiPi = 3.14159 = 3.14159 Dim area As Single Dim area As Single Private Sub Command1_Click() Private Sub Command1_Click() area = area = PiPi * 5 * 5 * 5 * 5 Text1.Text = area Text1.Text = area End Sub End Sub Private Sub Command2_Click() Private Sub Command2_Click(
19、) area = area = PiPi * 10 * 10 * 10 * 10 Text1.Text = area Text1.Text = area End Sub End Sub 例例A：PrivateSubForm_Click()StaticintCountAsIntegerintCount=intCount+1PrintintCountEndSub例例B：PrivateSubForm_Click()DimintCountAsIntegerintCount=intCount+1PrintintCountEndSub3.4运算符和表达式运算符和表达式一、算术表达式一、算术表达式由算术运算
20、符、数值型常量、变量、函数、和圆括由算术运算符、数值型常量、变量、函数、和圆括号组成。号组成。算术运算符（按优先级）：算术运算符（按优先级）：*/mod+-说明说明:1、/和和区别区别/用于普通除法用于普通除法用于整数除法，如果参加运算的数据含有小数，用于整数除法，如果参加运算的数据含有小数，首先将它们四舍五入，再进行运算，结果去掉小数部首先将它们四舍五入，再进行运算，结果去掉小数部分。分。结果：结果：.6032、mod求整数除法的余数求整数除法的余数例：例：Print25.58Mod6.91结果：结果：53、优先级、优先级例：例：Print4+56*7/8Mod9例：Print3/5Prin
21、t35Print25.586.91二、字符串表达式二、字符串表达式由字符串常量、字符串变量、字符串函数由字符串常量、字符串变量、字符串函数和字符串运算符组成。和字符串运算符组成。字符串运算符：字符串运算符：&（连结运算符）（连结运算符）除了除了&可以连接字符串，可以连接字符串，+也可把两个字符也可把两个字符串连接。串连接。例：Print“123”&“456”Print123&456“Print123+456print123+456Print123+456”print123+“abc”结果：123456123456123456579579出错三、关系表达式三、关系表达式关系运算符：关系运算符：=
22、说明：说明：(1)数值型、日期型（看成数值型、日期型（看成yyyymmdd位整数）位整数）按数值大小比较。按数值大小比较。(2)字符型数据按其字符型数据按其ASCII码比较。码比较。（3）汉字字符大于西文字符）汉字字符大于西文字符例：例：Print53Print#3/1/2003#3/11/2003#Printabc=ABC“TrueFalsetrue4 4、Like(Like(选讲选讲) )Dim MyCheck Dim MyCheck MyCheck = aBBBa Like a*a MyCheck = aBBBa Like a*a 返回返回 TrueTrueMyCheck = F Lik
23、e A-ZMyCheck = F Like A-Z“ 返回返回 TrueTrue。MyCheck = F Like !A-Z MyCheck = F Like !A-Z 返回返回 FalseFalse。MyCheck = a2a Like a#aMyCheck = a2a Like a#a“ 返回返回 TrueTrue。MyCheck = BAT123khg Like B?T* MyCheck = BAT123khg Like B?T* 返回返回 TrueTrueMyCheck = CAT123khg Like B?T* MyCheck = CAT123khg Like B?T* 返回返回 F
24、alseFalse。 四、逻辑表达式四、逻辑表达式逻辑运算符（按优先级）：逻辑运算符（按优先级）：notandorxoreqvimp例：例：Print53Eqv68运算符优先级：运算符优先级：算术运算符算术运算符&关系运算符关系运算符逻辑运算符逻辑运算符例：例：DimxAsInteger,yAsInteger,aAs_Single,bAsSinglex=4:y=-1:a=7.5:b=-6.2Printx+ya+bAndNotyb结果：true五、日期表达式五、日期表达式1.两个日期型数据可以相减，结果是两日期相差的天数。两个日期型数据可以相减，结果是两日期相差的天数。例：例：Print #11
25、/5/2003# - #11/1/2003#Print #11/5/2003# - #11/1/2003#2.日期型数据可与表示天数的数值相加减。日期型数据可与表示天数的数值相加减。例：例：Print#3/1/2003#+10结果：4结果：03-3-113.5常用内部函数常用内部函数一、数学运算函数一、数学运算函数1、Rnd0=返回值返回值1Randomize语句语句将将Rnd函数的函数的随机数生成器初始化随机数生成器初始化。如：要产生一个如：要产生一个1-100的随机数：的随机数：Int(100*rnd)+12、Int返回不大于给定数的最大整数返回不大于给定数的最大整数如如int(3.6)=
26、3int(-3.6)=-43、Fix返回整数部分返回整数部分如如fix(3.6)=3fix(-3.6)=-3二、字符串函数二、字符串函数Vb中采用中采用unicode处理字符，一个汉字和处理字符，一个汉字和一个西文字符都占一个西文字符都占2个字节。个字节。1、Ltrim、Rtrim、trim2、Left、Right、Mid3、Len、LenB4、Lcase、Ucase三、日期和时间函数三、日期和时间函数1、Now2、date3、month4、time四、格式输出函数四、格式输出函数Format(表达式表达式,格式字符串格式字符串)常用的数值型格式说明字符字符字符说明说明例子例子#显示一位数字或
27、什么都不显示显示一位数字或什么都不显示Format(123.45,”#.#”)结果：结果：123.450显示一位数字或是零显示一位数字或是零Format(123.45,”0000.000”)结果：结果：0123.450.小数点占位符小数点占位符，千分位符号占位符千分位符号占位符Format(1234.5,”#,#.#”)结果：结果：1,234.5%百分比符号占位符百分比符号占位符Format(0.12345,”0.00%”)结果：结果：12.35%常用的时间日期格式说明字符字符字符说明说明例子例子dddddd用年月日表示日期用年月日表示日期Format(Date,”ddddd”)结果：结果：2
28、000年年5月月15日日mmmm用全称表示月用全称表示月(如：如：January)Format(Date,”mmmm”)结果：结果：Mayttttt用完整时间表示法显示用完整时间表示法显示Format(time,”ttttt”)结果：结果：20:57:06AM/PM在中午前在中午前,以以12小时配合大写小时配合大写AM在中午和在中午和11:59PM间，以间，以12小时配小时配合大写合大写PMFormat(Time,”tttttAM/PM”)结果：结果：20:57:46PM常用的字符型格式说明字符字符字符说明说明例子例子字字符符占占位位符符。显显示示字字符符或或空白。空白。Format(“ABC
29、D”,“”)返回：返回：”ABCD”&字符占位符。显示字符或字符占位符。显示字符或什么都不显示什么都不显示Format(“ABCD”,&”)返回：返回：”ABCD”!强制由左至右填充字符占强制由左至右填充字符占位符。默认值是由右至左位符。默认值是由右至左填充字符占位符填充字符占位符Format(“ABCD”,“!”)返回：返回：”ABCD”五、转换函数五、转换函数1、类型转换函数、类型转换函数（1）数据类型转换函数）数据类型转换函数（2）求一个字符串首字符的）求一个字符串首字符的ASCII码值码值Asc(string)（3）求一个）求一个ASCII码值对应的字符码值对应的字符Chr(charc
30、ode)（4）字符串转化为数值）字符串转化为数值Val(string)（5）数值转换为字符串）数值转换为字符串string(number)2、取整函数、取整函数Int、fix3、数制转换函数、数制转换函数Hex(number)Oct(number)3.6语句语句一、程序语句一、程序语句1、赋值语句、赋值语句2、注释语句、注释语句3、暂停语句、暂停语句4、exit语句语句5、结束语句、结束语句6、Unload语句7、with语句语句二、语句的书写规则二、语句的书写规则 一行中可有多条语句：语句间用冒号一行中可有多条语句：语句间用冒号“: :”分隔分隔长语句可分成多行书写：用续行符长语句可分成多行
31、书写：用续行符“ _ _”( (一个一个空格后跟一个下划线空格后跟一个下划线) ) 三、三、 常用方法常用方法VB中的对象支持属性、方法和事件。在VB中，对象本身具有的一些函数或过程称为方法。方法和属性都是对象的一部分，一般说来方法就是对象要执行的动作。方法可以影响属性值，例如在VB的列表框具有List属性，使用Clear和AddItem方法可改变其List属性。在VB中使用方法的格式为：对象名.方法名l例如，Print是VB中的一种方法。如果希望把输出的结果从窗体上显示可使用下列格式：Form1.Print输出表项l如果想把结果从图片框上输出，可以使用下列格式：Picture1.Print输
32、出表项l如果想在窗体上输出“您好”，可在Form_Click()事件中加入下列语句：form1.print“您好”l则运行程序后每单击一次窗体就会出现“您好”两个字。运行结果如下页图2.4所示图2.4用Print方法窗体上输入“您好”的运行结果对象中最常见几种方法：对象中最常见几种方法：1.Clear:该方法告诉控件要放弃它所拥有的内容。如果是列表框，则Clear方法删除列表框中的内容。若是文本框，则清除其内容，并将其字符串属性设置为零长度字符串。2.AddITem,RemoveITem:这些方法用于操作列表框和组合框控件中的项目。应用程序不必知道项目在控件中是如何存放的，只要使用方法，控件就
33、会向表中添加、插入新项目或删除已有的项目。方法就是每个控件不需要编程人员编写代码就可以自动完成的操作。四、四、InputBox函数函数InputBox函数用来接受用户通过键盘输入的数据。函数用来接受用户通过键盘输入的数据。InputBox函数使用的形式是：函数使用的形式是：v=InputBox(Prompt,title,defsult,x,y,helpfile,context)PromptPrompt：提示用的文字信息；：提示用的文字信息；titletitle：对话框标题（字符型），缺省时，为工程名；：对话框标题（字符型），缺省时，为工程名；defaultdefault：显显示示在在用用户户编
34、编辑辑框框中中的的缺缺省省值值，缺缺省省时时，返返回回空空值；值；x,yx,y：对对话话框框在在屏屏幕幕上上显显示示时时的的位位置置，单单位位是是特特维维，(x,y)(x,y)是是对话框左上角点的坐标；对话框左上角点的坐标；helpfile,context：帮助文件名及帮助主题号。有本选项时，：帮助文件名及帮助主题号。有本选项时，在对话框中自动增加一个帮助按钮。在对话框中自动增加一个帮助按钮。InputBox函数函数特别注意：特别注意：InputBox函数返回的是一函数返回的是一个字符类型数据，个字符类型数据，v v可以是变体变量或字可以是变体变量或字符串型变量，也可以是数值型变量，但符串型变
35、量，也可以是数值型变量，但如果输入内容不可转换成数值型数据时，如果输入内容不可转换成数值型数据时，将会产生运行错误。将会产生运行错误。程序示例Private Sub Cmd1_Click()Private Sub Cmd1_Click() Dim N_student As String Dim N_student As String N_student N_student = = InputBox(InputBox(请请输输入入你你的的学学号号：, , 程序示例程序示例, 230001), 230001) If Left(N_student, 2) = 23 Then If Left(N_st
36、udent, 2) = 23 Then Print Print 你是工程系的学生！你是工程系的学生！ Else Else Print Print 你不是工程系的学生！你不是工程系的学生！ End If End IfEndSub五、五、 MsgBoxMsgBox函数函数MsgBoxMsgBox函函数数用用于于向向用用户户发发布布提提示示信信息息，并并要要求求用用户户作作出出必必要要的的响响应应。MsgBoxMsgBox函函数数的形式是：的形式是：MsgBox(Prompt,button,title,helpfile,context)MsgBoxMsgBox函数中各个参数的意义函数中各个参数的意义
37、Prompt：提示用的文字信息；：提示用的文字信息；button：这是一个由：这是一个由4个数值常量组成的个数值常量组成的式子，形式为式子，形式为c1+c2+c3+c4，用于决定信，用于决定信息框中按钮的个数和类型以及出现在信息框中按钮的个数和类型以及出现在信息框中的图标类型，各个参量的可选值息框中的图标类型，各个参量的可选值及其功能见表及其功能见表4-2（凡有（凡有0值的参量，值的参量，0值值为缺省值）：为缺省值）：MsgBoxMsgBox函数各个参数的意义函数各个参数的意义title：信信息息框框标标题题（字字符符型型），缺缺省省时时，为为空白；空白；helpfile,context：帮助
38、文件名及帮助主题：帮助文件名及帮助主题号。有本选项时，在信息框中自动增加号。有本选项时，在信息框中自动增加一个帮助按钮。一个帮助按钮。MsgBoxMsgBox函数的返回值函数的返回值按钮名按钮名 内置常量内置常量 取值取值OKOK（确定）（确定） vbOK 1vbOK 1CancelCancel（取消）（取消） vbCancel 2vbCancel 2AbortAbort（终止）（终止） vbAbort 3vbAbort 3RetryRetry（重试）（重试） vbRetry 4vbRetry 4IgnoreIgnore（忽略）（忽略） vbIgnore 5vbIgnore 5YesYes（是
39、）（是） vbYes 6vbYes 6NoNo（否）（否） vbNo 7vbNo 7MsgBoxMsgBox函数的使用方法函数的使用方法使用赋值语句。如：使用赋值语句。如：ans ans = = MsgBox(MsgBox(“非非法法数数据据！”,48,48,”提提示示信息信息”) ) 使用使用PrintPrint方法。例如：方法。例如：Print Print MsgBox(MsgBox(“非非法法数数据据！”,48,48,”提提示示信信息息”) )也可以把它等同为一个方法使用。如：也可以把它等同为一个方法使用。如：MsgBox MsgBox “非法数据！非法数据！”,48,48,”提示信息提
40、示信息”MsgBoxMsgBox函数示例函数示例Visual Basic 6.0程序设计（第二版） 第4章程序控制与调试4.1顺序结构顺序结构一、数据输出一、数据输出1、print方法方法2、与、与print方法有关的函数方法有关的函数（1）tab(n):作用把显示位置移到由作用把显示位置移到由n指定的列数指定的列数（2）spc(n)：作用在显示时插入：作用在显示时插入n个空格个空格3、使用位置属性（、使用位置属性（currentX,currentY）4、清除方法、清除方法cls:对象名称对象名称.cls对象名称可以是窗体和图片框对象名称可以是窗体和图片框5、使用标签控件的输出、使用标签控件的
41、输出二、数据输入二、数据输入1、使用文本框控件进行输入、使用文本框控件进行输入2、setfocus方法方法控件获得焦点的三种方法控件获得焦点的三种方法p763、与用户交互的函数和过程、与用户交互的函数和过程（1）inputbox函数函数例例（2）msgbox函数和函数和msgbox过程过程p794.2选择结构程序设计选择结构程序设计一、一、if条件语句条件语句1、单分支条件结构、单分支条件结构（1）if表达式表达式then单行语句单行语句（2）if表达式表达式then语句块语句块endif2、双分支结构、双分支结构(1)If表达式表达式then语句块语句块else语句块语句块endif(2)I
42、f表达式表达式then单行语句单行语句else单行语句单行语句3、多分支结构、多分支结构if表达式表达式1then语句块语句块Elseif表达式表达式2then语句块语句块Else语句块语句块Endif4、if语句的嵌套语句的嵌套二、二、selectcase语句语句Selectcase测试表达式测试表达式Case表达式列表表达式列表语句块语句块Caseelse语句块语句块Endselect三、条件函数三、条件函数iif函数函数：iff（表达式（表达式,真值部分，假值部分）真值部分，假值部分）作用相当于作用相当于ifthenelse一、一、Do.Loop语句语句当型循环当型循环(While)Do
43、WhileLoopDoLoopWhile功能：当成立时循环Do.Loop语句直到型循环(Until)DoUntilLoopDoLoopUntil功能：执行循环，直到成立时跳出循环先判断后执行即前测型先执行后判断即后测型4.3循环结构二、循环语句二、循环语句 循环语句用于完成一些重复性的操作。常用的循环语句用于完成一些重复性的操作。常用的是是Do.Loop和和For.Next语句语句。语句语句。For.Next语句（计数循环）语句（计数循环）以以指指定定次次数数重重复复执执行行一一组组语语句句，一一般般用用于于执执行行重重复次数固定复次数固定的循环。的循环。For循环变量=初值To终值Step步
44、长Next循环变量三、循环嵌套三、循环嵌套例例PrivateSubForm_Click()Form=1To6PrintTab(15-m);Forn=1To2*m-1Print*;NextnPrintNextm缺省Step14.4程序调试与出错处理错误类型工作模式程序调试方法出错处理一、错误类型一、错误类型编译错误运行错误逻辑错误二、二、VisualBasic工作模式工作模式设计模式运行模式中断模式三、三、程序的调试方法程序的调试方法调试工具调试方法1.调试工具l调试工具条调试工具条l【调试调试】和和【运行运行】菜单菜单l调试窗口及其使用方法调试窗口及其使用方法调试窗口l在在【代码代码】窗口察看
45、某些变量的值窗口察看某些变量的值l在立即窗口执行代码在立即窗口执行代码l在在【本地本地】窗口显示局部变量的当前值窗口显示局部变量的当前值l在在【监视监视】窗口显示选定表达式的值窗口显示选定表达式的值2.调试方法l断点的设置断点的设置l跟踪应用程序执行跟踪应用程序执行断点的设置l在程序代码窗口中设置在程序代码窗口中设置lStop语句语句跟踪应用程序执行l逐语句执行代码逐语句执行代码l逐过程执行代码逐过程执行代码l从过程中跳出从过程中跳出l运行到光标处运行到光标处l设置下一条要执行的语句设置下一条要执行的语句四、四、出错处理出错处理设置错误捕获编写错误处理程序退出错误处理程序设置错误捕获lOnEr
46、rorGoTolinelOnErrorResumeNextlOnErrorGoTo0退出错误处理程序lResumelResumeNextlResumelineVisual Basic 6.0程序设计（第二版） 第5章数组与过程第一节第一节 数组数组一、数组的概念一、数组的概念数组数组具有具有相同数据类型相同数据类型的的数据数据的集合。的集合。 二、二、VBVB中有两种类型的数组中有两种类型的数组大小固定的数组和动态数组。大小固定的数组和动态数组。1. 大小固定的数组大小固定的数组( (在在定义时确定数组的大小定义时确定数组的大小) ) （1）数组的声明：）数组的声明： Dim|private
47、Dim|private 数组名数组名( (下标范围下标范围) As ) As 类型类型 说明：说明：数组的命名遵循标识符命名的规则数组的命名遵循标识符命名的规则 下标范围的表示方法下标范围的表示方法： n n 范围范围0n 1 to n 1 to n范围范围1n区区别别: : DimN(1010)AsInteger与与DimN(1 1 to to 1010)AsIntegerOptionbase语句：在通用声明段使用语句：在通用声明段使用optionbase1(2)数组的使用数组的使用 数组名数组名( (索引号索引号) ) 数组的初始化、输入、输出。PrivateSubForm_Click()
48、DimiAsIntegerDimNumber(10)AsIntegerFori=0To10Number(i)=iNextiPrintFori=0To10PrintNumber(i);NextiEndSub例题2. 动态数组动态数组( (定义时不确定数组的大小定义时不确定数组的大小) ) 建立动态数组的方法：建立动态数组的方法：声明时不给出数组的大小声明时不给出数组的大小( (省略括号中的下标范省略括号中的下标范围围) )在使用它的过程中，用在使用它的过程中，用ReDim语句对它的维数语句对它的维数和上下界进行定义。和上下界进行定义。 例如Dimmark()AsIntegerprivatesub
49、form_click()ReDimmark(1to10)endsub注意：注意：(1)Redim语句只能出现在过程中。语句只能出现在过程中。(2)可以使用可以使用 Redim语句反复地改变数组的元素以及语句反复地改变数组的元素以及维数的数目，但是不能在将一个数组定义为某种数维数的数目，但是不能在将一个数组定义为某种数据类型之后，再使用据类型之后，再使用 ReDim 将该数组改为其它数据将该数组改为其它数据类型。类型。例题例题(3)每次执行每次执行Redim语句时，原来存储在数组中的值语句时，原来存储在数组中的值全部丢失。若希望保留原来的数据，要使用全部丢失。若希望保留原来的数据，要使用Pres
50、erve语句。语句。(4)如果使用了如果使用了Preserve，只允许重定义数组最末维，只允许重定义数组最末维的大小的大小三、控件数组三、控件数组1、控件数组的概念、控件数组的概念控件数组是一组控件数组是一组具有相同名称具有相同名称的控件，每个控件的控件，每个控件称为称为“控件元素控件元素”，各元素之间通过，各元素之间通过索引索引Index相相区别。区别。控件数组的应用场合控件数组的应用场合:类型相同类型相同,功能相似的控件功能相似的控件2、控件数组的建立方法控件数组的建立方法将相同名字赋予多个控件；将相同名字赋予多个控件；复制现有控件并粘贴到窗体上；复制现有控件并粘贴到窗体上；将控件的将控件
51、的Index属性设置为非空值。属性设置为非空值。3、控件数组的使用方法控件数组的使用方法第二节过程一、过程的定义一、过程的定义 过程过程构成程序的一个基本单位构成程序的一个基本单位 。实现某。实现某一特定功能或若干功能的代码段。一特定功能或若干功能的代码段。使用过程的两大优点：使用过程的两大优点：便于调试便于调试代码重用代码重用Sub过程：过程： 分为事件过程和通用过程。分为事件过程和通用过程。 区别：过程的调用方式不同。区别：过程的调用方式不同。1、事件过程：、事件过程：由对象的事件所触发调用由对象的事件所触发调用 说明：说明：窗体的事件过程名由窗体的事件过程名由 Form_Form_事件名
52、事件名 组合构组合构成成 控件的事件过程名由控件的控件的事件过程名由控件的 Name_Name_事件名事件名组组合构成合构成例如：例如：PrivateSubForm_Load()EndSubPrivateSubCommand1_Click()EndSub2 2、通用过程：存放多个程序需要共同使用的一段代码（公用代码）、通用过程：存放多个程序需要共同使用的一段代码（公用代码）创建创建： (1)(1)直接输入过程头，按回车后将自动出现过程尾直接输入过程头，按回车后将自动出现过程尾格式：格式：Private|PublicStaticSub过程名过程名(形式参数表形式参数表) 过程头过程头 语句语句
53、过程体过程体EndSub 过程尾过程尾 说明：说明：可以使用可以使用ExitSub退出；退出；不能嵌套定义，但可以调用其它过程。不能嵌套定义，但可以调用其它过程。(2)(2)利用利用“工具工具/ /添加过程添加过程”命令，设置对话框即可。命令，设置对话框即可。 然后在代码窗口中定义过程的参数然后在代码窗口中定义过程的参数Function过程过程( (也称为函数过程也称为函数过程 ) ) 与与SubSub过程区别：过程区别：Function过程带有返回值，定义时有过程带有返回值，定义时有返回值的类返回值的类型说明型说明。 可以在“代码窗口”直接定义或“工具/添加过程”对话框中定义。然后在代码窗口
54、中定义过程的参数，返回值类型为了使函数过程返回结果，一般在函数过程中应有“函数名=表达式”这样的语句，如省略，则数值函数返回0，字符串返回空字符串。可以用ExitFunction退出；格式：Private|PublicStaticFunction函数名(形式参数)As类型函数名=表达式语句EndFunction说明：函数的创建与通用过程的创建相似：用Function代替Sub；二、过程的调用二、过程的调用1、在其它过程中、在其它过程中调用通用过程调用通用过程使用使用Call语句：语句：Call过程名过程名(实在参数实在参数)使使用用过过程程名名：过过程程名名实实在在参参数数（注注意意：实参不能
55、有圆括号）实参不能有圆括号）例题：见下页例题：见下页2、函数过程的调用：、函数过程的调用：变量名变量名=函数名函数名(参数列表参数列表)例例把三个整数按从大到小的次序排列并显示出来把三个整数按从大到小的次序排列并显示出来PublicSubsort(xAsInteger,yAsInteger)通用过程DimTempAsIntegerIfx= 100 Then Timer1.Enabled = False End IfEnd Sub课堂练习课堂练习1 1使用使用ActiveXActiveX控件控件VisualBasic程序设计基础练习1：使用MediaPlayer控件设计一个媒体播放器。单击命令按
56、扭，打开文件播放。如左图所示。（并尝试用MMControl控件实现）课堂练习使用课堂练习使用ActiveXActiveX控件控件VisualBasic程序设计基础练习2：设计一个含WebBrowser控件的应用程序，运行结果下图所示第11章 使用ActiveX控件认识并装载认识并装载ActiveX控件控件常用常用ActiveX控件控件介绍介绍使用使用ActiveX控件控件用户自定义用户自定义ActiveX控件控件用户自定义用户自定义ActiveXActiveX控件控件VisualBasic程序设计基础11.4.1自定义一个自定义一个ActiveX控件控件新建新建工程工程制作界面制作界面选择工程
57、类型见见下下页页用户自定义用户自定义ActiveXActiveX控件控件VisualBasic程序设计基础11.4.1自定义一个自定义一个ActiveX控件控件设置设置属性属性添加添加代码代码课堂练习课堂练习2 2VisualBasic程序设计基础11.4.1自定义一个自定义一个ActiveX控件控件设计一ActiveX控件，实现在左右两列表框中数据项的相互转移，如右图所示。生成文件为select.ocx用户自定义用户自定义ActiveXActiveX控件控件VisualBasic程序设计基础11.4.2使用自定义的使用自定义的ActiveX控件控件在程序中使用自定义的ActiveX控件同使用
58、一般的ActiveX控件的步骤一样，但正确地把自定义的ActiveX控件加入到工具箱中。单击浏览按钮Visual Basic 6.0程序设计（第二版） VisualBasic程序设计基础第13章 应用程序系统的开发应用程序系统开发概述应用程序系统开发概述应用程序系统开发实例应用程序系统开发实例应用程序系统开发概述应用程序系统开发概述VisualBasic程序设计基础12.1.1软件开发的一般过程软件开发的一般过程可行性研可行性研究阶段究阶段需求分需求分析阶段析阶段设计设计阶段阶段编码编码阶段阶段测试与调测试与调试阶段试阶段运行维运行维护阶段护阶段应用程序系统开发概述应用程序系统开发概述l程序质
59、量标准程序质量标准正确性正确性结构性结构性健壮性健壮性可操作性可操作性可读性可读性高效率，省资源高效率，省资源扩充性能好，易于移植扩充性能好，易于移植运行可靠，维护性能好运行可靠，维护性能好VisualBasic程序设计基础12.1.2程序质量和设计程序质量和设计应用程序系统开发概述应用程序系统开发概述l程序设计程序设计程序模块化程序模块化目标：高内聚和低耦合目标：高内聚和低耦合自顶向下和自底向上自顶向下和自底向上自顶向下：先整体后局部，先抽象后具体自顶向下：先整体后局部，先抽象后具体自底向上：对原来的设想进行改错、补充、加工或优化自底向上：对原来的设想进行改错、补充、加工或优化VisualB
60、asic程序设计基础12.1.2程序质量和设计程序质量和设计应用程序系统开发概述应用程序系统开发概述l程序界面是用户与操作程序间的程序界面是用户与操作程序间的接口，进行良好的程序界面设计接口，进行良好的程序界面设计应充分考虑以下几个方面：应充分考虑以下几个方面：控件的位置控件的位置保持界面的简明保持界面的简明界面元素的一致性界面元素的一致性空白空间的使用空白空间的使用使用颜色使用颜色使用规范化的命名使用规范化的命名VisualBasic程序设计基础12.1.3界面设计方法界面设计方法糟糕的界面良好的界面应用程序系统开发概述应用程序系统开发概述l使用规范化的命名使用规范化的命名控件控件控件控件缩
61、写前缀缩写前缀缩写前缀缩写前缀控件控件控件控件缩写前缀缩写前缀缩写前缀缩写前缀窗体（Form) Frm图片框(PictureBox)Pic标签(Label)Lbl图像框(Image)Img文本框(Text)Txt定时器(Timer)Tmr单选按钮(OptionButton)Opt数据库控件(Data)Dat组合框(ComboBox)Cbo框架(Frame)Fra列表框(ListBox)Lst复选框(CheckBox)Chk水平滚动条(HscrollBar)Hsr垂直滚动条(VscrollBar)VsrVisualBasic程序设计基础12.1.3界面设计方法界面设计方法第11章 使用Activ
62、eX控件应用程序系统开发概述应用程序系统开发概述应用程序系统开发实例应用程序系统开发实例应用程序系统开发实例应用程序系统开发实例VisualBasic程序设计基础创建一个“多文档编辑器”应用程序，可以进行文档录入、编辑等工作，可以按“.RTF”文件格式保存文档。运行界面如左图所示应用程序系统开发实例应用程序系统开发实例VisualBasic程序设计基础12.2.1应用程序模块设计应用程序模块设计装载事件Load标准模块Module1.basMDI主窗体frmMain.frm卸事件Unload菜单事件Click工具栏按扭事件Buttonclick窗体级Sub过程LoadNewDoc文件、编辑、视
63、图、窗口菜单事件Click帮助事件Click帮 助 窗 体frmAbout.frm文档编辑窗体模块frmDocument.frm窗体事件RichTextBox文本框事件窗体级Sub过程FileSave窗体事件应用程序系统开发实例应用程序系统开发实例l新建工程新建工程VisualBasic程序设计基础12.2.2应用程序界面设计应用程序界面设计 新建新建工程工程添添加加MDI窗窗体体添加添加MicrosoftWindowsCommonControls6.0、MicrosoftCommonDialog6.0和和MicrosoftRichTextboxControl6.0引引入入ActiveX控控件
64、件应用程序系统开发实例应用程序系统开发实例l窗体设计和属性设置窗体设计和属性设置VisualBasic程序设计基础12.2.2应用程序界面设计应用程序界面设计MDI窗体编辑窗体帮助窗体应用程序系统开发实例应用程序系统开发实例l主要代码分析主要代码分析VisualBasic程序设计基础编辑窗体变量，用于判断文档是否已被修改Public boolDirty As BooleanPrivate Sub Form_Activate( ) boolDirty = FalseEnd Sub编辑框内容发生变化时的事件过程Private Sub refText_Change( ) boolDirty = Tr
65、ueEnd Sub12.2.3应用程序代码设计应用程序代码设计应用程序系统开发实例应用程序系统开发实例VisualBasic程序设计基础Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)If boolDirty ThenIf MsgBox(是否保存 & Me.Ca ption & ?, _vbDefaultButton1+vbYesNo+vbInformation)= _vbYes ThenFileSave End IfEnd IfEnd Sub12.2.3应用程序代码设计应用程序代码设计应用程序系统开发
66、实例应用程序系统开发实例VisualBasic程序设计基础12.2.4应用程序的编译及安装盘制作应用程序的编译及安装盘制作n应用程序的编译设置编译条件编译生成EXE文件应用程序系统开发实例应用程序系统开发实例l安装盘的制作安装盘的制作VisualBasic程序设计基础12.2.4应用程序的编译及安装盘制作应用程序的编译及安装盘制作输入需打包的工程名进行打包应用程序系统开发实例应用程序系统开发实例VisualBasic程序设计基础12.2.4应用程序的编译及安装盘制作应用程序的编译及安装盘制作应用程序系统开发实例应用程序系统开发实例VisualBasic程序设计基础12.2.4应用程序的编译及安装盘制作应用程序的编译及安装盘制作
