第3章VB程序设计基础

1、第第3章章 VB程序设计基础程序设计基础3.1 VB程序代码的组织方式程序代码的组织方式3.2 数据类型数据类型3.3 常量和变量常量和变量3.4 常用内部函数常用内部函数3.5 运算符与表达式运算符与表达式3.6 常用的基本语句常用的基本语句 VB应用程序通常由若干模块组成，包括多个窗体模块、多个标准模块、多个类模块。在各个模块中，分别添加过程，在过程中编写语句代码。 VB的代码存储在模块中，模块有三种类型：窗体模块窗体模块标准模块标准模块类模块类模块窗体模块窗体模块（.frm）包含窗体及其控件的描述(属性及其值)；包含常数、变量、类型和外部过程的窗体级声明；包含事件过程以及自定义的通用过程

2、。VB的代码存储在模块中，模块有三种类型：窗体模块窗体模块标准模块标准模块类模块类模块标准模块标准模块(.bas)用于组织多个窗体共享的代码，可以包含变量、常量、类型、外部过程和用户自定义过程的全局（Public）声明或模块级(Private)声明。VB的代码存储在模块中，模块有三种类型：窗体模块窗体模块标准模块标准模块类模块类模块类模块类模块(.cls)用于创建新的类，包含类的属性、方法的定义。有关类模块的内容，可参阅有关的VB手册。 过程过程就是具有特定书写格式、具有一定功能的程序单元。过程子程序过程(Sub过程)通用过程事件过程函数过程1. 一条语句写在多行当一条语句比较长时，可以在行末

3、加续行符“ _”，而分写在多行上。例如： Dim Student_number As String, Student_name As String 可以写成： Dim Student_number As String, _ Student_name As String1. 一条语句写在多行2. 多条语句写在一行允许将多个语句写在同一行上，但语句之间需要用冒号“:”分隔。例如： t = x x = y y = t可以写成：t = x : x = y : y = t数据类型基本数据类型用户自定义的数据类型数值型字符型逻辑型日期型对象型变体型整数型长整型单精度型双精度型货币型字节型数值型：整数型整数

4、型长整型长整型单精度型单精度型双精度型双精度型货币型货币型字节型字节型数值型：整数型整数型长整型长整型单精度型单精度型双精度型双精度型货币型货币型字节型字节型类型名称为：Integer类型符号为：%存储空间：2B取值范围为： -3276832767数值型：整数型整数型长整型长整型单精度型单精度型双精度型双精度型货币型货币型字节型字节型类型名称为：Long类型符号为：&存储空间：4B取值范围为：-231231-1数值型：整数型整数型长整型长整型单精度型单精度型双精度型双精度型货币型货币型字节型字节型类型名称为： Single类型符号为： !存储空间：4B取值范围为：-3.402823E38-1.

5、401298E-45; 1.401298E-453.402823E38数值型：整数型整数型长整型长整型单精度型单精度型双精度型双精度型货币型货币型字节型字节型类型名称为： Double类型符号为： #存储空间：8B取值范围为： -1.79769313486232E308 -4.94065645841247E-324; 4.94065645841247E-324 1.79769313486232E308数值型：整数型整数型长整型长整型单精度型单精度型双精度型双精度型货币型货币型字节型字节型类型名称为： Currency类型符号为： 存储空间：8B取值范围为：-922337203685447.58

6、08 922337203685447.5807数值型：整数型整数型长整型长整型单精度型单精度型双精度型双精度型货币型货币型字节型字节型类型名称为： Byte存储空间：1B取值范围为：028-1（0 255）字符型：类型名称为： String类型符号为： $存储空间：与串长有关逻辑型：类型名称为： Boolean存储空间：2B取值为：True或False日期型：类型名称为： Date存储空间：8B取值范围为：100年1月1日9999年12月31日对象型：类型名称为： Object存储空间：4B取值范围为：任何对象引用变体型：类型名称为： Variant存储空间：=16B取值范围为：数值型可达Do

7、uble型的范围变体型是VB数据的缺省数据类型，它可以存储各种类型的数据。用户自定义类型也称记录类型。可在模块的通用声明部分，使用Type语句来定义，格式如下： Public | Private Type As As As End Type Private Type Student no As String 学号 name As String 姓名 sex As String 性别 birth As Date 出生日期End TypePrivate Sub Form_Click() Dim stu1 As Student, i As Integer stu1.no = 1101122001 i

8、 = 1 Print stu1.no, iEnd Sub例如：例如：Private Sub Command1_Click() Const Pi As Single = 3.14159 Dim r As Single, s As Single, c As Single r = 10.0 c = 2 * Pi * r s = Pi * r * r Print r=; r, c=; c, s=; sEnd Sub程序中，程序中， r、c、s为为变量变量， 3.14159、10.0 、2、 “ r= ” 等为等为常量常量， Pi为为符号常量符号常量， 2 * Pi * r 、Pi * r * r为为表

9、达式表达式。引例引例已知圆的半径已知圆的半径r，求圆的周长，求圆的周长c和面积和面积s。编程如下：。编程如下：常量常量是在程序的运行过程中其值保持不变是在程序的运行过程中其值保持不变的量。的量。在在VB中有三种常量，分别是：中有三种常量，分别是：直接常量直接常量用户声明的符号常量用户声明的符号常量系统提供的符号常量系统提供的符号常量直接常量就是各种数据类型的具体值。直接常量就是各种数据类型的具体值。根据数据类型划分有：根据数据类型划分有：字符串常量字符串常量数值常量数值常量整型常量整型常量长整型常量长整型常量单精度型常量单精度型常量双精度型常量双精度型常量逻辑型常量逻辑型常量日期型常量日期型常

10、量用一对双引号（）括起来的一串字符。例如：Visual Basic1234512a 等都是合法的字符串常量。直接常量就是各种数据类型的具体值。直接常量就是各种数据类型的具体值。根据数据类型划分有：根据数据类型划分有：字符串常量字符串常量数值常量数值常量整型常量整型常量长整型常量长整型常量单精度型常量单精度型常量双精度型常量双精度型常量逻辑型常量逻辑型常量日期型常量日期型常量一般的数值常量由正负号、数字和小数点组成，正数的正号可以省略。直接常量就是各种数据类型的具体值。直接常量就是各种数据类型的具体值。根据数据类型划分有：根据数据类型划分有：字符串常量字符串常量数值常量数值常量整型常量整型常量长

11、整型常量长整型常量单精度型常量单精度型常量双精度型常量双精度型常量逻辑型常量逻辑型常量日期型常量日期型常量有十进制、八进制和十六进制三种形式。十进制数由0-9数字组成八进制数由0-7组成，前加&O十六进制数是由0-9、A-F组成，前加&H。例如：123，&O123，&H123，-120，120%直接常量就是各种数据类型的具体值。直接常量就是各种数据类型的具体值。根据数据类型划分有：根据数据类型划分有：字符串常量字符串常量数值常量数值常量整型常量整型常量长整型常量长整型常量单精度型常量单精度型常量双精度型常量双精度型常量逻辑型常量逻辑型常量日期型常量日期型常量十进制、八进制和十六进制三种形式。在

12、数后跟类型符&，说明长整型常量。八进制数前加&O。十六进制数前加&H。例如：120&，43210，-12345678&，&O1234&，&HFFFFF，&HF&，都是长整型常量直接常量就是各种数据类型的具体值。直接常量就是各种数据类型的具体值。根据数据类型划分有：根据数据类型划分有：字符串常量字符串常量数值常量数值常量整型常量整型常量长整型常量长整型常量单精度型常量单精度型常量双精度型常量双精度型常量逻辑型常量逻辑型常量日期型常量日期型常量两种形式：十进制小数形式，指数形式。 十进制小数形式。例如： 31.456、123！、-12.7 、.0315。 指数形式格式为： mmmEeee 其中mm

13、m是尾数，eee是指数，指数必须是整数，可带正号或负号。例如：1.234E5表示的是1.234105；-8.9763E-3，表示的是-8.976310-3。直接常量就是各种数据类型的具体值。直接常量就是各种数据类型的具体值。根据数据类型划分有：根据数据类型划分有：字符串常量字符串常量数值常量数值常量整型常量整型常量长整型常量长整型常量单精度型常量单精度型常量双精度型常量双精度型常量逻辑型常量逻辑型常量日期型常量日期型常量两种形式：十进制小数形式，指数形式。 十进制小数形式。例如： 31.456#、-12.7#、.0315#，123#。 指数形式格式为： mmmDeee 其中mmm是尾数，eee

14、是指数，指数必须是整数，可带正号或负号。例如： 1.234D5，表示的是1.234105； -8.9763D-3，表示的是-8.976310-3。直接常量就是各种数据类型的具体值。直接常量就是各种数据类型的具体值。根据数据类型划分有：根据数据类型划分有：字符串常量字符串常量数值常量数值常量整型常量整型常量长整型常量长整型常量单精度型常量单精度型常量双精度型常量双精度型常量逻辑型常量逻辑型常量日期型常量日期型常量两个取值：True False直接常量就是各种数据类型的具体值。直接常量就是各种数据类型的具体值。根据数据类型划分有：根据数据类型划分有：字符串常量字符串常量数值常量数值常量整型常量整型

15、常量长整型常量长整型常量单精度型常量单精度型常量双精度型常量双精度型常量逻辑型常量逻辑型常量日期型常量日期型常量日期型常数表示形式为：#mm/dd/yyyy#例如：#6/15/2012# 表示2012年6月15日#Jan 1,2013#表示2013年1月1日声明格式为：声明格式为： Public | Private Const As类型类型=Public在标准模块中声明全局性的符号常量。在标准模块中声明全局性的符号常量。Private在标准或窗体模块中，声明模块私有的符在标准或窗体模块中，声明模块私有的符号常量。省略时，默认为号常量。省略时，默认为Private。常量名常量名命名规则与变量相同

16、。习惯大写字母表示。命名规则与变量相同。习惯大写字母表示。As类型类型 指定数据类型。也可以用数据类型符。指定数据类型。也可以用数据类型符。 为常量表达式，其中不能出现变量。为常量表达式，其中不能出现变量。在一行中可声明多个符号常量，用逗号分隔。例如：在一行中可声明多个符号常量，用逗号分隔。例如：Public Const PI As Single = 3.14, G! = 9.8VB定义了许多符号常量，以定义了许多符号常量，以 “vb” 开头，开头， 如：如： vbRed、vbCrLf等等在在VB编程时可以直接使用，例如：编程时可以直接使用，例如：Text1.ForeColor = vbRed

17、1. 变量的命名规则2. 变量的声明3. 变量作用域变量名必须是以字母或汉字开头的，由字母、变量名必须是以字母或汉字开头的，由字母、汉字、数字、下划线组成的串，长度汉字、数字、下划线组成的串，长度255个个字符。字符。不能取关键字作为变量名。不能取关键字作为变量名。变量名不区分字母的大小写。变量名不区分字母的大小写。例如： re，工资，intSum，Stu1，为合法变量名。 my data，re.er，8re，Integer，非法变量名。(1) 显示声明变量，格式：显示声明变量，格式： Public | Private | Dim | Static 变量名变量名 As 类型类型Private

18、k As Integer, d As DoublePublic n As IntegerPrivate Sub Form_Load() Static i As Integer Dim x As Single, y As Single k = 3: i = 2 Print k, d, n, i, x, yEnd SubPrivate Sub Command1_Click() Print k + 1End Sub示例：示例：(1) 显示声明变量，格式：显示声明变量，格式： Public | Private | Dim | Static 变量名变量名 As 类型类型关键字关键字声明位置声明位置变量级

19、别变量级别作用范围作用范围DimDim或或StaticStatic在过程内在过程内局部变量局部变量当前过程当前过程PrivatePrivate或或DimDim在窗体或模在窗体或模块的声明处块的声明处模块级变量模块级变量当前窗体或模当前窗体或模块的所有过程块的所有过程PublicPublic在窗体或模在窗体或模块的声明处块的声明处全局变量全局变量工程内的所有工程内的所有过程过程(1) 显示声明变量，格式：显示声明变量，格式： Public | Private | Dim | Static 变量名变量名 As 类型类型 As As 类型类型 用于声明变量的数据类型，其中类型可用于声明变量的数据类型

20、，其中类型可以是以是VBVB的基本数据类型，也可以是用户定义的数据类的基本数据类型，也可以是用户定义的数据类型。缺省时为变体型。型。缺省时为变体型。 可以在变量名后紧跟一个可以在变量名后紧跟一个类型说明符类型说明符（% %、& &、！、！、# #、 、$ $之一），来替代之一），来替代As As 。(1) 显示声明变量，格式：显示声明变量，格式： Public | Private | Dim | Static 变量名变量名 As 类型类型变长字符串变量变长字符串变量用用StringString作为数据类型进行声明，作为数据类型进行声明，存储的字符串可长可短。变长字符串最多可包含存储的字符串可长

21、可短。变长字符串最多可包含2 23131( (大约大约 20 20 亿亿) )个字符。个字符。定长字符串变量定长字符串变量用用StringString* *sizesize作为数据类型进行声作为数据类型进行声明，明，sizesize取值范围为取值范围为1-21-21616 。Dim S1 As String ,S2 As String*6 (1) 显示声明变量，格式：显示声明变量，格式： Public | Private | Dim | Static 变量名变量名 As 类型类型一条声明变量的语句可一条声明变量的语句可声明多个变量声明多个变量，各变量之间以，各变量之间以逗号隔开。逗号隔开。声明

22、变量时，系统将自动为变量赋一个声明变量时，系统将自动为变量赋一个初始值初始值。数值型变量，初始值为数值型变量，初始值为0 0；变长字符串变量，初始值为空字符串（变长字符串变量，初始值为空字符串（“”“”）；）；定长字符串变量（定长定长字符串变量（定长n n），则初始值为），则初始值为n n个空白字符的串；个空白字符的串；逻辑型变量的初始值为逻辑型变量的初始值为FalseFalse。(2)隐式声明变量隐式声明变量在在VBVB中，允许不显式声明而直接使用变量，这种中，允许不显式声明而直接使用变量，这种方式称为隐式声明，此时方式称为隐式声明，此时VBVB会把该变量指定为变会把该变量指定为变体（体（V

23、ariantVariant）数据类型，并默认为局部变量。）数据类型，并默认为局部变量。(3)Option Explicit语句强制显式声明变量语句强制显式声明变量在模块的通用声明处，输入在模块的通用声明处，输入Option Explicitption Explicit语语句，编译时系统将检查并通告模块中隐式声明的句，编译时系统将检查并通告模块中隐式声明的变量，强制要求显式声明变量。变量，强制要求显式声明变量。 按照变量声明使用的关键词，以及声明语按照变量声明使用的关键词，以及声明语句的位置，可以将变量分为：句的位置，可以将变量分为：局部变量局部变量模块级变量模块级变量全局变量全局变量 按照变量

24、声明使用的关键词，以及声明语按照变量声明使用的关键词，以及声明语句的位置，可以将变量分为：句的位置，可以将变量分为：局部变量局部变量模块级变量模块级变量全局变量全局变量又称为过程级变量，是在过程中使用Dim或Static声明的变量，其作用域仅限于声明变量的过程，通常用于过程中保存临时数据。 按照变量声明使用的关键词，以及声明语按照变量声明使用的关键词，以及声明语句的位置，可以将变量分为：句的位置，可以将变量分为：局部变量局部变量模块级变量模块级变量全局变量全局变量在窗体模块或标准模块的通用声明部分，使用Private或Dim声明的变量称为模块级变量。模块级变量可被模块中的任何过程访问，通常用于

25、存放模块中各过程公用的一些数据。 按照变量声明使用的关键词，以及声明语按照变量声明使用的关键词，以及声明语句的位置，可以将变量分为：句的位置，可以将变量分为：局部变量局部变量模块级变量模块级变量全局变量全局变量用Public关键词声明的变量，其作用域为整个应用程序，可以供所有模块、所有过程使用，通常用于存放整个应用程序公用的数据。3.4.1 数学数学(Math)函数函数3.4.2 日期日期(DateTime)函数函数3.4.3 字符串字符串(Strings)函数函数3.4.4 转换转换(Conversion)函数函数函数函数函数类型函数类型功能功能示例示例函数值函数值Sqr(x)Double求

26、求x的平方根的平方根(x0) Sqr(4)2Log(x)Double求自然对数求自然对数lnxLog(4)1.38629436111989Exp(x)Double指数函数指数函数exExp(2)7.38905609893065Abs(x)与与x相同相同返回返回x的绝对值的绝对值Abs(-26)26Sgn(x)Integer符号函数：符号函数：当当x0时，返回时，返回1；当当x=0时，返回时，返回0；当当x0时或省略时或省略x时，用上一次调用时，用上一次调用Rnd产生的产生的随机数作种子，生成随机数；第一次调用随机数作种子，生成随机数；第一次调用Rnd生生成随机数时，则直接用初始给定的种子生成随

27、机成随机数时，则直接用初始给定的种子生成随机数。数。当当x=0时，则重复生成最近生成的随机数。时，则重复生成最近生成的随机数。当当x0时，则使用时，则使用x作为种子生成随机数。作为种子生成随机数。 说明：说明：Rnd函数通常与函数通常与Int函数配合使用，生成函数配合使用，生成m,n范围内的随机整数，公式如下。范围内的随机整数，公式如下。Int(Rnd * (n m + 1) + m)Randomize语句语句格式：格式： Randomize 数值表达式数值表达式功能：功能：用用“数值表达式数值表达式”的值，对的值，对 Rnd 函数的函数的随机数生成器初始化，给随机数生成器随机数生成器初始化，

28、给随机数生成器一个新的一个新的种子种子值。如果省略值。如果省略“数值表达数值表达式式”，则用系统计时器，则用系统计时器Timer的返回值的返回值作为新的种子值。作为新的种子值。Timer返回值为从午返回值为从午夜开始到现在经过的秒数，是一动态数夜开始到现在经过的秒数，是一动态数据。据。格式：格式： Format(表达式，格式字符串表达式，格式字符串)说明：说明：省略省略“格式字符串格式字符串”，Format函数功能与函数功能与Cstr函数函数相同。相同。“格式字符串格式字符串”由格式控制字符组成，常用格式控由格式控制字符组成，常用格式控制字符有如下几种。制字符有如下几种。 # 0 . , %

29、$ E+ 其中，其中，“#”、“0”是数位控制符；是数位控制符；“.”、“,”是是标点控制符；标点控制符；“E+”是指数输出控制符；其它为符是指数输出控制符；其它为符号控制符。号控制符。“格式字符串格式字符串”可以是一个字符串型的可以是一个字符串型的常量或变量，其值为由格式控制字符组成的字符串。常量或变量，其值为由格式控制字符组成的字符串。示例：示例：Private Sub Command1_Click() Print Format(1234.567, 00000.0000) Print Format(1234.567, #.#) Print Format(1234.567, #,#.#) P

30、rint Format(0.567, #.#%) Print Format(1234.567, $#.#) Print Format(1234.567, 0.00E+00)End Sub结果结果：3.5.1 算术运算符与算术表达式算术运算符与算术表达式3.5.2 字符串连接符与字符串表达式字符串连接符与字符串表达式3.5.3 关系运算符与关系表达式关系运算符与关系表达式3.5.4 逻辑运算符与逻辑表达式逻辑运算符与逻辑表达式3.5.5 表达式的计算表达式的计算运算符运算符功能功能示例示例优先级优先级表达式表达式值值 乘方乘方23238 8高高低低- -负号负号-3+2-3+2-1-1* *和和

31、/ /乘和除乘和除1+7/2+31+7/2+3* *4 416.516.5 整除整除94942 2ModMod求余数求余数5 Mod 35 Mod 32 2+ +和和- -加和减加和减2+3-72+3-7-2-2说明：说明：（1）负号）负号 “-”为为单目运算符单目运算符；其余都是；其余都是双目运算符双目运算符。（2）算术运算符左、右两边的操作数应该是数值型数据算术运算符左、右两边的操作数应该是数值型数据，若是数字字符串或逻辑数据，则需先转换成数值数据若是数字字符串或逻辑数据，则需先转换成数值数据(True-1，False0)，然后再进行算术运算。例如，然后再进行算术运算。例如，123*1的值

32、为的值为123，325+True的值为的值为324。（3）对于对于 +、-、* ，如果两操作数类型相同，运算结果也，如果两操作数类型相同，运算结果也将是同一类型。否则将是同一类型。否则,结果类型为两个操作数中存储结果类型为两个操作数中存储长度较长的那个数据类型。长度较长的那个数据类型。对于对于和和/运算运算，不论两个，不论两个操作数类型是否相同，运算结果是双精度数。操作数类型是否相同，运算结果是双精度数。说明：说明：（5）对于对于、Mod运算符运算符，左、右两边的操作数先取整再左、右两边的操作数先取整再运算运算(相当于相当于Cint) 。运算返回两操作数的整除结果；运算返回两操作数的整除结果；

33、Mod运算返回两操作数相除的余数，所得余数的符号运算返回两操作数相除的余数，所得余数的符号与第一个操作数的符号相同。两者返回值都为整数。与第一个操作数的符号相同。两者返回值都为整数。（6）对于对于/、Mod运算，除数不能为零运算，除数不能为零，否则出现运行，否则出现运行错误错误除数为零。除数为零。（7）在进行）在进行算术运算时，不要超出数据取值范围算术运算时，不要超出数据取值范围。例如，。例如，Print 32765+3就会出现就会出现“溢出溢出”错误。错误。算术表达式就是由算术运算符、圆括号和操作数构成的表达式，操作数可以是常量、变量和函数。计算时，根据运算符的优先级顺序进行计算，同一优先级

34、时，从左到右进行运算。书写算术表达式时应注意：书写算术表达式时应注意：（1）VB表达式必须表示在同一行上。表达式必须表示在同一行上。 例如，例如，23要写成要写成23； 要写成要写成a/b的形式。的形式。（2）乘号不能省略。例如，）乘号不能省略。例如， 应写成应写成a*b/c。（3）表达式中所有的括号一律用圆括号，并且括号左右必须配）表达式中所有的括号一律用圆括号，并且括号左右必须配对，圆括号可以嵌套。例如，对，圆括号可以嵌套。例如， 可写成可写成a*b/(2*(c+d)。（4）数学中表示特定含义的符号要写成具体的数值。）数学中表示特定含义的符号要写成具体的数值。 例如：例如： (2 r+e-

35、5)lnx ，可写成，可写成 (2 * 3.1415926 * r + Exp(-5) * Log(x)ba)dc (2abcab字符串连接符：字符串连接符： & 和和 + 。& 强制将两个操作数作为字符串连接起来。强制将两个操作数作为字符串连接起来。+ 既可作字符串连接操作，又可进行加法运算。既可作字符串连接操作，又可进行加法运算。示例：示例：组合情况组合情况表达式及其值表达式及其值表达式及其值表达式及其值操作数都是字符串类型操作数都是字符串类型123+3 123+3 12331233 123 & 3 123 & 3 12331233操作数都是数值类型操作数都是数值类型123+3 123+3

36、 126126123 & 3 123 & 3 12331233一个是数值类型，另一个是一个是数值类型，另一个是可以转换为数值的字符串可以转换为数值的字符串123+3 123+3 126126123 & 3 123 & 3 12331233一个是数值类型，另一个是一个是数值类型，另一个是不能转换为数值的字符串不能转换为数值的字符串 123a+3 123a+3 出错出错 123a & 3 123a & 3 “123a3“123a36种关系运算符的优先级相同。种关系运算符的优先级相同。关系表达式关系表达式关系运算符和操作数组成的式子。关系运算符和操作数组成的式子。运算时对两边的操作数进行大小比较，成

37、立则返回运算时对两边的操作数进行大小比较，成立则返回True，否则返回，否则返回False。运算符运算符 = = =功能功能小于小于小于等于小于等于大于大于大于等于大于等于不等于不等于等于等于（1）数值型数据的比较）数值型数据的比较比较其大小。比较其大小。 例如：例如：123 “Abc” ，值为，值为False 运算符运算符NotNotAndAndOrOrXorXor功能功能逻辑非逻辑非逻辑与逻辑与逻辑或逻辑或逻辑异或逻辑异或优先级优先级高高 低低ABNot AA And BA Or BA Xor BTrueTrueFalseTrueTrueFalseTrueFalseFalseFalseTr

38、ueTrueFalseTrueTrueFalseTrueTrueFalseFalseTrueFalseFalseFalse逻辑运算符的运算规则逻辑运算符的运算规则 逻辑运算符逻辑运算符 （1）进行函数运算。进行函数运算。（2）表达式中有括号，则先做括号内的运算。）表达式中有括号，则先做括号内的运算。（3）有多种运算符时，按运算符的优先级顺序进行运算。）有多种运算符时，按运算符的优先级顺序进行运算。（4）同一优先级的运算，按从左到右的顺序进行。）同一优先级的运算，按从左到右的顺序进行。 当一个表达式中包含多种运算符时，表达式的执行当一个表达式中包含多种运算符时，表达式的执行顺序如下。顺序如下。运

39、算符的优先级：运算符的优先级：优先级优先级 高高 低低优先级优先级算术算术 - - ( (* * ，/ ) / ) MOD MOD (+ (+ ，- )- )高高低低连接连接(& (& ，+)+)比较比较( ( ， = = ，= = ， ，= = ，Is )Is )逻辑逻辑Not Not And And Or Or XorXor 3.6.1 赋值语句赋值语句3.6.2 数据的输入数据的输入3.6.3 数据的输出数据的输出3.6.4 注释语句注释语句3.6.5 Stop语句与语句与End语句语句语法格式：语法格式：= 对象名对象名.属性名属性名=功能：计算赋值操作符功能：计算赋值操作符“=”右侧

40、表达式的值，然右侧表达式的值，然后后 把该值保存到左侧的变量或属性中。把该值保存到左侧的变量或属性中。例如：例如：g! = 9.8 Label1.Caption = 欢迎使用欢迎使用Visual Basic 6.0说明：说明：（1）“=” 称赋值号，与数学中的等号意义不同。称赋值号，与数学中的等号意义不同。VB系统会自动根据系统会自动根据“=” 的位置，判断是赋值号，的位置，判断是赋值号，还是还是“等于等于”运算符。运算符。（2）赋值号）赋值号“=”左侧必须是变量或对象的属性，不能左侧必须是变量或对象的属性，不能是常量、表达式。是常量、表达式。（3）当赋值号）当赋值号“=”左侧变量或对象属性的

41、数据类型与左侧变量或对象属性的数据类型与右侧表达式的数据类型不一致时，以左侧为准，右侧表达式的数据类型不一致时，以左侧为准，将右侧值转换成左侧的数据类型，转换可行则进将右侧值转换成左侧的数据类型，转换可行则进行赋值，不可行则报错。行赋值，不可行则报错。（1）使用）使用TextBox输入数据输入数据Private Sub Command1_Click() Dim Sname As String, age As Integer Sname = Text1.Text age = Val(Text2.Text) Text3 = Sname & 的年龄的年龄 & ageEnd Sub 设计程序，单击设计

42、程序，单击“面积计算面积计算”按钮，产生按钮，产生InputBoxInputBox对话对话框，输入圆的半径，计算并输出圆的面积。框，输入圆的半径，计算并输出圆的面积。Private Sub Command1_Click()Private Sub Command1_Click() Dim r As Single, s As Single Dim r As Single, s As Single r = r = InputBoxInputBox(请输入半径：请输入半径：, , 输入框输入框, 10), 10) s = 3.14 s = 3.14 * * r r * * r r Print Prin

43、t 圆的面积是：圆的面积是：; s; sEnd SubEnd Sub（2）使用）使用InputBox函数输入数据函数输入数据使用格式：使用格式：v=InputBox(Prompt ,Title ,Default , x, y , Helpfile, Context)（2）使用）使用InputBox函数输入数据函数输入数据例：设置一个输入框：例：设置一个输入框： 提示用户输入要查的学号。提示用户输入要查的学号。 若提示内容中需要换行显示：若提示内容中需要换行显示：在换行处加在换行处加chr(13)chr(13)和和chr(10)chr(10) 各项参数位置必须一一对应各项参数位置必须一一对应In

44、putBox函数功能函数功能:打开一个对话框打开一个对话框,等待用户输入内容。等待用户输入内容。单击确定，返回输入值（字符型数据）单击确定，返回输入值（字符型数据）1. 使用使用TextBox和和Label输出数据输出数据可以把数据处理结果赋给文本框的可以把数据处理结果赋给文本框的Text属性，实属性，实现在文本框中输出数据。也可以把数据处理结果赋现在文本框中输出数据。也可以把数据处理结果赋给给Label控件的控件的Caption属性，实现在属性，实现在Label控件上输控件上输出数据。出数据。Private Sub Command1_Click() Dim Sname As String,

45、age As Integer Sname = Text1.Text age = Val(Text2.Text) Text3 = Sname & 的年龄的年龄 & age Label3.Caption = Sname & 的年龄的年龄 & ageEnd SubMsgBox函数的格式：MsgBox(Prompt , Buttons , Title , Helpfile, Context)示例:A = MsgBox(确认提示确认提示, vbOKCancel + vbInformation, 标题栏属性标题栏属性)2. 通过通过MsgBox函数输出消息对话框函数输出消息对话框MsgBox函数的格式：M

46、sgBox(Prompt , Buttons , Title , Helpfile, Context)示例:A = MsgBox(确认提示确认提示, vbOKCancel + vbInformation, 标题栏属性标题栏属性)说明：2. 通过通过MsgBox函数输出消息对话框函数输出消息对话框(1)Prompt需要显示需要显示的消息，长度的消息，长度1024，必，必选，选，vbCrLf。(2)Title标题栏显示内标题栏显示内容，省略时为工程名。容，省略时为工程名。MsgBox函数的格式：MsgBox(Prompt , Buttons , Title , Helpfile, Context)

47、示例:A = MsgBox(确认提示确认提示, vbOKCancel + vbInformation, 标题栏属性标题栏属性)说明：2. 通过通过MsgBox函数输出消息对话框函数输出消息对话框(3) Helpfile、Context帮助文件名及帮助主题号。帮助文件名及帮助主题号。选用该选项时，在信息框选用该选项时，在信息框中自动增加一个帮助按钮。中自动增加一个帮助按钮。MsgBox函数的格式：MsgBox(Prompt , Buttons , Title , Helpfile, Context)示例:A = MsgBox(确认提示确认提示, vbOKCancel + vbInformatio

48、n, 标题栏属性标题栏属性)说明：2. 通过通过MsgBox函数输出消息对话框函数输出消息对话框(4)Buttons参数的设置参数的设置 Buttons= C1+ C2+ C3+C4值值 按钮的设置按钮的设置 对应按钮名称对应按钮名称 0 vbOKOnly-确定确定 1 vbOKCancel-确定、取消确定、取消 2 vbAbortRetryIgnore-终止、重试、忽略终止、重试、忽略 3 vbYesNoCancel-是、否、取消是、否、取消 4 vbYesNo-是、否是、否 5 vbRetryCancel-重试、取消重试、取消(4)Buttons(4)Buttons参数的设置参数的设置按钮

49、的类型和数目的设置按钮的类型和数目的设置 ButtonsButtons= =C1C1按钮形式按钮形式+ C2+ C2图标样式图标样式+ C3+ C3缺省按钮缺省按钮+ C4+ C4强制回应强制回应Buttons参数值参数值= 1 或或 vbOKCancel对应值对应值 符号常量符号常量 出现的图标出现的图标图标的样式图标的样式 Buttons=C1Buttons=C1按钮形式按钮形式+ + C2C2图标样式图标样式+ C3+ C3缺省按钮缺省按钮+ C4+ C4强制回应强制回应16 vbCritical -32 vbQuestion -48 vbExclamation -64 vbInform

50、ation -Buttons参数值参数值= 1+64 或或 vbOKCancel+ vbInformationButtonsButtons参数的设置参数的设置对应值对应值 符号常量符号常量 缺省的活动按钮缺省的活动按钮说明哪一个是缺省按钮说明哪一个是缺省按钮 Buttons=C1Buttons=C1按钮形式按钮形式+ C2+ C2图标样式图标样式+ + C3 C3缺省按钮缺省按钮+ C4+ C4强制回应强制回应 0 VbDefaultButton1256 VbDefaultButton2512 VbDefaultButton3Buttons参数值参数值=65 ( 1+64+0) 或或 vbOK

51、Cancel+ vbInformation+VbDefaultButton1ButtonsButtons参数的设置参数的设置 符号常量符号常量 返回值返回值 对应按钮对应按钮 (5) (5) MsgBoxMsgBox函数值函数值 根据用户单击的按钮返回不同的函数值根据用户单击的按钮返回不同的函数值vbOK 1-确认确认 vbCancel 2-取消取消 vbNo 7 - 否否(N)vbAbort 3 -终止终止(A)vbRetry 4-重试重试(R)vbIgnore 5-忽略忽略(I)vbYes 6 - 是是(Y)MsgBox(Prompt , Buttons , Title , Helpfil

52、e, Context) 设计一个如下所示的提示框：设计一个如下所示的提示框： A = MsgBox(非法数据！非法数据！ + Chr(13) +Chr(10)+ 是否继续？是否继续？, vbYesNo + vbCritical, 提示信息提示信息)练习使用信息框练习使用信息框练习练习编制一个帐号与密码的检验程序：编制一个帐号与密码的检验程序：要求：要求： 帐号帐号ntdxxsntdxxs，密码为，密码为VB6VB6，密码框中不显示实际字符，密码框中不显示实际字符 输入帐号不正确时，提示有关信息，输入帐号不正确时，提示有关信息， 并清除原内容，得到焦点，再输入并清除原内容，得到焦点，再输入 密码

53、不正确时，单击密码不正确时，单击“重试重试”，密码框清空，得到焦，密码框清空，得到焦 点重新输入，若单击点重新输入，若单击“取消取消”，停止运行，停止运行 方法一方法一: 作为表达式的组成部分，例如作为表达式的组成部分，例如, a=MsgBox(非法数据非法数据, 48, 提示信息提示信息)方法二方法二: 以语句形式使用以语句形式使用MsgBox函数，例如函数，例如, MsgBox 非法数据非法数据, 48, 提示信息提示信息MsgBoxMsgBox函数的使用函数的使用：Print 方法方法语法格式语法格式： 对象名对象名.PrintSpc(n)|Tab(n)表达式列表表达式列表;|,说明：说明：（1）对象名对象名可为窗体、图片框、打印机可为窗体、图片框、打印机（Pri