VB程序设计第2版第3章-VB程序设计代码基础课件.ppt

1、第三章第三章 VBVB程序设计代码基础程序设计代码基础第第3 3章章VBVB程序设计代码基础程序设计代码基础本章要点本章要点:字符集字符集 数据类型数据类型常量、变量常量、变量常用内部函数常用内部函数运算符与表达式运算符与表达式1第三章第三章 VBVB程序设计代码基础程序设计代码基础命令格式中的符号约定命令格式中的符号约定 必选参数表示符。如缺少必选参数，则语句必选参数表示符。如缺少必选参数，则语句发生语法错误。发生语法错误。可选参数表示符。如方括号中的内容省略，可选参数表示符。如方括号中的内容省略，则则VB会使用该参数的缺省值。会使用该参数的缺省值。|多个取一表示符。分隔多个选择项，必须选择

2、多个取一表示符。分隔多个选择项，必须选择其中之一。其中之一。括起多个选择项。括起多个选择项。,同类项目的重复出现。同类项目的重复出现。省略了在当时叙述中不涉及的部分。省略了在当时叙述中不涉及的部分。注意注意：这些专用符号和其中的提示，不是语句行这些专用符号和其中的提示，不是语句行或函数的组成部分，在输入具体命令或函数时，或函数的组成部分，在输入具体命令或函数时，上述符号均不能作为语句的组成部分。上述符号均不能作为语句的组成部分。2第三章第三章 VBVB程序设计代码基础程序设计代码基础3.1 字符集字符集1.字符集字符集 使用使用Unicode字符集，其基本字符集包括字符集，其基本字符集包括:数

3、字数字:09 英文字母英文字母:az，AZ 特殊字符特殊字符:空格空格 ！#$%&()*+-/，.:;?_|等。等。2.关键字关键字 关键字又称为保留字关键字又称为保留字 VB自动将关键字的首字母转换为大写字母自动将关键字的首字母转换为大写字母 例如例如:PRINTPRINT 5+6 5+6 转换成转换成 PrintPrint 5+6 5+6 3第三章第三章 VBVB程序设计代码基础程序设计代码基础3标识符标识符 用于标记用户自定义的类型、常量、变量、过程、用于标记用户自定义的类型、常量、变量、过程、控件等的名字。标识符的命名规则如下：控件等的名字。标识符的命名规则如下：n第一个字符必须是字母

4、第一个字符必须是字母。n长度不超过长度不超过255个字符。控件、窗体、模块的个字符。控件、窗体、模块的名字不能超过名字不能超过40个字符。个字符。n不可以包含小数点或者不可以包含小数点或者内嵌的类型声明字符内嵌的类型声明字符。n不能使用关键字。不能使用关键字。例如，例如，Sum、Age、Average、stuName等都是合等都是合法的标识符。法的标识符。习惯上，将组成标识符的每个单词的首字母大写，习惯上，将组成标识符的每个单词的首字母大写，其余字母小写。其余字母小写。Visual Basic不区分标识符的大小写。不区分标识符的大小写。例如，标识符例如，标识符A1和标识符和标识符a1是等价的。

5、是等价的。4第三章第三章 VBVB程序设计代码基础程序设计代码基础3.2 数据类型数据类型基本数据类型：基本数据类型：数值型数值型字符串型字符串型布尔型布尔型日期型日期型对象型对象型可变类型可变类型用户自定义的数据类型用户自定义的数据类型基本数据类型基本数据类型分为分为5第三章第三章 VBVB程序设计代码基础程序设计代码基础3.2.1 数值型数据数值型数据Integer(整型整型)Long(长整型长整型)Single(单精度浮点型单精度浮点型)Double(双精度浮点型双精度浮点型)Currency(货币型货币型)Byte(字节型字节型)6第三章第三章 VBVB程序设计代码基础程序设计代码基础

6、1.整数类型整数类型(1)整型整型(Integer)以以2个字节存储个字节存储 十进制表示十进制表示:由由+-号，号，09 组成组成 范围范围:-3276832767 八进制表示八进制表示:以以&O开头，由开头，由 07组成组成 范围范围:&O0&O177777 十六进制表示十六进制表示:以以&H开头，由开头，由 09,AF组成组成 范围范围:&H0&HFFFF 例例:-325 0 56 +100&O456&O36&H1AC&H38&H27第三章第三章 VBVB程序设计代码基础程序设计代码基础(2)长整型长整型(Long)以以4个字节存储个字节存储 十进制表示十进制表示:由由+-号，号，09

7、组成组成 范围范围:-2147483648+2147483647 八进制表示八进制表示:以以&O开头，以开头，以&结束结束 范围范围:&O0&O37777777777&十六进制表示十六进制表示:以以&H开头，以开头，以&结束结束 范围范围:&H0&HFFFFFFFF&例例:453466 -34568 +1000000&O456&O36&H1AC&H38&H2&8第三章第三章 VBVB程序设计代码基础程序设计代码基础2.实数类型实数类型 浮点数采用浮点数采用IEEE格式格式,由尾数及指数组成由尾数及指数组成:+|-.E|D+|-(1)单精度浮点型单精度浮点型(Single)以以4个字节存储，可以

8、精确到个字节存储，可以精确到7位十进制数位十进制数例例:3.234E+2 表示表示3.234 102 -28E9 表示表示-28 109 4.56E-17 表示表示4.56 10-17(2)双精度浮点型双精度浮点型(Double)以以8个字节存储，可以精确到个字节存储，可以精确到16位十进制数位十进制数 3.234D+2 表示表示3.234 102 -28D9 表示表示-28 109 4.56D-17 表示表示4.56 10-17尾数部分尾数部分指数部分指数部分e|d9第三章第三章 VBVB程序设计代码基础程序设计代码基础(3)货币型货币型(Currency)以以8个字节存储个字节存储 用于表

9、示定点数，其小数点左边有用于表示定点数，其小数点左边有15位数字，位数字，右边有右边有4位数字。位数字。3.字节型字节型(Byte)用一个字节存储数据，其取值范围为用一个字节存储数据，其取值范围为0255。10第三章第三章 VBVB程序设计代码基础程序设计代码基础3.2.2 字符串型数据字符串型数据(String)由双引号由双引号括起来的一串符号括起来的一串符号例例:abc ABC 计算机计算机 12.34 3+2 (空串空串)如果字符串本身包括双引号，可用连续两个双如果字符串本身包括双引号，可用连续两个双引号表示。引号表示。例例:要打印以下字符串：要打印以下字符串：You must stud

10、y hard,he said.在程序中需要将该字符串表示成在程序中需要将该字符串表示成:You must study hard,he said.11第三章第三章 VBVB程序设计代码基础程序设计代码基础3.2.3 布尔型数据布尔型数据(Boolean)用于表示某个条件的成立或不成立。用于表示某个条件的成立或不成立。只有只有True和和False两个值两个值12第三章第三章 VBVB程序设计代码基础程序设计代码基础3.2.4 日期型数据日期型数据(Date)用于表示日期和时间用于表示日期和时间 格式格式:#VB接受许多种日期时间格式接受许多种日期时间格式 例例:下面的下面的 Date/Time

11、值全部有效。值全部有效。#3-6-93 13:20#March 27,1993 1:20am#Apr-2-93#14 April 1993#12/18/1999#3.2.5 对象型数据对象型数据(Object)以以4个字节存储，用于引用程序中的对象。个字节存储，用于引用程序中的对象。3.2.6 可变类型数据可变类型数据(Variant)可以包含任何类型的数据。可以包含任何类型的数据。13第三章第三章 VBVB程序设计代码基础程序设计代码基础3.2.7 枚举类型枚举类型 用于建立名称与常量数值的关联。用于建立名称与常量数值的关联。枚举类型可以在窗体模块、标准模块或类模块枚举类型可以在窗体模块、标

12、准模块或类模块的通用声明部分声明。的通用声明部分声明。格式：格式：Public|Private Enum =常量表达式常量表达式1 =常量表达式常量表达式2 End Enum14第三章第三章 VBVB程序设计代码基础程序设计代码基础参数：参数：枚举类型名和各成员名应符合标识符的命名规枚举类型名和各成员名应符合标识符的命名规则。则。成员名用于定义该枚举类型的组成元素的名称。成员名用于定义该枚举类型的组成元素的名称。常量表达式：可选项，为各成员所对应的值常量表达式：可选项，为各成员所对应的值（为（为Long类型），可以是其他的枚举类型。类型），可以是其他的枚举类型。Public：为可选项。表示该枚

13、举类型在整个工：为可选项。表示该枚举类型在整个工程中都是有效的。当省略程中都是有效的。当省略Public和和Private时，时，默认为默认为Public。Private：为可选项。表示该枚举类型只在所声：为可选项。表示该枚举类型只在所声明的模块中是有效的明的模块中是有效的。15第三章第三章 VBVB程序设计代码基础程序设计代码基础说明：说明：1）在缺省常量表达式的情况下，枚举中的第一个）在缺省常量表达式的情况下，枚举中的第一个常量被初始化为常量被初始化为0，其后的常量则初始化为比，其后的常量则初始化为比其前面的常量大其前面的常量大1的数值。的数值。例：例：Public Enum Days S

14、unday 初始值为初始值为0 Monday 初始值为初始值为1 Tuesday Wednesday Thursday Friday Saturday End Enum16第三章第三章 VBVB程序设计代码基础程序设计代码基础2）可以使用赋值语句显式地给枚举中的常量赋值。）可以使用赋值语句显式地给枚举中的常量赋值。所赋的值可以是任何长整数，包括负数。所赋的值可以是任何长整数，包括负数。例：例：Public Enum WorkDays Saturday 初始化为初始化为0 Sunday=0 被赋值被赋值0 Monday 初始化为初始化为1 Tuesday Wednesday Thursday F

15、riday Invalid=-1 被显式赋值为被显式赋值为-1End Enum 17第三章第三章 VBVB程序设计代码基础程序设计代码基础3）VB将枚举中的常量数值看作为长整数。如果将枚举中的常量数值看作为长整数。如果将一个浮点数值赋给一个枚举中的常量，将一个浮点数值赋给一个枚举中的常量，Visual Basic将该数值取整为最接近的长整数。将该数值取整为最接近的长整数。4）当向一个枚举中的常量赋值时，也可以使用另）当向一个枚举中的常量赋值时，也可以使用另一个枚举中的常量数值。一个枚举中的常量数值。Public Enum WorkDays Sunday=0 Monday Tuesday Wed

16、nesday Thursday Friday Saturday=Days.Saturday 6 Invalid=-1End Enum 18第三章第三章 VBVB程序设计代码基础程序设计代码基础5）声明枚举类型后，就可以声明该枚举类型的变）声明枚举类型后，就可以声明该枚举类型的变量，然后使用该变量存储枚举常量的数值。例：量，然后使用该变量存储枚举常量的数值。例：声明枚举类型的变量声明枚举类型的变量 Dim MyDay As WorkDays Saturday 的数值为的数值为0 MyDay=Saturday6）当引用单个常量时，为了避免混淆，应在常量）当引用单个常量时，为了避免混淆，应在常量名称

17、前冠以枚举名。名称前冠以枚举名。Debug.Print Days.Saturday=&Days.Saturday Debug.Print WorkDays.Saturday=&_ WorkDays.Saturday7）VB提供了系统定义的枚举提供了系统定义的枚举vbDayOfWeek，它包，它包括了与星期的七天相对应的常量。括了与星期的七天相对应的常量。19第三章第三章 VBVB程序设计代码基础程序设计代码基础3.2.8 用户自定义类型用户自定义类型 是用户自己定义的类型，这种类型可以包含多是用户自己定义的类型，这种类型可以包含多个基本类型。使用个基本类型。使用Type语句定义。语句定义。Ty

18、pe语句格式：语句格式：Private|Public Type (下标下标)As End Type20第三章第三章 VBVB程序设计代码基础程序设计代码基础说明说明:1）、应遵循标识应遵循标识符的命名规则。符的命名规则。可以是可以是Visual Basic系系统提供的基本数据类型或已声明的用户自定义统提供的基本数据类型或已声明的用户自定义类型。缺省类型。缺省Private|Public选项时，默认是选项时，默认是Public。2）用户自定义类型必须在窗体模块或标准模块的）用户自定义类型必须在窗体模块或标准模块的通用声明段进行声明。在窗体模块中定义用户通用声明段进行声明。在窗体模块中定义用户自定

19、义类型时必须使用自定义类型时必须使用Private关键字。关键字。3）如果用户自定义类型的元素为）如果用户自定义类型的元素为数组数组，则需要使，则需要使用用参数。参数。4）在使用用户自定义类型前，必须先声明用户自）在使用用户自定义类型前，必须先声明用户自定义类型的变量。定义类型的变量。21第三章第三章 VBVB程序设计代码基础程序设计代码基础引用用户自定义类型元素的格式：引用用户自定义类型元素的格式：.例：定义一个例：定义一个Students数据类型，该类型中的每一数据类型，该类型中的每一个数又包含了学生的个数又包含了学生的系系、班级班级、姓名姓名、年龄年龄信息。信息。定义格式为：定义格式为：

20、Private Type Students Dept As String*20 系系 ClassNo As String*10 班级班级 Name As String 姓名姓名 Age As Integer 年龄年龄End Type 22第三章第三章 VBVB程序设计代码基础程序设计代码基础 声明一个用户自定义类型的变量声明一个用户自定义类型的变量StudDim Stud As Students 给变量的元素赋值给变量的元素赋值Stud.Dept=计算机系计算机系Stud.ClassNo=软件软件2001-1Stud.Name=张三张三Stud.Age=18 输出各元素的值输出各元素的值Pri

21、nt Stud.Dept,Stud.ClassNo,Print Stud.Name,Stud.Age23第三章第三章 VBVB程序设计代码基础程序设计代码基础5）如果两个变量都属于同一个用户自定义类型，）如果两个变量都属于同一个用户自定义类型，也可以将其中一个变量赋给另一个变量。这种也可以将其中一个变量赋给另一个变量。这种赋值是将一个变量的所有元素赋给另一个变量赋值是将一个变量的所有元素赋给另一个变量的对应元素。的对应元素。例：例：Dim Stud1 As Students,Stud2 As Students Stud2=Stud124第三章第三章 VBVB程序设计代码基础程序设计代码基础6）

22、用户自定义类型可以包含其他的用户自定义类型。）用户自定义类型可以包含其他的用户自定义类型。例：例：Private Type Address Addr As String 地址地址 Zip As Integer 邮政编码邮政编码 Phone As String 电话电话 End Type Private Type Student Name As String 姓名姓名 Age As Byte 年龄年龄 TosAddr As Address 声明为声明为Address的变量的变量 End Type25第三章第三章 VBVB程序设计代码基础程序设计代码基础3.3 常量常量 指在程序运行期间其值指在程

23、序运行期间其值不发生变化不发生变化的量。的量。两种形式两种形式:直接常量；符号常量直接常量；符号常量3.3.1 直接常量直接常量 例例:欢迎使用欢迎使用Visual Basic 字符串常量字符串常量 12345 数值型常量数值型常量 True 布尔型常量布尔型常量#11/10/2001#日期型常量日期型常量3.3.2 用户自定义符号常量用户自定义符号常量 格式格式:Const As =类型类型:Integer Long Single Double String String*n Boolean Date Currency Byte Variant26第三章第三章 VBVB程序设计代码基础程序设

24、计代码基础例例:Const Pi=3.14159 Const Max As Integer=9 Const BirthDate=#1/1/01#Const MyString=friend 用逗号分隔多个常量声明用逗号分隔多个常量声明 Const Pi=3.14,Max=9,MyStr=Hello 用先前定义过的常量定义新常量用先前定义过的常量定义新常量 Const Pi2=Pi*2 表达式中不能使用内部函数表达式中不能使用内部函数 Const sinx=Sin(20*3.14/180)使用使用:在程序中引用在程序中引用 如如:AREA=Pi*R2 在程序中不可修改在程序中不可修改 如如:Pi=

25、3.1427第三章第三章 VBVB程序设计代码基础程序设计代码基础 VB内部已定义，可以直接使用的常量内部已定义，可以直接使用的常量 查看内部常量查看内部常量:视图视图对象浏览器对象浏览器 选择库、类、选择库、类、成员成员 如如:库库 VBRUN 类类 ColorConstants ShapeConstants 成员成员 Vbred vbShapeCircle 例例:Private Sub Form_Activate()Const A As String=各种常量的使用各种常量的使用 Form1.BackColor=vbGreen Form1.ForeColor=vbRed Form1.Fon

26、tSize=14 Print A End Sub3.3.3 系统定义符号常量系统定义符号常量28第三章第三章 VBVB程序设计代码基础程序设计代码基础3.4 变量变量 一个有名称的内存单元称为变量。一个有名称的内存单元称为变量。5A1.什么是变量？什么是变量？程序执行期间，用变量临时存储数值。程序执行期间，用变量临时存储数值。变量的值可以发生变化。变量的值可以发生变化。每个变量都有每个变量都有名称名称和和数据类型数据类型。29第三章第三章 VBVB程序设计代码基础程序设计代码基础2.变量的命名遵循标识符的命名规则，即变量的命名遵循标识符的命名规则，即第一个字符必须是字母第一个字符必须是字母 长

27、度不超过长度不超过255个字符个字符 不可以包含小数点或者不可以包含小数点或者内嵌的类型声明字符内嵌的类型声明字符 不能使用关键字不能使用关键字 不能与过程名或符号常量同名不能与过程名或符号常量同名例例:Student1 MyName intMax strName 不区分大小写不区分大小写；变量名应便于识别、记忆；变量名应便于识别、记忆30第三章第三章 VBVB程序设计代码基础程序设计代码基础3.变量的声明变量的声明(1)显式声明显式声明格式格式:Dim|Private|Public|Static As As 说明：说明：Dim:在窗体模块、在窗体模块、标准模块标准模块或或过程过程中声明变量。

28、中声明变量。Private:在窗体模块或标准模块中声明变量，使在窗体模块或标准模块中声明变量，使变量仅在该模块中有效。变量仅在该模块中有效。Public:在标准模块中声明全局变量，使变量在在标准模块中声明全局变量，使变量在整个应用程序中有效。整个应用程序中有效。Static:在过程中定义静态变量，即使该过程结在过程中定义静态变量，即使该过程结束，也仍然保留变量的值。束，也仍然保留变量的值。31第三章第三章 VBVB程序设计代码基础程序设计代码基础例例:Dim Sum As Long Dim Address As String Dim No As String*8 Private b As In

29、teger Dim Num,Total As Integer Num为可变类型为可变类型 Public Average As Single Static A As Long(2)隐式声明隐式声明 可变类型。易出错、浪费空间可变类型。易出错、浪费空间(3)强制显式声明强制显式声明 在模块的声明段中使用语句在模块的声明段中使用语句:Option Explicit 如果设置如果设置:工具工具选项选项编辑器编辑器 要求变量声明要求变量声明 则在后续模块中自动插入则在后续模块中自动插入Option Explicit32第三章第三章 VBVB程序设计代码基础程序设计代码基础例例:窗体模块和过程中使用窗体模

30、块和过程中使用 Dim语句的区别。语句的区别。设在窗体中放置按钮设在窗体中放置按钮Command1和和Command2 Dim a As Integer Private Sub Command1_Click()a=a+10 Print a End Sub Private Sub Command2_Click()a=a+15 Print a End Sub 观察程序运行结果观察程序运行结果将将Dim a As Integer放到过程内，观察运行结果。放到过程内，观察运行结果。33第三章第三章 VBVB程序设计代码基础程序设计代码基础例例:Static的作用。的作用。设在窗体中放置按钮设在窗体中放

31、置按钮C1Private Sub C1_Click()Static a As Integer a=a+10 Print aEnd SubPrivate Sub C1_Click()Dim a As Integer a=a+10 Print aEnd Sub运行时，多次单击命令按钮运行时，多次单击命令按钮C1，比较以上两个事件过程的执行效果比较以上两个事件过程的执行效果34第三章第三章 VBVB程序设计代码基础程序设计代码基础3.5 常用内部函数常用内部函数 函数形式函数形式:函数名函数名()参数：参数：常量、变量或表达式。常量、变量或表达式。若有多个参数，参数之间若有多个参数，参数之间以逗号分

32、隔以逗号分隔。函数值：也叫函数值：也叫“返回值返回值”函数的使用：函数的使用：函数在表达式中被调用。函数在表达式中被调用。函数分类函数分类内部函数内部函数用户自定义函数用户自定义函数35第三章第三章 VBVB程序设计代码基础程序设计代码基础例例:Fix(45.67)结果为结果为45 Int(45.67)结果为结果为45 Fix(-2.89)结果为结果为-2 Int(-2.89)结果为结果为-3 Abs(-4)结果为结果为4 Log(10)结果为结果为2.30258509299405 Sgn(3)结果为结果为1 Sgn(-6)结果为结果为-1 Sgn(0)结果为结果为0例例:求求sin300 S

33、in(30*3.14/180)参数以弧度为单位参数以弧度为单位 3.5.1 数学函数数学函数36第三章第三章 VBVB程序设计代码基础程序设计代码基础例例:判断一个整数判断一个整数Y能否被另一个整数能否被另一个整数X整除整除 如果如果 Int(Y/X)=Y/X 则整除则整除例例:常用对数常用对数log10X的求法的求法 用换底公式用换底公式:10lnlogln10 xx 即即:Log(X)/Log(10)例例:求求e3 正确正确:Exp(3)错误错误:e3(错错)37第三章第三章 VBVB程序设计代码基础程序设计代码基础例例:LTrim(ABC)结果为结果为ABC表示空格表示空格RTrim(A

34、BC)结果为结果为ABCTrim(ABC)结果为结果为ABCLeft(ABCDE,2)结果为结果为ABRight(ABCDE,2)结果为结果为DEMid(ABCDE,2,3)结果为结果为BCDMid(ABCDE,2,6)结果为结果为BCDELen(ABCDE)结果为结果为5String(3,ABC)结果为结果为AAAString(3，65)结果为结果为AAAInStr(ABCDECDE,DE)结果为结果为4InStr(5,ABCDECDE,DE)结果为结果为7UCase(Abc)结果为结果为ABCLCase(ABc)结果为结果为abc3.5.2 字符串函数字符串函数38第三章第三章 VBVB程

35、序设计代码基础程序设计代码基础1.随机函数随机函数 Rnd(x)产生产生0,1)之间的单精度随机数。之间的单精度随机数。x0:以上一个随机数作种子，产生序列中的下以上一个随机数作种子，产生序列中的下一个随机数。一个随机数。x=0:产生与最近生成的随机数相同的数。产生与最近生成的随机数相同的数。省略省略x:同同x02.Randomize语句语句 初始化随机数发生器，格式：初始化随机数发生器，格式：Randomizen n:种子，省略时以系统时间作为种子种子，省略时以系统时间作为种子3.5.3 随机函数随机函数39第三章第三章 VBVB程序设计代码基础程序设计代码基础 生成生成a,b 范围内的随机

36、范围内的随机整数整数 Int(b-a+1)*Rnd+a)例：生成例：生成1,99之间的随机整数的表达式为：之间的随机整数的表达式为：Int(99*Rnd+1)例：生成例：生成(1,99)之间的随机整数的表达式为：之间的随机整数的表达式为：Int(97*Rnd+2)40第三章第三章 VBVB程序设计代码基础程序设计代码基础例例:Asc(A)结果为结果为65 Asc(ABC)结果为结果为65 Chr(65)结果为结果为A Str(123)结果为结果为123 Str(-123)结果为结果为-123 Val(123)结果为结果为123 Val(123AB)结果为结果为123 Val(.123AB)结果

37、为结果为.123 Val(a123AB)结果为结果为0 Val(12E2ABC)结果为结果为12003.5.4 转换函数转换函数41第三章第三章 VBVB程序设计代码基础程序设计代码基础 Hex(27)结果为结果为1B Hex(45.7)结果为结果为2E Oct(27)结果为结果为33 Oct(45.7)结果为结果为56 CInt(5.3)结果为结果为5 CInt(-5.7)结果为结果为-6 CInt(32766.6)结果为结果为32767 CInt(32767.8)溢出错误溢出错误 CInt(0.5)结果为结果为0 CLng(10.5)结果为结果为10 CSng(123.56789)结果为结

38、果为123.5679 CDbl(123.56789)结果为结果为123.56789 42第三章第三章 VBVB程序设计代码基础程序设计代码基础 CCur(123.56789)结果为结果为123.5679 CBool(5.8*4)结果为结果为True CBool(-5.8)结果为结果为True CBool(0)结果为结果为False CBool(12)结果为结果为True CBool(0)结果为结果为False CBool(abc)出错出错 43第三章第三章 VBVB程序设计代码基础程序设计代码基础3.5.5 日期和时间函数日期和时间函数 Now：返回系统日期和时间。：返回系统日期和时间。Dat

39、e：返回系统日期。：返回系统日期。Time：返回系统时间。：返回系统时间。Day(d)：返回参数：返回参数d中指定的日期是月份中的第中指定的日期是月份中的第几天。几天。WeekDay(d)：返回参数：返回参数d中指定的日期是星期几。中指定的日期是星期几。Month(d)：返回参数：返回参数d中指定日期的月份。中指定日期的月份。Year(d)：返回年份。：返回年份。返回系统的日期和时间、或返回指定日期和时返回系统的日期和时间、或返回指定日期和时间的一部分。间的一部分。44第三章第三章 VBVB程序设计代码基础程序设计代码基础 Hour(d)：返回小时（：返回小时（023）。）。Minute(d)

40、：返回分钟（：返回分钟（059）。）。Second(d)：返回秒（：返回秒（059）。）。Timer：返回从午夜开始到现在经过的秒数。：返回从午夜开始到现在经过的秒数。45第三章第三章 VBVB程序设计代码基础程序设计代码基础例例:Format(123.45,0000.000)结果为结果为0123.450 Format(123.45,0.0)结果为结果为123.5 Format(123.45,#.#)结果为结果为123.45 Format(123.45,#.#)结果为结果为123.5 Format(0.123,.#)结果为结果为.12 Format(0.123,0.#)结果为结果为0.12 F

41、ormat(HELLO,)结果为结果为THIS IS IT 注注:经经Format函数格式化后的结果为字符串类型函数格式化后的结果为字符串类型例例:Format(123)+Format(456)结果为结果为123456区别区别:Str(123)+Str(456)结果为结果为1234563.5.6 格式输出函数格式输出函数46第三章第三章 VBVB程序设计代码基础程序设计代码基础 Shell函数用于调用函数用于调用Windows下的应用程序。下的应用程序。格式：格式：Shell(,)参数：参数：:要执行的可执行文件名，包含路径要执行的可执行文件名，包含路径。:决定程序运行时窗口的样式。如果决定程

42、序运行时窗口的样式。如果省略，则程序以具有焦点的最小化省略，则程序以具有焦点的最小化窗口执行。取值见窗口执行。取值见P54表表3-1。3.5.7 Shell函数函数 例：运行时单击窗体，打开计算器：例：运行时单击窗体，打开计算器：Private Sub Form_Click()Shell c:winntsystem32calc.exe,vbNormalFocus End Sub这里这里Shell函数以语句形式出现，没有返回值。函数以语句形式出现，没有返回值。47第三章第三章 VBVB程序设计代码基础程序设计代码基础3.6 运算符与表达式运算符与表达式 操作数操作数:常量、变量、函数、对象常量、

43、变量、函数、对象 运算符运算符:圆括号圆括号 算术运算符（算术表达式）算术运算符（算术表达式）字符串运算符（字符串表达式）字符串运算符（字符串表达式）关系运算符（关系表达式）关系运算符（关系表达式）布尔运算符（布尔表达式）布尔运算符（布尔表达式）48第三章第三章 VBVB程序设计代码基础程序设计代码基础3.6.1 算术运算符与算术表达式算术运算符与算术表达式优先级优先级运算符运算符运算运算示例示例1乘方乘方322-取负取负-93*乘法乘法3*53/浮点除法浮点除法10/34 整数除法整数除法10/35Mod取模取模10 mod 36+加法加法2+36-减法减法2-3书书 写写:一条线、无一条线

44、、无 、无、无 49第三章第三章 VBVB程序设计代码基础程序设计代码基础例例:将以下表达式写成将以下表达式写成VB合法的表达式合法的表达式na1yxxy (xy)za1+a2a-b+a(-b)a1+a2 a(-b)+a*(-b)(xy)z a(1/n)y/(-x)+x/(-y)38(4 A/(4+(8/(3+B)50第三章第三章 VBVB程序设计代码基础程序设计代码基础1.乘方运算乘方运算 例例:102 10的平方，结果为的平方，结果为100 10(-2)10的平方的倒数，结果为的平方的倒数，结果为0.01 223 运算顺序从左到右，结果为运算顺序从左到右，结果为64 (-8)(-1/3)错

45、误错误,当底数为负时当底数为负时,指数应为整数指数应为整数2.整数除法整数除法 例例:104 结果为结果为2 25.686.99 先四舍五入再整除，结果为先四舍五入再整除，结果为33.取模运算取模运算 例例:10 Mod 4 结果为结果为2 25.68 Mod 6.99 先四舍五入再求余数先四舍五入再求余数,结果为结果为5 11 Mod 4 结果为结果为3 -11 Mod 5 结果为结果为-1 -11 Mod-3 结果为结果为-2结果符号同第结果符号同第一个操作数一个操作数51第三章第三章 VBVB程序设计代码基础程序设计代码基础 字符串运算符有两个字符串运算符有两个:&+&：自动将两侧的操作

46、数作为字符进行连接：自动将两侧的操作数作为字符进行连接例例:Hello&World 结果为结果为Hello World Check&123 结果为结果为Check123 123&456 结果为结果为123456 123&456 结果为结果为123456：仅当两侧操作数都为字符串时才做字符串连接：仅当两侧操作数都为字符串时才做字符串连接 123+456 结果为结果为579 123+456 结果为结果为579 123+456 结果为结果为123456 Check+123 错误错误3.6.2 字符串运算符与字符串表达式字符串运算符与字符串表达式52第三章第三章 VBVB程序设计代码基础程序设计代码基

47、础1.关系运算符（比较运算符）关系运算符（比较运算符）（小于）（小于）（大于）（大于）=（大于或等于）（大于或等于）=（等于）（等于）（不等于）（不等于）2.关系表达式关系表达式:2 例：例：X Y+ZX Y+Z A=5 A=5 StudNameStudName Shelly Shelly3.6.3 关系运算符与关系表达式关系运算符与关系表达式53第三章第三章 VBVB程序设计代码基础程序设计代码基础3.如何比较如何比较 数值比较数值比较 按数值大小按数值大小 单字符比较单字符比较 在模块的通用声明部分使用语句在模块的通用声明部分使用语句 Option Compare Binary 缺省状态下

48、，则按字符的内部二进制表示比较，缺省状态下，则按字符的内部二进制表示比较，典型的二进制排序顺序如下：典型的二进制排序顺序如下：019 AB Z abz 字符串比较：字符串比较：根据当前的比较方式根据当前的比较方式从左开始逐个从左开始逐个比较比较54第三章第三章 VBVB程序设计代码基础程序设计代码基础4.比较结果比较结果:True False例例:45 35 结果为结果为 False 45=45 结果为结果为True 4 3 结果为结果为True abc cdf 结果为结果为False for fortran 结果为结果为True 例例:要判断两个单精度型变量要判断两个单精度型变量A和和B的值

49、是否相等，的值是否相等，可以用下式判断可以用下式判断:Abs(A-B)例如例如:要判断要判断1除以除以3是否等于是否等于0.3333，可写成：，可写成：Abs(1/3-0.3333)1E-555第三章第三章 VBVB程序设计代码基础程序设计代码基础1.布尔布尔运算符运算符:Not And Or2.布尔表达式布尔表达式:23.优先级优先级:NotAndOr例例:A=10:B=8:C=6。Not(A B)结果为结果为 False Not(B A)结果为结果为True A B And B C 结果为结果为True B A And B C 结果为结果为False A B Or B C 结果为结果为Tr

50、ue B A Or B C 结果为结果为True A B Or B=C 结果为结果为False3.6.4 布尔运算符与布尔表达式布尔运算符与布尔表达式56第三章第三章 VBVB程序设计代码基础程序设计代码基础例例:将以下条件写成将以下条件写成VB布尔表达式布尔表达式 1.m1-n1jm1+n1 2.X 5 3.M和和N之一为之一为5，但不能同时为，但不能同时为5 4.-100k=M1-N1)And(J=M1+N1)2.(X 5.0)3.(M=5)And(N5)Or(M 5)And(N=5)4.(K -100)And(K 100)And(K Mod 2=0)5.(X 0)And(X-1.0)*(