1、1 本章主要介绍程序代码设计基础知识：数本章主要介绍程序代码设计基础知识：数据类型、变量、常量、运算符、表达式和基本据类型、变量、常量、运算符、表达式和基本语句。以程序代码编写为核心，介绍语句。以程序代码编写为核心，介绍VB语言工语言工具的高级用法：数组、过程与函数。具的高级用法：数组、过程与函数。学习重点：学习重点：掌握掌握VBVB的数据类型、变量、表达式以及运算符的优先级。的数据类型、变量、表达式以及运算符的优先级。掌握掌握VBVB的常用语句和结构化程序设计的三种基本结构。的常用语句和结构化程序设计的三种基本结构。掌握掌握VBVB中数组、过程与函数的定义及其用法。中数组、过程与函数的定义及
2、其用法。第三章第三章 程序设计基础程序设计基础2 3.1 基本语法基本语法 3.2 结构化程序设计的三种基本结构结构化程序设计的三种基本结构 3.3 基本语句基本语句 3.4 数组数组 3.5 过程过程 3.6 内部函数内部函数3 3.1 基本语法基本语法43.1.0 VB的编码规则的编码规则VB和任何程序设计语言一样，编写代码有一定的书写规则：和任何程序设计语言一样，编写代码有一定的书写规则：1.VB代码不区分字母的大小写代码不区分字母的大小写2.语句书写自由语句书写自由 （1）同一行上可以书写多条语句，语句间用）同一行上可以书写多条语句，语句间用“：”分隔；分隔；（2）续行符（空格下划线）
3、续行符（空格下划线）“_”；（3）一行允许多达）一行允许多达255个字符。个字符。3.注释有利于程序的维护和调试注释有利于程序的维护和调试 注释以注释以Rem 开始，但一般用西文单引号开始，但一般用西文单引号“”引导注释引导注释的内容，可以直接出现在语句的后面。的内容，可以直接出现在语句的后面。3.1.1 数据类型数据类型 数据具有数据类型，数据类型是数据的表示和存储形数据具有数据类型，数据类型是数据的表示和存储形式，在式，在VB中，不仅提供了系统定义的基本数据类型，而且中，不仅提供了系统定义的基本数据类型，而且允许用户自定义数据类型。允许用户自定义数据类型。1.1.基本数据类型基本数据类型
4、1）数值数据类型数值数据类型(P.40表表3-1)2）字符串型数据（字符串型数据（String）字符串是一个用双引号括起来的字符序列，由字字符串是一个用双引号括起来的字符序列，由字母、数字和汉字组成。例：母、数字和汉字组成。例：“Visual Basic 6.0程程序设计序设计”。VB的字符串有两种，即可变长度字符串的字符串有两种，即可变长度字符串和固定长度字符串。和固定长度字符串。63）布尔型数据（）布尔型数据（Boolean）布尔型数据是一个逻辑值，用布尔型数据是一个逻辑值，用2个字节存储，只能取逻个字节存储，只能取逻辑值辑值True或或 False。当把布尔型数据转换为数值型数据时，。当
5、把布尔型数据转换为数值型数据时，Fasle 转换为转换为0，True 转换为转换为-1。当把数值型数据转换为布。当把数值型数据转换为布尔型数据时，尔型数据时，0 转换为转换为False，其它非，其它非0 值转换为值转换为True。4）日期型数据（）日期型数据（Date）用于表示日期和时间，在内存中占用于表示日期和时间，在内存中占8个字节。个字节。例：例：#05/21/03#。5）对象型数据（）对象型数据（Object）对象型数据用于表示应用程序或某些其他应用程序中对象型数据用于表示应用程序或某些其他应用程序中的对象，在内存中占的对象，在内存中占4个字节。个字节。6）变体类型（）变体类型（Var
6、iant）Variant 是一种特殊的数据类型，是所有未定义的变量是一种特殊的数据类型，是所有未定义的变量的默认数据类型。变体类型是可变的数据类型，可用于表的默认数据类型。变体类型是可变的数据类型，可用于表示任何值，如数值、字符、日期等，并且占用的存储空间示任何值，如数值、字符、日期等，并且占用的存储空间随类型的改变而改变。随类型的改变而改变。VB标准数据类型标准数据类型 82.2.用户自定义类型用户自定义类型 (P.41)(P.41)用用Type 语句自定义数据类型。语句自定义数据类型。格式：Private|Public Type 元素名 As 数据类型 元素名 As 数据类型 End Ty
7、pe其中，用户类型名是用户自定义的数据类型名其中，用户类型名是用户自定义的数据类型名 （例：（例：student）,元素可以是任何基本数据类型，也可以是用户自定义数据类型。元素可以是任何基本数据类型，也可以是用户自定义数据类型。例：例：描述学生的学籍情况，应有该学生学号、姓名、成绩等。描述学生的学籍情况，应有该学生学号、姓名、成绩等。Private Type student num As String*8 定义num为字符串变量 name As String*8 score As Integer End Type93.1.2 常量与变量常量与变量 1.1.常量常量 常量是指在程序运行过程中始终
8、保持不变的量，在常量是指在程序运行过程中始终保持不变的量，在VB中有三种形式的常量，即中有三种形式的常量，即直接常量、符号常量和系统提直接常量、符号常量和系统提供的常量供的常量。1 1）直接常量）直接常量 直接常量就是在程序代码中，以直接明显的形式给出直接常量就是在程序代码中，以直接明显的形式给出的的常数值。常数值。根据常量的数据类型，可分为字符串常量、根据常量的数据类型，可分为字符串常量、数值常量、布尔常量和日期常量。数值常量、布尔常量和日期常量。例：例：“Visual Basic”，234，True，#05/04/03#。2 2）符号常量）符号常量 在程序中，可以定义符号常量，用来代替直接
9、常量。必在程序中，可以定义符号常量，用来代替直接常量。必须先定义，再使用。须先定义，再使用。符号名必须是以字母开头符号名必须是以字母开头，由字母、，由字母、数字、下划线组成的长度不大于数字、下划线组成的长度不大于40的字符串。的字符串。10定义符号常量的格式为：定义符号常量的格式为：Const 符号符号常量名常量名 As 类型类型=表达式表达式 省略省略 AS 类型类型，常量的类型由表达式值的类型决定 为使与变量名区分，一般常量名使用大写字母 注意：注意：符号常量一经声明，在其后的代码中只能引用，不能改变。符号常量一经声明，在其后的代码中只能引用，不能改变。例：例：Const MAX=100
10、Const Birthday=#05/21/97#Const PI As Double=3.14159 声明PI为双精度常量113 3）系统提供的常量）系统提供的常量 系统定义的常量位于系统定义的常量位于对象库对象库中中,可通过可通过“对象浏览器对象浏览器”查查看看.例例:窗口状态属性窗口状态属性WindowsState 可接受下列常量：可接受下列常量：常量常量 值值 描述描述 vbNormal 0 正常正常 vbMinimized 1 最小化最小化 vbmaximized 2 最大化最大化 若若要将窗口最大化，可以使用要将窗口最大化，可以使用WindowsState 的常量，的常量，也可以使
11、用也可以使用WindowsState 的值：的值：Form1.WindowsState=vbmaximized 或或 Form1.WindowsState=2122.2.变量变量 变量，是内存中保存信息（值）的内存区域，它变量，是内存中保存信息（值）的内存区域，它的内容在程序运行过程中是可变的。的内容在程序运行过程中是可变的。在程序运行过程中，可以改变的量称为在程序运行过程中，可以改变的量称为变量变量。1 1）变量的命名规则：）变量的命名规则：只能以字母开头，由字母、数字和下划线组成，长度只能以字母开头，由字母、数字和下划线组成，长度不得超过不得超过255个字符。个字符。VB中不区分变量名的大
12、小写中不区分变量名的大小写。不能不能使用使用VB的的关键字关键字作变量名。作变量名。为了增加程序的可读性，可在变量名前加一个缩写的为了增加程序的可读性，可在变量名前加一个缩写的前缀来表明该变量的数据类型。例：前缀来表明该变量的数据类型。例：intCount 例：例：变量变量x、abc、x2、c_d等都是合法变量；而等都是合法变量；而2x、x+y等都是不合法变量。等都是不合法变量。132 2）变量的数据类型）变量的数据类型 在在VB中中数据类型数据类型决定了如何将变量存储到内存中，每决定了如何将变量存储到内存中，每种数据类型占用的内存空间是不一样的。种数据类型占用的内存空间是不一样的。所有的变量
13、都具有数据类型，数据类型决定了变量能所有的变量都具有数据类型，数据类型决定了变量能够存储哪种数据（能够处理哪种数据）。够存储哪种数据（能够处理哪种数据）。在在VB定义的各种数据类型中，按照处理数据种类的不定义的各种数据类型中，按照处理数据种类的不同，可将起其分为如下几类同，可将起其分为如下几类 数值型数据类型：数值型数据类型：专门处理数值型数据。专门处理数值型数据。非数值型数据类型：非数值型数据类型：如字符数据、逻辑数据、日期数据如字符数据、逻辑数据、日期数据 变体数据类型：变体数据类型：可以随时改变数据类型的数据可以随时改变数据类型的数据用用 Dim Dim 语句显式声明变量语句显式声明变量
14、格式格式:Dim 变量名变量名 AS 类型类型 或或 Dim 变量名类型符变量名类型符 说明：说明：将给定的变量名声明为指定类型的变量将给定的变量名声明为指定类型的变量 如果如果 As 类型类型部分省略，所建立的变量类型默认为变部分省略，所建立的变量类型默认为变体类型。体类型。在一个在一个Dim语句中可以定义语句中可以定义多个变量多个变量，但每个变量必，但每个变量必须有自己的类型声明。须有自己的类型声明。变量变量未进行上述的声明而直接使用，其未进行上述的声明而直接使用，其类型为类型为 Variant 类型。即类型。即隐式声明隐式声明 在使用变量前，最好先声明这个变量。所谓声明变在使用变量前，最
15、好先声明这个变量。所谓声明变量就是事先将变量的有关信息通知程序。量就是事先将变量的有关信息通知程序。3 3）变量的声明）变量的声明例：例：Dim Age As Integer 或Dim Age%定义Age为整型变量 Dim StrTemp As String 定义StrTemp为不定长字符型变量 Dim StrName As String*10 定义StrName 为定长(10)字符变量 Dim Number As Single,Count As Single 定义Number和Count都是单精度变量 Dim Number,Count As Single 定义Number为变体变量，Coun
16、t为单精度变量 注意注意:在通用声明处加在通用声明处加 Option Explicit 语句可语句可强制强制显式声明显式声明变量。变量。在运行程序时，遇于到未经明确声明的变量名，在运行程序时，遇于到未经明确声明的变量名，VB就会就会发出警告。发出警告。163.1.3 运算符和表达式运算符和表达式1.1.运算符运算符 VB的运算符可以分为四种：的运算符可以分为四种：算术运算符算术运算符 字符串运算符字符串运算符 关系运算符关系运算符 逻辑运算符逻辑运算符1)1)算术运算符算术运算符 (P.43)算术运算符用于对数值型数据执行各种算术运算。在VB中按运算优先级从高到低分别为：（乘方）、(负号)、*
17、（乘法）、/（浮点除、（整除）、mod（取模）、+（加法）、-（减法）。17算术运算符算术运算符 (P.43)表中表中ia 初值为初值为318 算术运算符两边的操作数应是数值型，若是数算术运算符两边的操作数应是数值型，若是数字字符或逻辑型，则自动转换成数值类型后再运算。字字符或逻辑型，则自动转换成数值类型后再运算。例如：例如：72运算结果为运算结果为49 7*2运算结果为运算结果为14 7/2（浮点除法）运算结果为运算结果为3.5 72（整除）运算结果为运算结果为3 7 mod 2运算结果为运算结果为1 MOD运算，含义是取得两个整数相除后结果的余数。7+2运算结果为运算结果为9 7-2运算结
18、果为运算结果为5192)2)字符串运算符字符串运算符 字符串运算符：字符串运算符：、+用于字符串连接。用于字符串连接。区别区别:+两边两边的操作数均为的操作数均为字符型字符型。若一个为数字字符型（如。若一个为数字字符型（如“123”），另一个为数值型，则自动），另一个为数值型，则自动将数字字符转换将数字字符转换为为数值，再进行算术加；若一个为非数字字符型，另一个数值，再进行算术加；若一个为非数字字符型，另一个为数值型，则出错。为数值型，则出错。&两边两边的操作数不管是的操作数不管是字符型还是数值型，先将字符型还是数值型，先将操作数操作数转换成字符，然后再连接。转换成字符，然后再连接。例如例如:
19、abcdef+12345 出错 abcdef&12345 结果为 abcdef12345 123&456 结果为 123456 “123”+456 结果为 579注意：注意：“123”+True 结果为 122，这是由于 True转换为转换为数值数值-1，False转换为数值转换为数值0203)3)关系运算符关系运算符 关系运算符用于对两个表达式的值进行比较，运算结果关系运算符用于对两个表达式的值进行比较，运算结果是一个逻辑值。是一个逻辑值。若两个操作数是数值型，按其大小比较；若两个操作数若两个操作数是数值型，按其大小比较；若两个操作数是字符型，则按字符的是字符型，则按字符的ASCII码值码值
20、从左到右一一比较从左到右一一比较,直到出直到出现不同的字符为止。关系运算符的优先级相同。现不同的字符为止。关系运算符的优先级相同。例如例如：3 9 结果为 False 4)4)逻辑运算符逻辑运算符 (P.43表表3-3)其作用是对表达式进行逻辑运算，结果是逻辑值。其作用是对表达式进行逻辑运算，结果是逻辑值。和关系运算符一样，逻辑运算通常也用来判断程序流程。和关系运算符一样，逻辑运算通常也用来判断程序流程。例如：例如：If Num=60 And Num=100 Then 最常用的逻辑运算是最常用的逻辑运算是：Not(非非)：由真变假或由假变真，进行由真变假或由假变真，进行“取反取反”运算。运算。
21、And(与与)：如果两个表达式的值均为如果两个表达式的值均为True，结果才为结果才为True，否则为否则为False。Or(或或)：如果两个表达式中某一个表达式的值为如果两个表达式中某一个表达式的值为TrueTrue，结果为结果为True，只有两个表达式的值均为只有两个表达式的值均为False时，结果才为时，结果才为False。Xor(异或异或)：如果两个表达式如果两个表达式同时同时为为True或或同同时时为为False，则结果为，则结果为False否则否则为为True（即一真一假时为（即一真一假时为True）。）。Eqv(等价等价)：如果两个表达式如果两个表达式同时同时为为True或或同同
22、时时为为False e，则结果为，则结果为True否则为否则为False。Imp(蕴含蕴含)：当第一个表达式为当第一个表达式为True，且第二，且第二个表达式为个表达式为False时，结果为时，结果为False。按优先级按优先级从高到低从高到低分分别是：别是：Not（取反）（取反）And（与）（与）Or（或）（或）Xor（异或）（异或）Eqv(等价等价)Imp(蕴含蕴含)23 若逻辑运算符对数值进行运算，则以数字的二进制值按位进若逻辑运算符对数值进行运算，则以数字的二进制值按位进行逻辑运算。行逻辑运算。例：例：12 And 7,二进制数二进制数1100与与0111进行进行And运算，得二进制数
23、运算，得二进制数100，结果为，结果为4。例：例：Not(27)运算结果为运算结果为False (P.43)(27)And(65)运算结果为运算结果为False (27)Or(65)运算结果为运算结果为True 利用逻辑运算符对数值进行运算的表达式利用逻辑运算符对数值进行运算的表达式：例例1：表示表示10=x20 并且并且1y=5 表达式：表达式：(10=x And x20)And (1y And y=5)例例2：x，y 中有一个小于中有一个小于0 表达式：表达式：(x0)Or(x0 And y=“A”And ch=“a”And ch=“z”)242.2.表达式表达式 1）组成）组成 由由变量
24、、常量、函数、运算符和圆括号按一定的规则变量、常量、函数、运算符和圆括号按一定的规则组成。组成。2）书写规则）书写规则 (1)运算符不能相邻。例运算符不能相邻。例a+-b是错误的。是错误的。(2)乘号不能省略。乘号不能省略。例例x 乘以乘以y 应写成：应写成：x*y；2x 应写成：应写成：2*x (3)括号必须成对出现，均使用圆括号。括号必须成对出现，均使用圆括号。(4)表达式从左到右在同一基准上书写，无高低、大小。表达式从左到右在同一基准上书写，无高低、大小。253）算术表达式中数据类型的转换算术表达式中数据类型的转换 在算术运算中，如果操作数采用不同的数据精度，在算术运算中，如果操作数采用
25、不同的数据精度，则则VB规定，运算结果的数据类型采用规定，运算结果的数据类型采用向精度高的数据向精度高的数据类型靠。类型靠。IntegerLongSingleDoubleCurrency 整型整型 长整型长整型 单精度单精度 双精度双精度 字符运算符字符运算符关系运算符关系运算符逻辑运算符逻辑运算符 对于同种运算符则按优先级处理。对于同种运算符则按优先级处理。26例：例：表达式表达式 书写为：书写为：a*b*c*d/e/f/g 或或 a*b*c*d/（e*f*g）例：例：设设a=3，b=5，c=-1，d=7 计算表达式计算表达式 (P.43)efgabcd27 3.2 结构化程序设计的三种基本
26、结构结构化程序设计的三种基本结构28程序控制语句程序控制语句Visual Basic语言作为结构化程序设计语语言作为结构化程序设计语言，提供了三种控制流来控制程序的流言，提供了三种控制流来控制程序的流程：程：顺序，条件分支和循环语句顺序，条件分支和循环语句。293.2.1 顺序结构顺序结构 整个程序按书写顺序依次执行整个程序按书写顺序依次执行。语句块语句块1语句块语句块2303.2.2 选择结构选择结构 如图如图3-2所示，当条件成立时执行所示，当条件成立时执行A程序块，否则执程序块，否则执行行B程序块，即程序块，即A与与B只能执行其中一个。只能执行其中一个。图图3-2选择结构选择结构语句块语
27、句块A语句块语句块B条件条件假 真 3.2.3 循环结构循环结构在在VB中有中有2种循环结构：种循环结构：1.图图3-3为为 当型循环结构当型循环结构，当，当条件条件成立时，重复执行成立时，重复执行循环体语循环体语句句，直到条件为假，停止循环。，直到条件为假，停止循环。2.图图3-4为为直到型循环结构直到型循环结构，先执行，先执行循环体语句循环体语句，再判断，再判断条件条件是否为真，若为真，再执行是否为真，若为真，再执行循环体循环体，直到条件为假。，直到条件为假。循环体循环体条件条件假 真(1)当型循环结构(2)直到型循环结构循环体循环体条件条件假 真 32 3.3 基本语句基本语句333.3
28、.1 赋值语句赋值语句1.1.语句格式：语句格式：=或：或：.=2.2.语句功能语句功能 计算表达式的值，并将该值赋给赋值号（计算表达式的值，并将该值赋给赋值号（=）左边的变量或对）左边的变量或对象属性。象属性。3.3.使用赋值语句时，应注意以下几点：使用赋值语句时，应注意以下几点：1)赋值号左边只能是变量或对象的属性，不能是表达式、常量、赋值号左边只能是变量或对象的属性，不能是表达式、常量、函数。函数。2)赋值号两边必须类型一致，若赋值号两边必须类型一致，若“”两边同是数值型，而且两边同是数值型，而且有不同精度，系统自动强制转换成左边的精度。有不同精度，系统自动强制转换成左边的精度。例：例：
29、a%=4.7 a是整型变量，a 中的结果是4。强制转换3)赋值语句中的赋值语句中的“=”与关系运算符中的与关系运算符中的“=”的作用截然不同。的作用截然不同。4.4.实例：实例：Form1.caption=输入框输入框343.3.2 注释语句注释语句1.1.语句格式语句格式 注释内容注释内容 或或 Rem 2.2.语句功能语句功能 注释语句给程序中的语句或程序段加上注释内容，以提高注释语句给程序中的语句或程序段加上注释内容，以提高程序的可读性。注释语句是非执行语句，仅对程序的有关内程序的可读性。注释语句是非执行语句，仅对程序的有关内容起注释作用，不被解释和编译。注释语句不能放在续行符容起注释作
30、用，不被解释和编译。注释语句不能放在续行符后。后。例：例：c=b：b=a：b=c 交换A、B的值 或写成：或写成：Rem 交换A、B的值 c=b：b=a：b=c353.3.3 Stop语句语句格式：格式：Stop功能功能：暂时停止程序的执行。暂时停止程序的执行。说明：说明：Stop语句可以放在程序的任何地方，它的作用相当于在语句可以放在程序的任何地方，它的作用相当于在程序代码中设置的断点。程序代码中设置的断点。类似于类似于执行执行“运行运行”菜单中的菜单中的“中中断断”命令，当执行命令，当执行Stop语句时，语句时，系统将自动打开立即窗口，系统将自动打开立即窗口，方便用户调试跟踪程序。方便用户
31、调试跟踪程序。当程序调试结束后，生成可执行文件（当程序调试结束后，生成可执行文件（.ExE）之前，应）之前，应删去代码中的所有删去代码中的所有Stop语句。语句。3.3.4 结束语句结束语句格式：格式：End 功能：功能：End语句用于结束程序的运行。为了保持程序的完语句用于结束程序的运行。为了保持程序的完整性，应当在程序中含有整性，应当在程序中含有End语句。语句。36 3.2.5 加载对象语句加载对象语句Load 语法格式：语法格式：Load 对象名 功能：功能：把对象名代表的窗体对象、控件数组元素等加载到内存中。说明：说明：使用Load语句可以加载窗体，但不显示窗体。当VB加载窗体对象时
32、，先把窗体属性设置为初始值，再执行Load事件过程。例如：例如：Load Forml 加载窗体Forml Load Option(2)加载控件数组中的一个元素37 3.2.6 卸载语句卸载语句Unload 格式：格式：Unload 对象名对象名 功能：从内存中卸载指定窗体或控件。功能：从内存中卸载指定窗体或控件。如果卸载的对象是程序唯一的窗体，则将终止程如果卸载的对象是程序唯一的窗体，则将终止程序的执行。序的执行。例如：例如：Private Sub Command1_Click()Unload Me 卸载当前窗体卸载当前窗体 End Sub Me是系统关键字，用来代表当前窗体是系统关键字，用来
33、代表当前窗体381.InputBox 函数函数使用InputBox函数获取输入,调用方式：3.3.7 人机交互函数人机交互函数(P.117)函数名称变量名参数Fullname=InputBox (prompt,title)InputBox 功能功能 打开一个对话框，等待用户输入内容，当用户单打开一个对话框，等待用户输入内容，当用户单击击“确定确定”按钮或按回车键时，函数返回输入的值，按钮或按回车键时，函数返回输入的值，其值的类型为字符串。其值的类型为字符串。说明：说明：实现数据的输入，实现数据的输入，最常用的方法是最常用的方法是InputBox()函数函数和使用和使用文本框控件文本框控件。文本
34、框控件用于接收输入的文本信息（字符文本框控件用于接收输入的文本信息（字符型），它将接收的字符串保存在文本框的型），它将接收的字符串保存在文本框的Text属性中。属性中。例例:Dim x%是整型的类型符 x=InputBox(“x=“)系统将输入的字符串自动转换数值系统将输入的字符串自动转换数值-x或或 x=Val(Text1.Text)将数字字符用将数字字符用Val函数转换为数值数据函数转换为数值数据-xx=InputBox(“x=InputBox(输入输入X的值：的值：,输入框输入框)或或 x=Val(InputBox(“x=InputBox(输入输入X的值：的值：,输入框输入框)x=Val
35、(Text1.Text)例：例：当键盘输入当键盘输入“王晓明王晓明”后，变量后，变量strName获得键盘输入的值获得键盘输入的值.Dim strName As String*40，strS1 As String*40 声明定长字符串变量可存放40个字strS1=“请输入你的姓名”+Chr(13)+Chr(10)+“然后单击确定”strName=InputBox(strS1，“输入框”)输入对话框变量strS1中的内容作为对话框的提示信息。42可在需换行处加可在需换行处加chr(13)回车符或回车符或chr(10)换行符换行符:Private Sub Command1_Click()Dim p
36、rompt,fullname prompt=请输入请输入+Chr(13)+你你+Chr(10)+的的+Chr(10)+姓姓+Chr(10)+名名 fullname=InputBox(prompt)Label1.Caption=fullnameEnd Sub43请输入+Chr(13)+你+Chr(10)+的+Chr(10)+姓+Chr(10)+名chr(13)回车符或回车符或chr(10)换行符效果：换行符效果：44 2.MsgBox 函数函数 使用MsgBox 函数输出信息,调用方式：MsgBox 函数的最简形式为:MsgBox（prompt）变量名要显示的信息对话框上显示的按钮数量对话框的标
37、题变量变量%=MsgBox(prompt,Button,title)45MsgBox 功能功能:打开一个消息框，等待用户选择一个按钮。打开一个消息框，等待用户选择一个按钮。MsgBox函数函数返回所选按钮对应的整数值，以便告诉用户单击哪一个按钮。返回所选按钮对应的整数值，以便告诉用户单击哪一个按钮。若不需要返回值，则可作为若不需要返回值，则可作为MsgBox过程使用。过程使用。说明：说明：prompt和和title的含义与的含义与InputBox()函数中对应的参数相同。函数中对应的参数相同。buttons（按钮）：可选项，为整型参数。用来设定要显示的（按钮）：可选项，为整型参数。用来设定要显
38、示的按钮的数目、类型和出现在消息框中的图标类型。按钮的数目、类型和出现在消息框中的图标类型。46Private Sub Command1_Click()Dim prompt,fullname prompt=请输入你的姓名 fullname=InputBox(prompt)MsgBox(fullname),输出结果End Sub47按钮buttons值如下：函数返回所选按钮整数值：示例示例-按钮按钮buttons的的 设置值变化效果设置值变化效果：MsgBox(fullname),vbOKCancel+vbQuestion,输出结果MsgBox(fullname),vbOKCancel+vbIn
39、formation,输出结果函数返回所选按钮整数值变化：vbOKCancel493.3.8 分支语句分支语句（P.46）用于Visual Basic 选择结构的程序设计，语句有：IfThen If.ThenElse Select Case1.单分支结构条件语句单分支结构条件语句1)语句格式有两种，第一种是单行格式，定义为：语句格式有两种，第一种是单行格式，定义为：If Then 第二种是多行格式，定义为：第二种是多行格式，定义为：If Then End If 条件：关系、逻辑或算术表达式。条件：关系、逻辑或算术表达式。表达式的值按表达式的值按 非非0：True;0：False进行判断。进行判断
40、。TF 语句块表达式单分支结构单分支结构51例：例：已知两个数已知两个数x和和y，比较它们的大小，使得，比较它们的大小，使得x中的值中的值 大于大于y中的值。中的值。If xy Then t=x：x=y：y=t t为中间变量 End If将存放在两个变量中的数进行交换，必须借助将存放在两个变量中的数进行交换，必须借助于第三个变量才能实现。于第三个变量才能实现。学会两个数的交换很学会两个数的交换很重要。重要。522.双分支结构条件语句双分支结构条件语句1)语句格式语句格式If Then Else End If 2)语句功能语句功能 如果如果成立，则执行成立，则执行，否则执行，否则执行。这种结构为
41、典型的选择结构。这种结构为典型的选择结构。3）示例）示例 计算分段函数计算分段函数【例【例3-1】（P.47）53【例例3-1】输入x，计算y的值。其中：分析：分析：该题是数学中的一个分段函数，它表示当该题是数学中的一个分段函数，它表示当x=0时，用公式时，用公式y=1+x来计算来计算y的值；当的值；当x=0 作为条件，也可选择作为条件，也可选择 x=0作为作为If 条件。程序中当条件。程序中当x=0为真时，执行为真时，执行y=1+x，为假时，执行，为假时，执行y=1-2x。)0(21)0(1xxxxy54程序界面如图3-5：程序代码如下：Private Sub Command1_Click(
42、)Dim x As Single Dim y As Single x=Val(Text1.Text)Val函数是把字符型的Text1.Text转换成数值型。If x=0 Then 当x=0时 y=1+x Else 当x0时 y=1-2*x End If Text2.Text=yEnd Sub56【例【例3-1:】输入输入x,y,z 三个整数，将它们按从大到小顺序排列。三个整数，将它们按从大到小顺序排列。（程序（程序ex03-01.frm）57Private Sub Form_Click()Dim x%,y%,z%,t%x=InputBox(x=)输入x,y,z y=InputBox(y=)z=
43、InputBox(z=)l If x yl t=x:x=y:y=t 两个变量的内容要交换，必须用中间变量tl End If If x z t=x:x=z:z=t End If If y z End If Print Print x;y;z 输出End Sub58 3.多分支结构条件语句多分支结构条件语句 (P.47)1)语句格式语句格式 If Then ElseIf Then ElseIf Then Else End If 592)语句功能语句功能 先判断先判断是否成立，若成立则执行是否成立，若成立则执行，否则判断，否则判断是否成立，若成是否成立，若成立，则执行立，则执行，否则继续判断，依，否
44、则继续判断，依次类推，如果所有条件都不成立，则执行次类推，如果所有条件都不成立，则执行。注意：注意：(1)不管有几个分支不管有几个分支,依次判断，依次判断，当某条件满足，当某条件满足，执行相应的语句块，其余分支不再执行执行相应的语句块，其余分支不再执行；若；若条件都不满足，且有条件都不满足，且有Else子句，则执行该语子句，则执行该语句块，否则什么也不执行。句块，否则什么也不执行。(2)ElseIf 不能写成不能写成Else If。60 If结构的嵌套结构的嵌套 块结构的条件语句可以嵌套，即把一个块结构的条件语句可以嵌套，即把一个If Then Else 块放在另一个块放在另一个If Then
45、 Else 块内。嵌套必须完全嵌套，块内。嵌套必须完全嵌套，也就是内层条件语句必须完全包含在外层条件语句之中。也就是内层条件语句必须完全包含在外层条件语句之中。格式：格式：If Then Else End IfIf Then Else End If If Then Else End If 613)举例举例(P.48)【例【例3-2】在平面直角坐标系中不同的象限内在平面直角坐标系中不同的象限内,点的点的坐标的符号有以下坐标的符号有以下4种种情况情况:(P.48)在第一象限内在第一象限内x0,y0 在第二象限内在第二象限内x0 在第三象限内在第三象限内x0,y0,y 0 And y 0 Then
46、Text3.Text=该点在第一象限内l ElseIf x 0 Then Text3.Text=该点在第二象限内l ElseIf x 0 And y 0 And y max Then max=b End If If c max Then max=c End If Avg=(a+b+c)/3 Print“Max=”;max，Avg=;Avg，Max-Avg=;max-Avg 644.Select Case语句语句(情况语句情况语句)1）格式）格式：Select Case 测试表达式测试表达式 （数值型或字符串表达式）（数值型或字符串表达式）Case 表达式列表表达式列表1 语句块语句块1 Cas
47、e 表达式列表表达式列表2 语句块语句块2 Case Else 语句块语句块n+1 End Select 注意：注意：“测试表达式测试表达式”与与“表达式列表表达式列表”的类型必须相同。的类型必须相同。Select Case 后不能出现多个变量；Case子句后不能出现变量65 Select Case 测试表达式测试表达式FTFF表达式表表达式表n语句块语句块n+1语句块语句块nT表达式表表达式表2语句块语句块2T表达式表表达式表1语句块语句块1Select Case 结构结构662）语句功能）语句功能 Select Case语句是多分支结构的另一种表示形式。语句是多分支结构的另一种表示形式。求
48、出求出的值，按顺序依次与的值，按顺序依次与Case后的后的相匹配相匹配，若匹配成功，则执行该，若匹配成功，则执行该Case下的语句，然后下的语句，然后跳出跳出Select Case语句，即转到语句，即转到End Select之后继续执行。之后继续执行。若若的值与各表达式值都不匹配，则执行的值与各表达式值都不匹配，则执行。其中：其中：“测试表达式测试表达式”可以是可以是数值型数值型或或字符串字符串表达式表达式“表达式列表表达式列表”可以是下面四种形式之一：可以是下面四种形式之一：表达式表达式 例例:A“，x 一组枚举表达式一组枚举表达式(用逗号分隔用逗号分隔)例例:2,4,6,8 表达式表达式1
49、 To 表达式表达式2 例例:60 To 100 Is 关系运算符表达式关系运算符表达式(必须使用关系运算符)例：例：Is =90 Label2.Caption=优优 Case Is=80 或或 Case 80 To 89 Label2.Caption=良良 Case 70 To 79 Label2.Caption=中中 Case 60 To 69 Label2.Caption=及格及格 Case Else Label2.Caption=不及格不及格 End SelectEnd Sub例：例：补充题补充题3 列表框中Select Case 语句的应用。语句的应用。根据根据List1.ListI
50、ndex 属性值的不同，显示不同的解释。单属性值的不同，显示不同的解释。单击列表框的列表项后，击列表框的列表项后，ListIndex 属性返回一个对应于列表属性返回一个对应于列表框中列表项位置的编号（第一个列表项的编号为框中列表项位置的编号（第一个列表项的编号为0，第二个，第二个列表项的编号为列表项的编号为1，依次类推。），依次类推。）（程序：变量声明.frm）70代码如下：代码如下：Private Sub List1_Click()Select Case List1.ListIndex Case 0 Label4.Caption=用用Dim声明局部变量声明局部变量 Case 1 Label4
