1、第第3章章 VB编程基础编程基础 3.1 数据类型数据类型3.2 变量变量3.3 常量常量3.4 常用内部函数常用内部函数3.1 数据类型数据类型 根据数据描述信息的含义，将数据分为不同的种类，对数根据数据描述信息的含义，将数据分为不同的种类，对数据种类的区分规定，称为数据类型。数据类型的不同，则在内据种类的区分规定，称为数据类型。数据类型的不同，则在内存中的存储结构也不同，占用空间也不同。存中的存储结构也不同，占用空间也不同。在在VB语言中数据类型大致可分为两类：基本数据类型和用语言中数据类型大致可分为两类：基本数据类型和用户自定义数据类型。本节只介绍基本数据类型及其互相转换，户自定义数据类
2、型。本节只介绍基本数据类型及其互相转换，用户自定义数据类型在第七章再作详细介绍。用户自定义数据类型在第七章再作详细介绍。3.1.1 基本数据类型基本数据类型 VB中的基本数据类型有：数值型（中的基本数据类型有：数值型（Numeric）、字符串型、字符串型（String）、日期型（）、日期型（Data）、字节型）、字节型（Byte）、货币型）、货币型（Currency）、布尔型（）、布尔型（Boolean）、对象型（）、对象型（Object）、变）、变体型（体型（Variant）。）。3.1.1 基本数据类型基本数据类型 数值型数据类型分为整数型和实数型两大类。数值型数据类型分为整数型和实数型两
3、大类。(1)整数型整数型 整数型是指不带小数和指数符号的数值。按表示范围整数整数型是指不带小数和指数符号的数值。按表示范围整数型分为整型和长整型。型分为整型和长整型。整型整型(Integer，类型符是，类型符是%)整型数据占据整型数据占据2个字节个字节(16位位)，能够处理的数据范围是：，能够处理的数据范围是：-32768 32767。长整型长整型(Long，类型符，类型符&)长整型数据占据长整型数据占据4个字节（个字节（32位），能够处理的数据范围是：位），能够处理的数据范围是：-2147483648 2147483647。3.1.1 基本数据类型基本数据类型 (2)实数型实数型 实数型数据
4、是指带有小数部分的数。实数型数据分为浮点实数型数据是指带有小数部分的数。实数型数据分为浮点数和定点数，本书中涉及的实数大多用浮点数来表示。数和定点数，本书中涉及的实数大多用浮点数来表示。在在VB中浮点数分为两种：单精度浮点数（中浮点数分为两种：单精度浮点数（Single）、双精）、双精度浮点数（度浮点数（Double）单精度数（类型符！）单精度数（类型符！）单精度数占据单精度数占据4个字节（个字节（32位），能够处理的数据范围负数位），能够处理的数据范围负数为：为：-3.402823E38 -1.401298E-45，正数为：，正数为：1.401298E-45 3.402823E38。双精度数
5、双精度数(类型符类型符#)双精度数占据双精度数占据8个字节（个字节（64位），其数据范围负数为：位），其数据范围负数为：-1.79769313486232D308 -4.94065645841247D-324，正数，正数为：为：4.94065645841247D-324 1.79769313486232D308。这里用这里用D来表示来表示10的次方。的次方。3.1.1 基本数据类型基本数据类型 字符串是一个字符序列，其字符码范围是字符串是一个字符序列，其字符码范围是0 255。我们在。我们在处理字符串时使用处理字符串时使用String类型。字符串变量值必须用双引号括类型。字符串变量值必须用双引
6、号括起来。起来。使用字符串类型可以声明两种字符串使用字符串类型可以声明两种字符串变长与定长的字变长与定长的字符串。符串。在缺省情况下，在缺省情况下，String变量是一个可变长度的字符串，随着变量是一个可变长度的字符串，随着对字符串变量赋予新数据，它的长度可增可减。如果要声明字对字符串变量赋予新数据，它的长度可增可减。如果要声明字符串具有固定长度，可以用以下格式：符串具有固定长度，可以用以下格式：String*字符串长度字符串长度例，为了声明一个长度为例，为了声明一个长度为20字符的字符串，可以用下列语句：字符的字符串，可以用下列语句：Dim strTemp As String*203.1.1
7、 基本数据类型基本数据类型 日期型数据类型表示日期，占据日期型数据类型表示日期，占据8个字节。可表示的日期范个字节。可表示的日期范围从围从100年年1月月1日日 9999年年12月月31日，时间范围是日，时间范围是0：00 23：59：59。日期型数据需要用双井号（日期型数据需要用双井号（#）括起来。它可以是单）括起来。它可以是单独日期的数据，也可以是单独时间的数据，也可以是日期和时独日期的数据，也可以是单独时间的数据，也可以是日期和时间数据的组合，允许用各种表示日期和时间的格式。间数据的组合，允许用各种表示日期和时间的格式。3.1.1 基本数据类型基本数据类型 字节型（字节型（Byte）数据
8、占据空间大小为）数据占据空间大小为1个字节，它是无符号个字节，它是无符号类型，即类型，即1个字节个字节8bit都表示数值。因此，其数值范围为都表示数值。因此，其数值范围为0 255，由此可知，由此可知，Byte不能表示负数，只能表示不能表示负数，只能表示0 255的正的正整数。字节数据类型跟其他数值类型的数据一样参与各种运算。整数。字节数据类型跟其他数值类型的数据一样参与各种运算。3.1.1 基本数据类型基本数据类型 货币型数据类型主要用来表示货币值，在内存中占货币型数据类型主要用来表示货币值，在内存中占8个字节个字节（64位）。整数部分为位）。整数部分为15位，可以精确到小数点后位，可以精确
9、到小数点后4位，第位，第5位四舍五入，属于定点实数。其取值范围为：位四舍五入，属于定点实数。其取值范围为：-922337203685447.5808 922337203685447.5807 3.1.1 基本数据类型基本数据类型 许多问题都需要我们进行逻辑判断是许多问题都需要我们进行逻辑判断是“对对”还是还是“错错”。例如，例如，52其结果是其结果是“对对”；52语句后，在窗体上打印出语句后，在窗体上打印出True，当执行，当执行Print52语句后，在窗体上打印出语句后，在窗体上打印出False。布尔。布尔型数据占据型数据占据2个字节。个字节。当数值类型转换成布尔类型时，当数值类型转换成布尔
10、类型时，0转化为转化为False，非，非0转化为转化为True。反之，。反之，False转化为转化为0，True转化为转化为-1。3.1.1 基本数据类型基本数据类型 变体数据类型是一种特殊的数据类型，灵活性很强，除了变体数据类型是一种特殊的数据类型，灵活性很强，除了定长定长String数据和用户自定义类型外，它可以表示其它任何种数据和用户自定义类型外，它可以表示其它任何种类的数据类型，类的数据类型，Variant包括系统定义的所有数据类型，在具包括系统定义的所有数据类型，在具体运用时，体运用时，Variant会自动变成其中一种数据类型。会自动变成其中一种数据类型。除了可以包含各种类型的数据外
11、，除了可以包含各种类型的数据外，Variant类型的变量还可类型的变量还可以是以是Null、Empty及及Error等特殊值。等特殊值。3.1.2 数据类型转换数据类型转换 VB中提供了几种类型转换函数，表中提供了几种类型转换函数，表5-1中，列出了一些常用中，列出了一些常用的类型转换函数及其目标类型。的类型转换函数及其目标类型。函数返回值类型功能例子结果Val(x)Double将数字字符串x转换成数值Val(“10”)+3Val(“12ab”)1312Str(x)String将数值转换成字符串，字符串首位表示符号Str(123)Str(-123)“123”“-123”Asc(x)Intege
12、r求字符串首字母的ASCII值Asc(“aac”)97Chr(x)String将ASCII值x转换为对应字符Chr(65)“A”Cint(x)Integer将x转换成整型数，小数部分四舍五入Cint(12.36)12Clng(x)Long将x转换成长整型数，小数部分四舍五入Clng(22.52)23Csng(x)Single将x舍入为单精度数Csng(50.2664597)50.26646Cdbl(x)Double将x舍入为双精度数Cdbl(50.266)50.266Ccur(x)Currency把x转换成货币型数，小数部分最多保留4位且自动四舍五入Ccur(24.23569)24.2357C
13、var(x)Variant把x转为变体类型Cvar(“bac”&123)“bac123”Hex(x)String把十进制数x转换成十六进制数Hex(25)19Oct(x)String把十进制数x转换成八进制数Oct(25)313.2 变量变量 在程序处理数据时，用户把信息暂时存储在计算机的内存在程序处理数据时，用户把信息暂时存储在计算机的内存里。要存储信息，用户必须指定存储信息的单元，以便获取信里。要存储信息，用户必须指定存储信息的单元，以便获取信息，这就是变量的功能。在所有的编程语言中，变量都为内存息，这就是变量的功能。在所有的编程语言中，变量都为内存中的某个特定的位置命名，一旦定义了某个变
14、量，该变量表示中的某个特定的位置命名，一旦定义了某个变量，该变量表示的都将是同一个内存位置，直到释放该变量，但在程序运行期的都将是同一个内存位置，直到释放该变量，但在程序运行期间代表变量的存储空间中的值是可以变化的。间代表变量的存储空间中的值是可以变化的。3.2.1 变量的命名规则变量的命名规则 在在VB中，变量的命名要遵循以下规则：中，变量的命名要遵循以下规则：1.变量名必须以字母或汉字开头，例如变量名必须以字母或汉字开头，例如Name，C用户，用户，f23等变量名是合法的，而等变量名是合法的，而3jk，#Num等变量明是非法的。等变量明是非法的。2.变量名中不能包含除字母、汉字、数字和下划
15、线以外的变量名中不能包含除字母、汉字、数字和下划线以外的字符。字符。3.变量名不能和关键字同名。变量名不能和关键字同名。4.变量名在有效的范围内必须是唯一的。变量名在有效的范围内必须是唯一的。5.变量名的长度不得超过变量名的长度不得超过255个字符。个字符。3.2.2 变量的声明变量的声明 声明变量的语法格式是：声明变量的语法格式是：Dim、Static、Public、Private其中之一。其中之一。：编程者所起的符合命名规则的变量名称。：编程者所起的符合命名规则的变量名称。：Integer、String、Long、Currency等数据类型等数据类型之一。之一。例：例：Dim x As I
16、nteger x为整型数据为整型数据Public y y为变体数据类型为变体数据类型 As 3.3 常量常量在在VB语言中，常量可以分为两类：语言中，常量可以分为两类：直接常量直接常量和和符号常量符号常量。直接常量就是指在程序代码中，以直接明显的形式给出的直接常量就是指在程序代码中，以直接明显的形式给出的数据。数据。包括数值常量、字符串常量、布尔常量、日期常量等。3.3 常量常量 符号常量可以分为系统提供的符号常量和用户声明的符号常量。(1)系统提供的符号常量 VB为不用的活动提供了多个常量集合，有颜色定义常量、数据访问常量、形状常量等等。如vbRed、vbGreen。单击“视图”菜单中的“对
17、象浏览器”，系统弹出如图5-1所示的对话框，可使用该对话框中的列表来找到所需的常量，选中常量后，对话框底端的文本区域将显示常量的值和功能。3.3 常量常量图3-1“对象浏览器”对话框3.3 常量常量 (2)用户声明的符号变量用户声明的符号变量 尽管尽管VB为许多活动定义了大量的常量，但有时候用户还要为许多活动定义了大量的常量，但有时候用户还要建立自定义常量，声明常量的语法格式为：建立自定义常量，声明常量的语法格式为：Public|Private Const As =表达表达式式 其中：其中：符号常量名：常量名的命名规则同变量名一样，为了便于符号常量名：常量名的命名规则同变量名一样，为了便于与一
18、般变量名区别，常量名一般用大写字母。与一般变量名区别，常量名一般用大写字母。As 类型：说明了常量的数据类型，省略该选项，数据类型类型：说明了常量的数据类型，省略该选项，数据类型有表达式决定。有表达式决定。表达式：可以是数值常数、字符串常数以及由运算符组成表达式：可以是数值常数、字符串常数以及由运算符组成的表达式。的表达式。Const PI=3.1415926 声明了常量声明了常量PI，代表，代表3.14159263.4 常用内部函数常用内部函数 常用的内部函数按功能可以分为数学函数、转换函数、字常用的内部函数按功能可以分为数学函数、转换函数、字符串函数、日期函数、颜色函数等。符串函数、日期函
19、数、颜色函数等。函数名函数名返回值类型返回值类型功能功能函数实例函数实例结果结果Abs(N)与x相同求绝对值函数Abs(-2)2Sin(N)Double正弦函数Sin(0)0Cos(N)Double余弦函数Cos(0)1Tan(x)Double正切函数Tan(0)0Atn(x)Double反正切函数4*atn(1)3.14159Exp(N)Double以e为底的指数函数，exExp(2)7.389Log(N)Double以e为底的自然对数，logexLog(8)2.079Rnd(N)Single产生随机数，N可以省略Rnd0 1之间的随机数Sgn(N)Integer取正负号函数Sgn(-3)-
20、1Sgn(3)1Sgn(0)0Sqr(N)Double平方根函数Sqr(4)2Fix(x)Integer取x的整数部分Int(25.9)Int(-99.98)25-99Int(x)Integer取不大于x的最大整数Int(25.9)Int(-99.98)25-1003.4 常用内部函数常用内部函数 说明：说明：(1)在三角函数中，自变量在三角函数中，自变量N是一个数值表达式，必须以弧是一个数值表达式，必须以弧度表示。度表示。(2)Log和和Exp互为反函数，即互为反函数，即Log(Exp(N)和和Exp(Log(N)的结果仍是原来自变量的结果仍是原来自变量N的值。的值。(3)Sqr函数的自变量
21、不能是负数。函数的自变量不能是负数。(4)Rnd函数返回随机数的范围是：函数返回随机数的范围是：0，1），即是大于等于），即是大于等于0而小于而小于1的函数。的函数。3.4 常用内部函数常用内部函数常用转换函数 函数名函数名功能功能函数实例函数实例结果结果Asc(C)把字符串转换为ASCII码值或把字符串中的第一个字符转换为ASCII值Asc(“A”)Asc(“ABC”)6566Chr$(N)ASCII码值转换成相应的字符Chr$(65)“A”Str$(N)数值转换为字符串Str$(12.34)“12.34”Fix(N)截尾取整函数，无舍入运算Fix(2.4)2Fix(-2.4)-2Int(N
22、)取小于或等于N的最大整数Int(-2.6)-3Int(2.6)2Hex$(N)把十进制数转换成十六进制数Hex$(100)64Oct$(N)把十进制数转换成八进制数Oct$(100)144Lcase$(C)把大写字母转换成小写字母Lcase$(“ABC”)abcUcase$(C)把小写字母转换成大写字母Ucase$(“abc”)ABCVal(C)把数字字符串转换为数值Val(“12AB”)123.4 常用内部函数常用内部函数 说明：说明：(1)Chr和和Asc互为反函数，互为反函数，Chr(Asc(C)=C，Asc(Chr(N)=N。(2)Val函数在将数字字符串转换为数值类型时，当字符串中
23、函数在将数字字符串转换为数值类型时，当字符串中出现数值类型规定的字符以外的字符，则停止转换，函数的返出现数值类型规定的字符以外的字符，则停止转换，函数的返回值为停止转换前的结果。如果第一个字符即为非数值类型规回值为停止转换前的结果。如果第一个字符即为非数值类型规定的字符，则函数的返回值为定的字符，则函数的返回值为0。(3)VB中还提供了其他的类型转换函数，如在表中还提供了其他的类型转换函数，如在表5-1中介绍中介绍的类型转换函数。的类型转换函数。3.4 常用内部函数常用内部函数 函数名函数名返回值类型返回值类型功能功能函数实例函数实例结果结果Lcase(字符串)String把大写字母转换成小写
24、字母Lcase(“ABC”)abcUcase(字符串)String把小写字母转换成大写字母Ucase(“abc”)ABCLtrim(字符串)String去掉字符串左边的字符串Rtrim(“AB ”)“AB ”Rtrim(字符串)String去掉字符串右边的字符串Rtrim(“AB ”)“AB”Trim(字符串)String去掉字符串两边的空格Trim(“AB ”)“AB”Left(字符串,N)String取出字符串左边的N个字符Left(“ABCD”,2)“AB”Right(字符串,N)String取出字符串右边的N个字符Right(“ABCD”,2)“CD”Mid(字符串,pn)String
25、取子字符串函数，从字符串中N1位置向右取N2个字符。省略N2，默认到字符串结束。Mid(“ABCDEF”,2,3)“BCD”Replace(字符串C,C1,C2,N1,N2)String在字符串C中，从N1（省略N1，默认从第一位）开始将C2代替C1（有N2则代替N2次）Replace(“12345234”,”23”,”AB”)“1AB45AB4”Instr(N1,字符串1,字符串2)Integer在字符串1中从N1位置开始查找字符串2（省略N1，默认从第1位），找不到，返回值为0Instr(2,”ABCDABEF”,“AB”)5Len(字符串)Integer返回字符串长度Len(“VB程序设
26、计”)6LenB(字符串)Integer返回字符串所占字节数LenB(“VB程序设计”)12Space(N)String返回N个空格Space(3)“”String(N,字符串)String返回N个由字符串中的首字母组成的字符串String(3,“ABCD”)“AAA”StrReverse(字符串)String将字符串反序StrReverse(“ABCD”)“DCBA”Strcomp(字符串1，字符串2,k)integer串1串2 1Strcomp(“AB”,”ABC”)-1Join(数组名,分隔符)将数组中的各元素按分隔符联结成字符串变量A=array(“AB”,”12”)Join(A,”)
27、AB12Split(字符串，分隔符)将字符串按分隔符分隔成字符数组，与Join作用相反。A=Split(“AB,12”,”,”)A(0)=“AB”A(1)=“12”3.4 常用内部函数常用内部函数表3-4 常用转换函数 函数名函数名功能功能函数实例函数实例结果结果Now返回系统的日期和时间Now2007-10-1219：13：48Date()返回系统日期Date()2007-10-12Time()返回系统时间Time19：13：48DateSerial(年，月，日)返回一个日期形式DateSerial(7,10,12)2007-10-12DateValue(字符串)同上，但自变量为字符串Dat
28、eValue(“7,10,12”)2007-10-12Year(C|N)返回年的代码(1753 2078)，相对于1899-12-31为0天后的N天Year(365)1900Day(C|N)返回日期的代码(1 31)Day(“7,10,12”)12Hour(时间)返回小时数Hour(#2:3:28 PM#)14Month(C|N)返回月份的代码(112)Month(“7,10,12”)10MonthName(N)返回月份名称MonthName(10)十月Second(C|N)返回秒(0 59)Second(#19：13：48#)48Minute(C|N)返回分(0 59)Minute(#19：
29、13：48#)13WeekDay(C|N)返回星期代码(1 7)星期日为1，星期一为2WeekDay(“7,10,12”)6WeekDayName(N)把星期代码(1 7)转换为星期名称WeekDayName(7)星期六3.4 常用内部函数常用内部函数 说明：说明：(1)VB中的字符串长度是以字为单位的，也就是不论西文字中的字符串长度是以字为单位的，也就是不论西文字符还是汉字都作为一个字，占两个字节。符还是汉字都作为一个字，占两个字节。Len函数和函数和LenB函函数都是求字符串的长度，但数都是求字符串的长度，但Len的单位是字，的单位是字，LenB的单位是的单位是字节。字节。(2)Join和
30、和Split作用相反，分别是对数组元素的连接和分离。作用相反，分别是对数组元素的连接和分离。(3)函数后的函数后的$可以省略，系统默认的返回值也是字符串类可以省略，系统默认的返回值也是字符串类型。型。3.4 常用内部函数常用内部函数表3-3 常用日期时间函数 函数名函数名功能功能函数实例函数实例结果结果NowNow返回系统的日期和时间返回系统的日期和时间NowNow2007-10-122007-10-121919：1313：4848Date()Date()返回系统日期返回系统日期Date()Date()2007-10-122007-10-12Time()Time()返回系统时间返回系统时间Ti
31、meTime1919：1313：4848DateSerialDateSerial(年，月，日年，月，日)返回一个日期形式返回一个日期形式DateSerial(7,10,12)DateSerial(7,10,12)2007-10-122007-10-12DateValue(C)DateValue(C)同上，但自变量为字符串同上，但自变量为字符串DateValue(DateValue(“7,10,17,10,12 2”)2007-10-122007-10-12Year(C|N)Year(C|N)返回年的代码返回年的代码(1753 2078)(1753 2078)，相对，相对于于1899-12-31
32、1899-12-31为为0 0天后的天后的N N天天Year(365)Year(365)19001900Day(C|N)Day(C|N)返回日期的代码返回日期的代码(1 31)(1 31)Day(Day(“7,10,127,10,12”)1212Month(C|N)Month(C|N)返回月份的代码返回月份的代码(112)(112)Month(Month(“7,10,127,10,12”)10103.4 常用内部函数常用内部函数表3-3 常用日期时间函数 函数名函数名功能功能函数实例函数实例结果结果MonthName(N)MonthName(N)返回月份名称返回月份名称MonthName(10
33、)MonthName(10)十月十月Second(C|N)Second(C|N)返回秒返回秒(0 59)(0 59)Second(#19Second(#19：1313：48#)48#)4848Minute(C|N)Minute(C|N)返回分返回分(0 59)(0 59)Minute(#19Minute(#19：1313：48#)48#)1313WeekDay(C|N)WeekDay(C|N)返回星期代码返回星期代码(1 7)(1 7)星期日为星期日为1 1，星期一为星期一为2 2WeekDay(WeekDay(“7,10,127,10,12”)6 6WeekDayNameWeekDayName(N)(N)把星期代码把星期代码(1 7)(1 7)转换为星期转换为星期名称名称WeekDayName(7)WeekDayName(7)星期六星期六3.4 常用内部函数常用内部函数 RGB(red，green，blue)：用来表示一个RGB颜色值，其中red、green、blue表示三原色，分别取值0 255，如：RGB(255,255,255)表示白色。传给RGB的任何参数的值，如果超过255，会被当作255。
