清华大学VB——Visual Basic语言基础PPT学习教案

1、会计学1 清华大学清华大学VBVisual Basic语言基础语言基础 2.2 数据类型数据类型 Visual Basic不但提供了系统定义的基本数据类型，不但提供了系统定义的基本数据类型， 称为标准数据类型，而且还允许用户定义自己的数据类型，称为标准数据类型，而且还允许用户定义自己的数据类型， 称为用户自定义数据类型。称为用户自定义数据类型。 2.2.1 数值型数值型 整型整型 (Integer) 十进制数（十进制数（-3276832767） 八进制数八进制数(以以&O或或&引导引导)(&O0&O177777) 十六进制数十六进制数(以以&H引导引导)(&H0&HFFFF) 第1页/共57页

2、 长整型长整型 （Long） 十进制数十进制数 八进制数（以八进制数（以&O或或&开头，以开头，以&结尾）结尾） 十六进制数（以十六进制数（以&H开头，以开头，以&结尾）结尾） 单精度型（单精度型（Single） (最多最多7位有效数字位有效数字) 定点形式，如：定点形式，如：-355.7 浮点形式（以浮点形式（以E表示底数表示底数10），）， 如：如：-3.557E2 第2页/共57页 双精度型（双精度型（Double） (最多最多15位有效数字位有效数字) 定点形式，如：定点形式，如：-355.712617671124 浮点形式（以浮点形式（以D表示底数表示底数10），）， 如：如：-3.

3、55712617671124E2 货币型货币型 （Currency） 精度：精度：15.4位位 字节型字节型 （Byte） 表示表示0255的无符号整数，的无符号整数， 常用于二进制数类型常用于二进制数类型 第3页/共57页 使用数值类型数据时，需要使用数值类型数据时，需要注意注意： （1）任何一种数据类型都有明确的上限和下限，用户只能在指）任何一种数据类型都有明确的上限和下限，用户只能在指 定的上、下限范围内使用，不能超界，否则，系统将提示定的上、下限范围内使用，不能超界，否则，系统将提示“溢溢 出出”错误。如果使用较小范围的数据类型时，系统提示错误。如果使用较小范围的数据类型时，系统提示“

4、溢出溢出 ”错误，则应换成更大范围的数据类型，如：一个变量最初声错误，则应换成更大范围的数据类型，如：一个变量最初声 明的数据类型是明的数据类型是Integer，其取值范围为，其取值范围为-3276832767，一旦，一旦 超出这个范围，系统将提示超出这个范围，系统将提示“溢出溢出”错误，此时，可以考虑用错误，此时，可以考虑用 Long，如果仍然提示，如果仍然提示“溢出溢出”错误，可以考虑用错误，可以考虑用Double或或 Currency； （2）如果数据可能包含小数，一般应使用）如果数据可能包含小数，一般应使用Single、Double或或 Currency数据类型，除非能够准确地断定该数

5、据一定是整数，数据类型，除非能够准确地断定该数据一定是整数， 才能使用才能使用Integer或或Long数据类型；数据类型； （3）将存储空间较大的数据类型的数据赋给存储空间较小的数）将存储空间较大的数据类型的数据赋给存储空间较小的数 据类型的变量时，一方面会丢失数据，影响数据精度，另一方据类型的变量时，一方面会丢失数据，影响数据精度，另一方 面系统将提示面系统将提示“溢出溢出”错误，因此要特别小心。如：将一个值错误，因此要特别小心。如：将一个值 非常大的非常大的Double类型数据赋给一个类型数据赋给一个Integer类型变量时就会出类型变量时就会出 现这样的问题。现这样的问题。 第4页/共

6、57页 2.2.2 字符型字符型 必须用双引号（必须用双引号（ ）括起来的一串或一个字符。）括起来的一串或一个字符。 字符型字符型 变长字符串（变长字符串（String） 定长字符串（定长字符串（String * Size）,有字符个有字符个 数限制，超出字符自动截去数限制，超出字符自动截去 布尔型布尔型 （Boolean） 只有两个值：只有两个值：True(用用-1或或 非非0值表示值表示)和和False (用用0表示表示) 2.2.3 布尔型布尔型 注意注意：（：（1）在）在Visual Basic中，布尔型数据与数值型数据相互之中，布尔型数据与数值型数据相互之 间可以自动转换，当将布尔型

7、数据转换成数值型数据时，间可以自动转换，当将布尔型数据转换成数值型数据时，False转换成转换成 0，True转换成转换成-1；当将数值型数据转换成布尔型数据时，；当将数值型数据转换成布尔型数据时，0转换成转换成 False，非，非0转换成转换成True；（；（2）由于数值型数据可以转换成布尔型数）由于数值型数据可以转换成布尔型数 据，因此，数值或数值表达式也可以用于表示条件成立与否或真与假据，因此，数值或数值表达式也可以用于表示条件成立与否或真与假 ，即数值或数值表达式的值为，即数值或数值表达式的值为0时表示条件不成立或条件为假，数值或时表示条件不成立或条件为假，数值或 数值表达式的值为非数

8、值表达式的值为非0时表示条件成立或条件为真。时表示条件成立或条件为真。 第5页/共57页 日期型日期型 （Date） 用用#号括起来的日期或时间值号括起来的日期或时间值 对象型对象型 （Object） 可用可用Set语句应用任何实际对象语句应用任何实际对象 可变类型可变类型 （Variant） 可定义任何未知数据类型可定义任何未知数据类型 2.2.7 用户自定义数据类型用户自定义数据类型 在实际应用中，有些数据可能由多个不同的基本数据类型数据在实际应用中，有些数据可能由多个不同的基本数据类型数据 组成，当需要创建单个变量来记录多个相关的基本数据类型数据组成，当需要创建单个变量来记录多个相关的基

9、本数据类型数据 时，用户只能自己定义所需要的数据类型，称为用户自定义数据时，用户只能自己定义所需要的数据类型，称为用户自定义数据 类型。类型。 在在Visual Basic中，对于常用的基本数据类型：中，对于常用的基本数据类型：Integer、 Long、Single、Double、Currency、String，分别定义了它们，分别定义了它们 的数据类型说明符为：的数据类型说明符为：%、&、!、#、$，这些数据类型说明，这些数据类型说明 符可以放在变量名、符号常量名、数组名、数值常量后指出它们符可以放在变量名、符号常量名、数组名、数值常量后指出它们 的数据类型。的数据类型。 第6页/共57页

10、 学号学号姓名姓名性别性别出生年月出生年月入学成绩入学成绩 20090001李明李明男男1990- -10- -25610 20090002王海王海男男1991- -4- -6647 20090003郑涛郑涛男男1990- -12- -8590 20090004马岚马岚女女1992- -1- -12650 学生基本信息学生基本信息 用户自定义数据类型的语法格式如下：用户自定义数据类型的语法格式如下： Public|Private Type As As End Type 第7页/共57页 第8页/共57页 Private Type student 在窗体模块的通用声明段定义学生基本信息的记录类型

11、在窗体模块的通用声明段定义学生基本信息的记录类型 sno As String * 10 sname As String * 8 ssex As String * 2 sbirthday As Date sscore As Integer End Type Private Sub Command1_Click() Dim stu As student stu.sno = 20090001 stu.sname = 李明李明 stu.ssex = 男男 stu.sbirthday = #10/25/1990# stu.sscore = 610 Label1.Caption = stu.sno & ,

12、 & stu.sname & , & stu.ssex & , & _ stu.sbirthday & , & stu.sscore End Sub 第9页/共57页 第10页/共57页 第11页/共57页 窗体模块窗体模块Form1的程序代码如下：的程序代码如下： Enum week 在窗体模块的通用声明段定义表示星期的枚举类型在窗体模块的通用声明段定义表示星期的枚举类型week Sunday = 1 Monday Tuesday Wednesday Thursday Friday Saturday End Enum 第12页/共57页 第13页/共57页 2.3 变量变量 变量有三个要素：

13、变量名、数据类型和变量的值。变量有三个要素：变量名、数据类型和变量的值。 需要强调的是：一个变量在任意时刻只能存放一个值，需要强调的是：一个变量在任意时刻只能存放一个值， 如果给同一个变量赋另外一个值，则新的值将覆盖变量原来如果给同一个变量赋另外一个值，则新的值将覆盖变量原来 的值。的值。 变量变量 属性变量属性变量 内存变量（用户定义）内存变量（用户定义） 内存变量是用户设计程序时定义的变量，而属性变量是内存变量是用户设计程序时定义的变量，而属性变量是 用对象的属性名作为变量，其语法格式如下：用对象的属性名作为变量，其语法格式如下： . 其中，其中，如果是当前窗体可以省略。如果是当前窗体可以

14、省略。 第14页/共57页 2.3.1 变量声明变量声明 如果没有声明变量，如果没有声明变量，VB使用使用Variant为缺省数据类型。为缺省数据类型。 Dim|Private|Static|Public As , As 2.3.2 变量的隐式声明和显式声明变量的隐式声明和显式声明 (1)在模块通用声明段加入在模块通用声明段加入Option Explicit (2)工具工具选项选项编辑器编辑器要求变量声明。要求变量声明。 用声明语句建立变量后，用声明语句建立变量后，VB自动将数值类型变量赋初自动将数值类型变量赋初 值值0，字符或，字符或Variant类型的变量赋空串，布尔型变量赋类型的变量赋空

15、串，布尔型变量赋False； 在一行代码中定义多个变量时，要分别指出每一个变量的数在一行代码中定义多个变量时，要分别指出每一个变量的数 据类型。据类型。 第15页/共57页 第16页/共57页 【例例2-3】用用DefType语句定义的变量的作用域。语句定义的变量的作用域。 第17页/共57页 第18页/共57页 2.4 常量常量 两种形式：直接常量和符号常量。两种形式：直接常量和符号常量。符号常量又分为系统符号常量又分为系统 定义的符号常量和用户自定义的符号常量定义的符号常量和用户自定义的符号常量 。 直接常量直接常量 字符串常量，如：字符串常量，如：c 数值常量数值常量 布尔常量布尔常量

16、日期常量日期常量 第19页/共57页 2.3.2 符号常量符号常量 1、系统定义的符号常量、系统定义的符号常量:单击单击“标准标准”工具栏中的工具栏中的“对象浏对象浏 览器览器”按钮进行查看按钮进行查看 。 2、用户定义的符号常量、用户定义的符号常量 Public|Private Const As = 其中，其中，由数值常量、字符串常量、布尔值、运算由数值常量、字符串常量、布尔值、运算 符及圆括号组成。符及圆括号组成。 注意注意：尽管符号常量有点像变量，但在程序运行过程中，：尽管符号常量有点像变量，但在程序运行过程中， 不能像变量那样修改符号常量的值或者给符号常量赋新值。不能像变量那样修改符号

17、常量的值或者给符号常量赋新值。 第20页/共57页 2.5 运算符与表达式运算符与表达式 运算符是表示各种不同运算的符号，运算是对数据进行加工的过程。表达式是用运算符将变量、常量、函数（这些被称为操作数）以及圆括号连接起来所组成的式子。运算符是表示各种不同运算的符号，运算是对数据进行加工的过程。表达式是用运算符将变量、常量、函数（这些被称为操作数）以及圆括号连接起来所组成的式子。 圆括号的优先级是最高的，如果表达式中含有圆括号，则优先计算圆括号内表达式的值；如果有多层嵌套的圆括号，则从最内层圆括号开始往外层圆括号计算；相同优先级的圆括号的优先级是最高的，如果表达式中含有圆括号，则优先计算圆括号

18、内表达式的值；如果有多层嵌套的圆括号，则从最内层圆括号开始往外层圆括号计算；相同优先级的运算符按从左到右的顺序计算。运算符按从左到右的顺序计算。 Visual Basic提供了四类运算符：算术运算符、字符串运算符、关系运算符、布尔运算符。提供了四类运算符：算术运算符、字符串运算符、关系运算符、布尔运算符。 2.5.1 算术运算符与算术表达式算术运算符与算术表达式 ，*，/，Mod，+，- 进行进行 运算时，如果参加运算的数运算时，如果参加运算的数 据含有小数，首先将它们四舍五入，据含有小数，首先将它们四舍五入， 使其成为整型数或长整型数，再进行使其成为整型数或长整型数，再进行 运算，结果取整。

19、运算，结果取整。 如果参加运算的数如果参加运算的数 据含有小数，首先据含有小数，首先 将它们四舍五入。将它们四舍五入。 第21页/共57页 3、算术运算符的优先级、算术运算符的优先级 优先级高优先级高 -（负号）（负号） * / Mod + -优先级低优先级低 第22页/共57页 2.5.2 字符串运算符与字符串表达式字符串运算符与字符串表达式 & & &和和+都可以连接两个字符串，都可以连接两个字符串，&会自动将非字符串类会自动将非字符串类 型的数据转换成字符串后再进行连接，而型的数据转换成字符串后再进行连接，而+则不能自动转则不能自动转 换。建议用换。建议用“&”运算符实现字符串的连接，但

20、在输入时，运算符实现字符串的连接，但在输入时， 如果系统不会自动在如果系统不会自动在“&”运算符的左右加上空格，请分别运算符的左右加上空格，请分别 加上空格，否则，系统会提示出错。加上空格，否则，系统会提示出错。 2.5.3 日期运算符与日期表达式日期运算符与日期表达式 日期型数据只能进行加日期型数据只能进行加(+)、减、减(-)运算。有三种情况运算。有三种情况 ： (1)两个日期型数据相减，结果为一个数值型数据；两个日期型数据相减，结果为一个数值型数据； (2)日期型数据与数值型数据相加，结果为日期型数据；日期型数据与数值型数据相加，结果为日期型数据； (3)日期型数据与数值型数据相减，结果

21、为日期型数据。日期型数据与数值型数据相减，结果为日期型数据。 注意注意 ！ 第23页/共57页 第24页/共57页 第25页/共57页 优先级优先级布尔运算符布尔运算符运运 算算说说 明明 1 1NotNot非非对操作数取反对操作数取反 2 2AndAnd与与当两个操作数均为真时结果为真，其余均为假当两个操作数均为真时结果为真，其余均为假 3 3Or r或或当两个操作数均为假时结果为假，其余均为真当两个操作数均为假时结果为假，其余均为真 4 4XorXor异或异或当两个操作数相同时结果为假，不同为真当两个操作数相同时结果为假，不同为真 5 5EqvEqv等价等价当两个操作数相同时结果为真，不同

22、为假当两个操作数相同时结果为真，不同为假 6 6ImpImp蕴含蕴含当第一个操作数为真，第二个操作数为假时结果为当第一个操作数为真，第二个操作数为假时结果为 假，其余均为真假，其余均为真 第26页/共57页 XYNot XX And YX Or YX Xor YX Eqv YX Imp Y TrueTrueFalseTrueTrueFalseTrueTrue TrueFalseFalseFalseTrueTrueFalseFalse FalseTrueTrueFalseTrueTrueFalseTrue FalseFalseTrueFalseFalseFalseTrueTrue 两个数值型数据

23、也可以进行布尔运算，但要求两个操作数两个数值型数据也可以进行布尔运算，但要求两个操作数 必须在必须在-2147483648, +2147483648区间内，运算时操作数要转区间内，运算时操作数要转 换为换为16位或位或32位二进制数，实现两个操作数对应二进制位的布位二进制数，实现两个操作数对应二进制位的布 尔运算。尔运算。 例如例如：计算布尔表达式：计算布尔表达式“100 Or 15”的值，将十进制数的值，将十进制数100 和和15分别转换为分别转换为16位二进制数，然后对这两个二进制数进行按位二进制数，然后对这两个二进制数进行按 位位Or运算。运算。 00000000 01100100 Or

24、00000000 00001111 00000000 01101111 运算结果为二进制数运算结果为二进制数00000000 01101111，转换为十进制数是，转换为十进制数是111。 第27页/共57页 4.2.3 VB运算符的优先顺序运算符的优先顺序 算术算术 运算符运算符 字符串字符串 运算符运算符 关系关系 运算符运算符 布尔布尔 运算符运算符 【例例2-4】设设a=2，b=3，c=4，计算下列表达式的值，计算下列表达式的值 Not a=c Or 4*c=b2 And ba+c 表达式的计算步骤如下：表达式的计算步骤如下： 计算算术表达式：计算算术表达式： Not 2=4 Or 16

25、=9 And 36 计算关系表达式：计算关系表达式： Not True Or False And True 计算计算Not： False Or False And True 计算计算And： False Or False 计算计算Or：False 第28页/共57页 第29页/共57页 2.6 常用内部函数常用内部函数 VB中有两类函数：系统预定义的内部函数和用户自定义中有两类函数：系统预定义的内部函数和用户自定义 的函数的函数 。 函数调用的一般格式为：函数调用的一般格式为： () 其中，实际参数表可以是一个或多个参数，参数可以是常量、其中，实际参数表可以是一个或多个参数，参数可以是常量、

26、变量或表达式，如有多个参数，参数之间用逗号分隔；如果函变量或表达式，如有多个参数，参数之间用逗号分隔；如果函 数没有参数，调用时可以省略圆括号，如：日期函数数没有参数，调用时可以省略圆括号，如：日期函数Date没有没有 参数，圆括号省略。参数，圆括号省略。 函数在程序代码中的具体调用形式主要有如下四种：函数在程序代码中的具体调用形式主要有如下四种： （1）将函数的返回值赋给变量，如：）将函数的返回值赋给变量，如：y=sin(x)； （2）直接输出函数的返回值，如：）直接输出函数的返回值，如：Label1.Caption = Sin(x)； （3）将函数的返回值参与表达式的运算，如：）将函数的返

27、回值参与表达式的运算，如：3*sin(x)+5； （4）将函数的返回值作为另一个函数的参数，如：）将函数的返回值作为另一个函数的参数，如：month(date)。 第30页/共57页 2.6.1 数学函数数学函数 函函 数数功功 能能示示 例例结结 果果 Sin(x)返回返回x的正弦值，的正弦值，x的单位为弧度的单位为弧度 Sin(30*3.14/180)0.499770102643102 Cos(x)返回返回x的余弦值，的余弦值，x的单位为弧度的单位为弧度 Cos(30*3.14/180)0.866158094405463 Tan(x)返回返回x的正切值，的正切值，x的单位为弧度的单位为弧度

28、 Tan(30*3.14/180)0.576996400392873 Atn(x)返回返回x的反正切值，的反正切值，x的单位为弧度的单位为弧度 Atn(30*3.14/180)0.482139556407762 Abs(x)返回返回x的绝对值的绝对值 Abs(-12.3)12.3 Sqr(x)返回返回x的平方根，的平方根，x0 Sqr(10)3.16227766016838 Exp(x)返回以返回以e为底的为底的x的指数，即的指数，即ex Exp(3.2)24.5325301971094 Log(x)返回以返回以e为底为底x的自然对数，即的自然对数，即lnx Log(3.2)1.1631508

29、0980568 Sgn(x)当当x0时返回时返回1；x=0时返回时返回0；x0时返回时返回-1 Sgn(3.2)1 Int(x)返回不大于返回不大于x的最大整数（下取整）的最大整数（下取整）Int(2.64), Int(-2.64) 2,-3 Fix(x)返回返回x的整数部分（取整）的整数部分（取整）Fix(2.64), Fix(-2.64) 2,-2 Round(x,n) 四四舍五入，舍五入，n n为小数点右边应保留的位数，如为小数点右边应保留的位数，如 果省略果省略n n，则返回整数，则返回整数 Round(12.6456789) Round(12.6456789,3) 13 12.646

30、 第31页/共57页 2.6.2 字符串函数字符串函数 函函 数数功功 能能示示 例例结结 果果 Ltrim(s1)Ltrim(s1)去掉字符串左边的所有空格去掉字符串左边的所有空格Ltrim( abc)Ltrim( abc)abcabc Rtrim(s1)Rtrim(s1)去掉字符串右边的所有空格去掉字符串右边的所有空格Rtrim(abcRtrim(abc )abcabc Trim(s1)Trim(s1)去掉字符串左、右两边的所有空格去掉字符串左、右两边的所有空格trim( abc )trim( abc )abcabc Left(s1,n)Left(s1,n)从字符串左边取从字符串左边取n

31、n个字符个字符Left(abcde,2)Left(abcde,2)abab Right(s1,n)Right(s1,n)从字符串右边取从字符串右边取n n个字符个字符Right(abcde,2)Right(abcde,2)dede Mid(s1,n,m)Mid(s1,n,m)从字符串第从字符串第n n个字符开始取个字符开始取m m个字符个字符Mid(abcde,2,3)Mid(abcde,2,3)bcdbcd Len(s1)Len(s1)返回字符串的长度（字符的个数）返回字符串的长度（字符的个数）Len(abcde)Len(abcde)5 5 Instr(n,s1,s2)Instr(n,s1,

32、s2) 在在s1s1中从第中从第n n个字符开始查找个字符开始查找s2s2首次出首次出 现的位置。如果现的位置。如果n n省略省略, , 则从第则从第1 1 个字符开始查找个字符开始查找 Instr(3,abcabca,ab)Instr(3,abcabca,ab) Instr(abcabca,ab)Instr(abcabca,ab) 4 4 1 1 Space(n)Space(n)返回返回n n个空格个空格Space(5)Space(5) String(n,s1)String(n,s1)返回返回s1s1中第中第1 1个字符重复个字符重复n n次的字符串次的字符串String(5,abcabc)

33、String(5,abcabc)aaaaaaaaaa LCase(s1)LCase(s1)返回返回s1s1中所有字母转换成小写的字符串中所有字母转换成小写的字符串LCase(aBcDeF)LCase(aBcDeF)abcdefabcdef UCase(s1)UCase(s1)返回返回s1s1中所有字母转换成大写的字符串中所有字母转换成大写的字符串UCase(aBcDeF)UCase(aBcDeF)ABCDEFABCDEF 第32页/共57页 2.6.3 日期和时间函数日期和时间函数 函函 数数功功 能能 NowNow返回系统当前的日期和时间（返回系统当前的日期和时间（yyyy-mm-dd hh

34、:mm:ssyyyy-mm-dd hh:mm:ss） DateDate返回系统当前的日期（返回系统当前的日期（yyyy-mm-ddyyyy-mm-dd） Day(d)Day(d)返回日期返回日期d d中的日的值（中的日的值（1 13131） Month(d)Month(d)返回日期返回日期d d中的月份值（中的月份值（1 11212） Year(d)Year(d)返回日期返回日期d d中的年份值（中的年份值（4 4位）位） Weekday(d)Weekday(d)返回日期返回日期d d对应的星期数（对应的星期数（1 17 7），星期日返回），星期日返回1 1，星期一返回，星期一返回2 2， T

35、imeTime返回系统当前的时间（返回系统当前的时间（hh:mm:sshh:mm:ss） Hour(t)Hour(t)返回时间返回时间t t中的小时数（中的小时数（02323） Minute(t)Minute(t)返回时间返回时间t t中的分钟数（中的分钟数（05959） Second(t)Second(t)返回时间返回时间t t中的秒数（中的秒数（05959） TimerTimer返回从午夜零点开始到现在所经过的秒数返回从午夜零点开始到现在所经过的秒数 第33页/共57页 2.6.4 格式输出函数格式输出函数 格式输出函数可以使数值、字符串或日期按指定的格式输格式输出函数可以使数值、字符串或

36、日期按指定的格式输 出，其语法格式如下：出，其语法格式如下： Format(,) 其中，格式字符串有三类：数值格式、字符串格式、日期时间其中，格式字符串有三类：数值格式、字符串格式、日期时间 格式。格式。 字符字符含含 义义示示 例例结结 果果 0 有数字与有数字与0对应则显示对应对应则显示对应 的数字，没有数字与的数字，没有数字与0 对应则显示对应则显示0 Format(-246.79, Format(-246.79, 00000. .000)- -00246.790 , ,千分位千分位Format(13246.79, Format(13246.79, 00, ,000. .000)13,2

37、46.790 % %百分比，表达式乘以百分比，表达式乘以100并并 加上加上% % Format(Format(0.79146, .79146, 00. .00%)%)79.15%79.15% 常用数值格式字符常用数值格式字符 第34页/共57页 常用字符串格式字符常用字符串格式字符 字符字符含含 义义示示 例例结结 果果 有字符与有字符与 对应则显示对应的字符，对应则显示对应的字符， 没有字符与没有字符与 对应则显示空格对应则显示空格 Format(aBcDe, )Format(aBcDe, ) aBcDe aBcDe ( (左边有两个空格左边有两个空格) ) 将所有字符以小写字母格式显示将

38、所有字符以小写字母格式显示Format(aBcDe, )Format(aBcDe, 将所有字符以大写字母格式显示将所有字符以大写字母格式显示Format(aBcDe, )Format(aBcDe, )ABCDEABCDE ! 强制从左向右填充字符，缺省值是从强制从左向右填充字符，缺省值是从 右向左填充字符右向左填充字符 Format(aBcDe, !)Format(aBcDe, !) aBcDe aBcDe ( (右边有两个空格右边有两个空格) ) 常用日期时间格式字符常用日期时间格式字符 字符字符含含 义义示示 例例结结 果果 dddddd以年、月、日格式显示日期以年、月、日格式显示日期Fo

39、rmat(date, dddddd)2010年年6月月14日日 yyyy- -mm- -dd以以yyyy-mm-ddyyyy-mm-dd格式显示日期格式显示日期Format(date, yyyy- -mm- -dd)2010- -06- -14 ttttt以以hh:mm:sshh:mm:ss格式显示时间格式显示时间Format(Time, ttttt)10:21:03 hh:mm:ss以以hh:mm:sshh:mm:ss格式显示时间格式显示时间Format(Time, hh:mm:ss)10:22:07 AM/PM在在1212小时制中自动判断加入小时制中自动判断加入AMAM或或PMPMForm

40、at(Time, tttttAM/PM)10:28:32AM mmmm 显示英文月份的全称显示英文月份的全称(January(January December)December) Format(date, mmmm)June 第35页/共57页 第36页/共57页 2.6.6 转换函数转换函数 函函 数数返返 回回 类类 型型 示示 例例结结 果果 Str(n)将数值将数值n n转换成对应的数字字符串转换成对应的数字字符串Str(-123.45)-123.45 Val(s)将数字字符串将数字字符串s s转换成对应的数值转换成对应的数值Val(-123.45)-123.45 Asc(s)返回字符

41、串返回字符串s s中第一个字符的中第一个字符的ASCIIASCII值值Asc(AbCde)65 Chr(n)将数值将数值n n转换成对应转换成对应ASCIIASCII值的字符值的字符Chr(66)B Hex(n)将十进制正整数将十进制正整数n n转换成十六进制数转换成十六进制数Hex(100)(64)16 Oct(n)将十进制正整数将十进制正整数n n转换成八进制数转换成八进制数Oct(100)(144)8 CInt(e)将表达式将表达式e e转换成整型数转换成整型数, ,小数四舍五入小数四舍五入CInt(435.887)436 CLng(e)将表达式将表达式e e转换成长整型数转换成长整型数

42、, ,小数四舍五入小数四舍五入CLng(496435.887)496436 CSng(e)将表达式将表达式e e转换成单精度型数转换成单精度型数CSng(1.23456789)1.234568 CDbl(e)将表达式将表达式e e转换成双精度型数转换成双精度型数CDbl(1.23456789*1.000025)1.23459875419725 CCur(e)将表达式将表达式e e转换成货币型数转换成货币型数CCur(1.23456789*1.000025)1.2346 CBool(e)将表达式将表达式e e转换成布尔型数转换成布尔型数CBool(-120.61)True CDate(e)将表达

43、式将表达式e e转换成日期型数转换成日期型数CDate(2010-3-25)2010-3-25 第37页/共57页 第38页/共57页 2.6.8 判断函数判断函数 函函 数数返返 回回 类类 型型示示 例例结果结果 IsArray(v)判断变量判断变量v v是否是数组名是否是数组名设设arr1arr1为数组名为数组名, ,则则IsArray(arr1)IsArray(arr1)TrueTrue IsDate(e)判断表达式判断表达式e e是否是日期或日期字符串是否是日期或日期字符串IsDate(IsDate(2010- -6- -20)TrueTrue IsMissing(a)判断形式参数判

44、断形式参数a a是否传递了实际参数值是否传递了实际参数值如果形参对应的实参省略如果形参对应的实参省略TrueTrue IsNumeric(e)判断表达式判断表达式e e是否是数值或数字字符串是否是数值或数字字符串IsNumeric(IsNumeric(201.6)TrueTrue IsEmpty(v)判断可变类型变量判断可变类型变量v v是否被显式初始化是否被显式初始化可变类型变量可变类型变量v v未被显式初始化时未被显式初始化时TrueTrue IsObject(v)判断变量判断变量v v是否是对象是否是对象IsIsObject(Form1)bject(Form1)TrueTrue Type

45、Name(e)返回表达式返回表达式e e的数据类型名的数据类型名, ,返回字符串返回字符串TypeName(12)TypeName(12)IntegerInteger 说明：说明： （1）IsEmpty()函数仅对可变类型变量进行测试，当可变类型变函数仅对可变类型变量进行测试，当可变类型变 量未被显式初始化时返回值为量未被显式初始化时返回值为True，否则，返回值为，否则，返回值为False； 例如例如：有语句：有语句Dim var，则函数，则函数IsEmpty(var)的返回值为的返回值为True； 若若var = 100，则函数，则函数IsEmpty(var)的返回值为的返回值为False

46、。 （2）对含有小数点的数值常量，）对含有小数点的数值常量，TypeName()函数的返回值均函数的返回值均 为为Double。 例如例如：TypeName(0.0000014)和和TypeName(123456.14)的返回值的返回值 均为均为Double。 第39页/共57页 2.7 程序语句程序语句 2.7.1 语句与函数的区别语句与函数的区别 在在Visual Basic程序代码中，每条语句占一行，一个语句行程序代码中，每条语句占一行，一个语句行 的长度最多不能超过的长度最多不能超过1023个字符。个字符。 函数是指给定具体的实际参数值，将从函数返回一个函数值。函数是指给定具体的实际参

47、数值，将从函数返回一个函数值。 语句与函数的区别：语句一般是执行具体的功能，没有返回语句与函数的区别：语句一般是执行具体的功能，没有返回 值，而函数一般有一个返回值。值，而函数一般有一个返回值。 2.7.2 Visual Basic语句的书写规则语句的书写规则 （1）书写语句时，应严格按照）书写语句时，应严格按照Visual Basic的语法格式书写，的语法格式书写， 否则，会产生语法错误；否则，会产生语法错误； （2）一般情况下，一条语句占一行；）一般情况下，一条语句占一行； （3）如果希望在一行中书写多条语句，则语句之间要用冒号）如果希望在一行中书写多条语句，则语句之间要用冒号 “:”分隔

48、；分隔； （4）如果希望将一条语句书写成多行，则在断开的语句行末尾）如果希望将一条语句书写成多行，则在断开的语句行末尾 加续行符（一个空格加一个短下划线加续行符（一个空格加一个短下划线“_”）；）； （5）对于由一行或多行紧密相关的语句组成的语句组，建议采）对于由一行或多行紧密相关的语句组成的语句组，建议采 用左缩进（如：左缩进两个字符）来体现语句组的层次结构，用左缩进（如：左缩进两个字符）来体现语句组的层次结构， 以便于程序阅读和维护。以便于程序阅读和维护。 第40页/共57页 第41页/共57页 【例例2-5】交换两个内存变量的值。设有两个内存变量交换两个内存变量的值。设有两个内存变量x和

49、和y， x赋值为赋值为10，y赋值为赋值为20，编写程序将内存变量，编写程序将内存变量x和和y的值互换。的值互换。 Private Sub Command1_Click() Dim x As Integer, y As Integer, t As Integer x = 10 y = 20 Label1.Caption = 交换前：x= & x & ，y= & y t = x x = y y = t Label2.Caption = 交换后：x= & x & ，y= & y End Sub 第42页/共57页 第43页/共57页 第44页/共57页 第45页/共57页 【例例2-6】计算圆的面

50、积；过程级变量和过程级符号常量示例。计算圆的面积；过程级变量和过程级符号常量示例。 Private Sub Command1_Click() Dim r As Single, s As Single Const pi = 3.14 r = r + 1 s = pi * r 2 Label2.Caption = 半径r= & r & ，pi= & pi & vbCrLf & 圆的面积s= & s End Sub Private Sub Command2_Click() Dim r As Single, s As Single Const pi = 3.1415926 r = r + 1 s =

51、pi * r 2 Label3.Caption = 半径r= & r & ，pi= & pi & vbCrLf & 圆的面积s= & s End Sub 第46页/共57页 【例例2-7】计算圆的面积；模块级变量和模块级符号常量示例。计算圆的面积；模块级变量和模块级符号常量示例。 Rem 在窗体模块Form1的通用声明段定义模块级变量和模块级符号常量 Dim r As Single 也可写成Private r As Single Const pi = 3.14 也可写成Private Const pi = 3.14 Private Sub Command1_Click() Dim s As S

52、ingle r = r + 1 s = pi * r 2 Label2.Caption = 半径r= & r & ,pi= & pi & vbCrLf & 圆的面积s= & s End Sub Private Sub Command2_Click() Dim s As Single r = r + 1 s = pi * r 2 Label3.Caption = 半径r= & r & ,pi= & pi & vbCrLf & 圆的面积s= & s End Sub 第47页/共57页 【例例2-8】计算圆的面积；在窗体模块中定义全局级变量和模块级符号常量示例。计算圆的面积；在窗体模块中定义全局级变

53、量和模块级符号常量示例。 窗体模块Form1的程序代码如下： Rem 在窗体模块Form1的通用声明段定义全局级变量和模块级符号常量 Public r As Single Const pi = 3.14 也可写成Private Const pi = 3.14 Private Sub Command1_Click() Dim s As Single r = r + 1 s = pi * r 2 Label2.Caption = 半径r= & r & ，pi= & pi & vbCrLf & 圆的面积s= & s End Sub Private Sub Command2_Click() Dim s As Single r = r + 1 s = pi * r 2 Label3.Caption = 半径r= & r & ，pi= & pi