第3章VisualBasic程序设计基础.ppt

高级语言程序设计高级语言程序设计Visual BasicVisual Basic第第3章章 Visual Basic程序设计基础程序设计基础 第第2 2页页本章内容本章内容语句和语法规则 1数据类型 23运算符和表达式 4常量和变量 5常用标准函数 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第3 3页页语句和语法规则语句和语法规则1．关键字和标识符．关键字和标识符⑴⑴ 关键字：又称为保留字，是关键字：又称为保留字，是Visual Basic系统定义的、系统定义的、有特定意义的词汇有特定意义的词汇 ⑵⑵ 标识符：自定义的命名标识符：自定义的命名 2．．Visual Basic中标识符的命名规则中标识符的命名规则 ⑴⑴ 必须以字母或汉字开头必须以字母或汉字开头⑵⑵ 只能由字母、汉字、数字和下划线组成，但不能直接使只能由字母、汉字、数字和下划线组成，但不能直接使用用Visual Basic的关键字的关键字⑶⑶ 不能超过不能超过255个字符，控件、窗体和模块的名字不能超个字符，控件、窗体和模块的名字不能超过过40个字符⑷⑷ 在标识符的有效范围内必须是唯一的。

在标识符的有效范围内必须是唯一的2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第4 4页页语句书写规则语句书写规则⑴⑴ VB中每个语句以回车结束，通常一行只写一条语句中每个语句以回车结束，通常一行只写一条语句如果一行写多条语句，语句之间用冒号如果一行写多条语句，语句之间用冒号“：：”分隔如果将一条语句断开换行写，需要再语句断开处用下划线果将一条语句断开换行写，需要再语句断开处用下划线“_”结尾⑵⑵注释以注释以Rem开头，也可以使用单引号开头，也可以使用单引号“'”，注释内容，注释内容可直接出现在语句的后面可直接出现在语句的后面 ⑶⑶ VB能够自动对语句进行简单的格式调整能够自动对语句进行简单的格式调整⑷⑷ VB具有自动提示的功能具有自动提示的功能注意：下划线与最后一个注意：下划线与最后一个字符间隔至少一个空格字符间隔至少一个空格2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第5 5页页数据类型数据类型 Visual Basic的数据类型主要分为三大类：的数据类型主要分为三大类：v系统定义的基本数据类型系统定义的基本数据类型v自定义类型自定义类型v枚举类型枚举类型2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第6 6页页基本数据类型基本数据类型 数据类型数据类型 字节数字节数 类型符类型符 取值范围取值范围 字节型（字节型（Byte）） 1 0到到255 布尔型（布尔型（Boolean））2 True或或False 整型（整型（Integer）） 2 % -32,768到到32,767 长整型（长整型（Long）） 4 & -2,147,483,648到到2,147,483,647 单精度浮点型（单精度浮点型（Single）） 4 ! 负数从负数从-3.402823E38到到-1.401298E-45正数从正数从1.401298E-45到到3.402823E38 双精度浮点型双精度浮点型（（Double）） 8 # 负数从负数从-1.79769313486232D308到到-4.94065645841247D-324正数从正数从4.94065645841247D-324到到1.79769313486232D308 货币型（货币型（Currency）） 8 @ 从从-922,337,203,685,477.5808到到922,337,203,685,477.5807 字符串型（字符串型（String）） 字符串长度字符串长度 $ 定长字符串型（定长字符串型（String*长度）长度） 字符串长度字符串长度 $ 变体型（变体型（Variant））不定不定 对象型（对象型（Object）） 4 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第7 7页页基本数据类型基本数据类型1．字符串型（．字符串型（String））⑴⑴ 字符串中字母的大小写是有区别的。

字符串中字母的大小写是有区别的 例如：例如：“ABC”与与“abc”是不相等的是不相等的⑵⑵ 字符串中包含字符的个数称为字符串的长度，如果长度为字符串中包含字符的个数称为字符串的长度，如果长度为0则称之则称之为空字符串为空字符串 例如：例如： "abc" '长度为长度为3的字符串的字符串 "中华人民共和国中华人民共和国" '长度为长度为7的字符串的字符串 " " '由由4个空格组成的字符串，长度为个空格组成的字符串，长度为4 "" '空字符串空字符串 ⑶⑶ 程序代码中的字符串需要加上定界符双引号程序代码中的字符串需要加上定界符双引号 图 4.1 立即窗口2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第8 8页页基本数据类型基本数据类型2．数值型（．数值型（Numeric））⑴⑴ 整数类型整数类型①① 整型（整型（Integer）） 以以2个字节存储整数。

个字节存储整数 ②② 长整型（长整型（Long）） 以以4个字节存储整数个字节存储整数 ③③ 字节型（字节型（Byte）） 以以1个字节存储整数，取值范围为个字节存储整数，取值范围为0到到255 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第9 9页页基本数据类型基本数据类型2．数值型（．数值型（Numeric））⑵⑵ 实数类型实数类型①① 单精度浮点型单精度浮点型(Single) 以以4个字节存储实数，指数部分用个字节存储实数，指数部分用E表示 例如：例如：123.456E+3②② 双精度浮点型（双精度浮点型（Double）） 以以8个字节存储实数，指数部分用个字节存储实数，指数部分用D表示 例如：例如：123.456D-4③③ 货币型（货币型（Currency）） 以以8个字节存储实数，没有指数形式，精确到小数点后个字节存储实数，没有指数形式，精确到小数点后4位，在小数点后位，在小数点后4位以后的数字将被舍去位以后的数字将被舍去 123.456×103123.456×10-42024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第1010页页基本数据类型基本数据类型3．日期型（．日期型（Date）） 可以表示的日期范围从公元可以表示的日期范围从公元100年年1月月1日到日到9999年年12月月31日。

日日期型数据须以定界符日期型数据须以定界符“#”括起来 例如：例如： #January 1,1993# #1 Jan 93# #1993-1-1#4．布尔型．布尔型(Boolean) 又称为逻辑型，只有两个值，即真值又称为逻辑型，只有两个值，即真值(True)和假值和假值(False) 5．变体型（．变体型（Variant）） 是一种可变的数据类型，可以用来表示除了定长字符串型和是一种可变的数据类型，可以用来表示除了定长字符串型和自定义类型以外的任何数据类型自定义类型以外的任何数据类型 6．对象型（．对象型（Object）） 用来表示图形、用来表示图形、OLE对象或其他对象对象或其他对象 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第1111页页自定义类型自定义类型 用用Type语句定义的数据类型，又称为记录型语句定义的数据类型，又称为记录型格式：格式：[Public|Private] Type 数据类型名数据类型名 数据类型元素名数据类型元素名 as 数据类型数据类型 数据类型元素名数据类型元素名 as 数据类型数据类型 ……End Type例如：例如：Type Student No as Integer Name as String*10 '定义为定义为10个字符的定长字符串个字符的定长字符串 Sex as String*2 '定义为定义为2个字符的定长字符串个字符的定长字符串End Type2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第1212页页枚举类型枚举类型 枚举类型，即将变量的取值一一列举出来。

枚举类型，即将变量的取值一一列举出来格式：格式：[Public|Private] Enum 枚举名称枚举名称 成员名成员名1 [=常数表达式常数表达式] 成员名成员名2 [=常数表达式常数表达式] ……End Enum2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第1313页页枚举类型枚举类型说明：说明：⑴⑴ 如果省略如果省略“常数表达式常数表达式”，在默认情况下，枚举中的，在默认情况下，枚举中的第一个成员被初始化为第一个成员被初始化为0，其后的成员则被初始化为比，其后的成员则被初始化为比其前面的成员大其前面的成员大1的数值例如：例如：Public Enum Workday Monday Tuesday Wednesday Thursday Friday Saturday SundayEnd Enum 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第1414页页枚举类型枚举类型说明：说明：⑵⑵ 如果不省略如果不省略“常数表达式常数表达式”，可以用赋值语句给枚举中的，可以用赋值语句给枚举中的成员赋值，所赋的值可以是任何长整型的数。

成员赋值，所赋的值可以是任何长整型的数 例如：例如：Public Enum Workday Monday=1 Tuesday Wednesday Thursday Friday Saturday SundayEnd Enum 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第1515页页常量和变量常量和变量 在程序设计中需要将数据存储为常量或变量在程序设计中需要将数据存储为常量或变量 值不能被改变的量称为常量值不能被改变的量称为常量 值可以被改变的量称为变量值可以被改变的量称为变量 在程序中用常量和变量表示数据是重要的程序设计思想在程序中用常量和变量表示数据是重要的程序设计思想常量分为：直接常量、符号常量、系统常量常量分为：直接常量、符号常量、系统常量2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第1616页页常量常量 1．直接常量．直接常量直接常量就是在程序中给出具体数据的值直接常量就是在程序中给出具体数据的值 直接常量分为数值常量、字符串常量、逻辑常量或日期常量。

直接常量分为数值常量、字符串常量、逻辑常量或日期常量 例如：例如：5678，，233.5E-6，， 0.58D7“this is a string”，，True，，#2004-11-18#可以在数值的后面加上相应的类型说明符指明常量的类型可以在数值的后面加上相应的类型说明符指明常量的类型例如：例如：2.75!是一个单精度浮点型常量是一个单精度浮点型常量11.25#是一个双精度浮点型常量是一个双精度浮点型常量2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第1717页页常量常量2．符号常量．符号常量符号常量是用一些有意义的名字代替永远不变的值符号常量是用一些有意义的名字代替永远不变的值 格式：格式：Const 常量名常量名[类型说明类型说明] = 表达式表达式[，常量名，常量名[类型说明类型说明] = 表表达式达式]……例如：例如：Const Pi = 3.1415926Const Pi2 = Pi * 2, Pi4 = Pi * 4Const tomorrow = #1/1/1995#Const num! = 1.25, max As Double = 2.65 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第1818页页常量常量3．系统常量．系统常量 系统定义的常量是与应用程序的对象、方法和属性一起系统定义的常量是与应用程序的对象、方法和属性一起使用，由使用，由VBVB应用程序和控件提供的。

一般以应用程序和控件提供的一般以vbvb为前缀，例如，为前缀，例如，要将文本框要将文本框Text1Text1的前景颜色设置为红色，可以使用下面的的前景颜色设置为红色，可以使用下面的语句：语句： Text1.ForeColor=vbRedText1.ForeColor=vbRed 这里的这里的vbRedvbRed就是系统常量这比直接使用就是系统常量这比直接使用1616进制数来进制数来设置要直观得多设置要直观得多 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第1919页页变量变量 1．变量的声明．变量的声明⑴⑴ 显式声明显式声明 显式声明是在使用变量前用声明语句声明变量显式声明是在使用变量前用声明语句声明变量格式：格式：Dim 变量名变量名 [类型说明类型说明] 说明：说明：①① 关键字关键字Dim 还可以是还可以是Static、、Private、、Public或或Global②② “变量名变量名”应遵循标识符的命名规则应遵循标识符的命名规则③③ “类型说明类型说明”可以使用可以使用“As 类型类型”形式也可以使用形式也可以使用类型说明符类型说明符，若，若未指定类型则为变体型。

未指定类型则为变体型 例如：例如： Dim var As Integer Public sum_1 As Double Dim tomorrow As Date Dim total！！ Dim average@ Dim x2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第2020页页例如：例如：Private Sub Command1_Click()Private Sub Command1_Click() a$ = " a$ = "你好！你好！" " Label1.Caption = a Label1.Caption = aEnd Sub End Sub 声明符号声明符号数据数据类型型含含义%Integer整型整型&Long长整型整型$String字符型字符型!Single单精度浮点型精度浮点型#Double双精度浮点型双精度浮点型@Currency货币型型2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第2121页页变量变量说明：说明：④④ 当定义变量为字符串型时，可以通过当定义变量为字符串型时，可以通过“String*长度长度”来定义定长字符串型变量。

来定义定长字符串型变量 例如：例如： Dim name1 As String Dim name2 As String*6 ⑤⑤ 可以用一个可以用一个Dim语句定义多个变量，但必须指定每个语句定义多个变量，但必须指定每个变量的数据类型，否则为变体型变量的数据类型，否则为变体型 例如：例如： Dim var1 As Integer, var2 As Integer Dim var1, var2 As Integer 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第2222页页变量变量1．变量的声明．变量的声明⑵⑵ 隐式声明隐式声明例如：例如：Private Sub Command1_Click() Var = 50 Print VarEnd Sub采用强制变量声明：采用强制变量声明：①① 在模块的声明段中加入语句在模块的声明段中加入语句 “Option Explicit” ②② 选择选择“工具工具|选项选项”命令，选择命令，选择“编辑器编辑器”选项卡，再选项卡，再选择选择“要求变量声明要求变量声明”复选框。

复选框 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第2323页页变量变量2．自定义类型的变量．自定义类型的变量⑴⑴ 自定义类型的变量与基本数据类型的变量的定义格式自定义类型的变量与基本数据类型的变量的定义格式完全一样完全一样 例如：在例如：在3.2.2节中自定义了一个数据类型节中自定义了一个数据类型Student，，下面语句定义了一个下面语句定义了一个Student类型的变量类型的变量lining Dim lining As Student ⑵⑵ 由于自定义类型包括多个元素，所以引用自定义类型由于自定义类型包括多个元素，所以引用自定义类型的变量时应指定引用了哪个元素的变量时应指定引用了哪个元素 格式：变量名格式：变量名. 元素名元素名 例如：例如： lining.No lining.Name lining.SexType Student No as Integer Name as String*10 Sex as String*2End Type2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第2424页页变量变量3．枚举类型的变量．枚举类型的变量 枚举类型的变量与基本数据类型的变量的定义格式完全一样。

枚举类型的变量与基本数据类型的变量的定义格式完全一样 例如：在例如：在3.2.3节中定义了一个枚举类型节中定义了一个枚举类型Workday，下面语句定义，下面语句定义并引用了一个并引用了一个Workday类型的变量类型的变量mywork Dim mywork As Workday mywork = Tuesday Print mywork 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第2525页页运算符和表达式运算符和表达式 运算符运算符 是表示数据之间运算方式的符号是表示数据之间运算方式的符号操作数操作数 是参与运算的数据是参与运算的数据表达式表达式 是由运算符和操作数组成的式子是由运算符和操作数组成的式子例如：算术表达式例如：算术表达式“1 + 2”中，中，1、、2 是操作数，是操作数，“+”是运是运算符需要两个操作数的运算符，称为需要两个操作数的运算符，称为双目运算符双目运算符 只需要一个操作数的运算符，称为只需要一个操作数的运算符，称为单目运算符单目运算符。

例如：例如：“-”作为负号时只需要一个操作数，是单目运算符作为负号时只需要一个操作数，是单目运算符 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第2626页页算术运算符与算术表达式算术运算符与算术表达式 1．算术运算符．算术运算符运算符运算符 运算运算 表达式举例表达式举例 表达式含义表达式含义 运算结果令运算结果令x=5,y=2^ 乘方乘方 x ^ y x的的y次方次方 25 - 负号负号 - y 负负y -2 * 乘法乘法 x * y x,y的乘积的乘积 10 / 除法除法 x / y x除以除以y 2.5 \ 整除整除 x \ y x整除整除y 2 Mod 取模（取余）取模（取余） x Mod y x除以除以y的余数的余数 1 + 加法加法 x + y x,y的和的和 7 - 减法减法 x - y x,y的差的差 3 例如：例如：? 13.8 \ 5.6? 11.5 Mod 5.1执行除法后，将结果的小数位全部去掉执行除法后，将结果的小数位全部去掉当操作数中含有小数时，先分别四舍五入，后整当操作数中含有小数时，先分别四舍五入，后整除运算。

除运算求两个数相除的余数求两个数相除的余数当操作数中含有小数时，先将其四舍五入后，再当操作数中含有小数时，先将其四舍五入后，再取余运算取余运算'结果为：结果为：2 '结果为：结果为：2 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第2727页页算术运算符与算术表达式算术运算符与算术表达式2.算术表达式算术表达式⑴⑴ 在书写表达式时，应注意与数学中的表达式写法的区别：在书写表达式时，应注意与数学中的表达式写法的区别： ①① VB表达式不能省略乘号运算符，表达式不能省略乘号运算符，如：数学中的表达式如：数学中的表达式b2-4ac，写成，写成VB表达式应为表达式应为b^2-4*a*c②② VB表达式中一律使用圆括号，且左右必须配对表达式中一律使用圆括号，且左右必须配对如：数学中的如：数学中的 [(x+y)/(a-b)+c]x，，VB表达式应为表达式应为((x+y)/(a-b)+c)*x⑵⑵ 一个表达式的运算次序由运算符的优先级决定，优先级高的先运一个表达式的运算次序由运算符的优先级决定，优先级高的先运算，优先级低的后运算，优先级相同的按从左到右的次序运算。

算，优先级低的后运算，优先级相同的按从左到右的次序运算算术运算符的优先级从高到低为：算术运算符的优先级从高到低为：乘方乘方→负数负数→（乘、除）（乘、除）→整除整除→取模取模→（加、减）加、减） 例如：例如： ?- 2 ^ 2 ?3 ^ 3 \ 2 ?4 Mod 8 / 2 ?3 * 2 \ 3 / 2 ' '结果为：结果为：-4 -4 ' '结果为：结果为：13 13 ' '结果为：结果为：0 0 ' '结果为：结果为：3 3 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第2828页页字符串运算符与字符串表达式字符串运算符与字符串表达式 1．字符串运算符．字符串运算符字符串运算符只有字符串运算符只有“&”和和“+”，它们的功能是把字符串，它们的功能是把字符串连接起来连接起来例如：例如：?"Visual" + "Basic" ?“Visual” & “Basic” ?"123" & 456 ?"123" + 456 ?"abcd" + 123 ?"abcd" & 123 2．字符串表达式．字符串表达式例如：例如："abc" & "123" & Left("abc",1)& 可以将其他类型的操作数强制转换为字符可以将其他类型的操作数强制转换为字符串后再连接。

串后再连接' '结果为：结果为：VisualBasicVisualBasic ' '结果为：结果为：VisualBasicVisualBasic ' '连接运算，结果为：连接运算，结果为：123456 123456 ' '加法运算，结果为：加法运算，结果为：579 579 ' '操作类型不匹配出错操作类型不匹配出错 ' '结果为：结果为：abcd123 abcd123 ' '结果为：结果为：abc123a abc123a 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第2929页页关系运算符与关系表达式关系运算符与关系表达式 1．关系运算符．关系运算符运算符运算符 运算运算 表达式举例表达式举例 运算结果运算结果 = 等于等于 "abc" = "abd" False > 大于大于 34 > 12 True >= 大于（或）等于大于（或）等于 "34" >= "12" True < 小于小于 "ADF" < "ABF"False <= 小于（或）等于小于（或）等于 "abc" <= "abc" True <> 不等于不等于 "abc" <> "ABC"True 关系运算符的比较规则：关系运算符的比较规则：⑴ ⑴ 两个操作数都是数值型时，比较它们的数值大小。

两个操作数都是数值型时，比较它们的数值大小⑵ ⑵ 两个操作数都是字符串型时，从左到右逐个字符比较两个操作数都是字符串型时，从左到右逐个字符比较ASCIIASCII码值，直到遇到不同字符为止对于两个汉字字码值，直到遇到不同字符为止对于两个汉字字符，比较它们的拼音符，比较它们的拼音常见字符的比较关系如下：常见字符的比较关系如下： “ “ ””<“0”<……<“9”<“A”<……<“Z”<“a”<……<<“0”<……<“9”<“A”<……<“Z”<“a”<……<“z”<““z”<“汉字汉字””⑶ ⑶ 两个操作数都是日期型时，是将日期看成两个操作数都是日期型时，是将日期看成““yyyymmddyyyymmdd””的的8 8位整数，再按数值进行比较位整数，再按数值进行比较2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第3030页页关系运算符与关系表达式关系运算符与关系表达式2．关系表达式．关系表达式关系运算符的两个操作数的数据类型必须一致关系运算符的两个操作数的数据类型必须一致 例如：例如：?10 - 5 > 2 + 3 ?“xyz” = “XYZ”'结果为：结果为：False '结果为：结果为：False 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第3131页页逻辑运算符与逻辑表达式逻辑运算符与逻辑表达式 1. 逻辑运算符逻辑运算符⑴⑴ Not 取反运算，即将取反运算，即将True变为变为False或或False变为变为True。

例如：例如：? Not "abc" < "abd"⑵⑵ And 与运算，只有两个操作数的值都为与运算，只有两个操作数的值都为True时，结果为时，结果为True，否则结果为，否则结果为False 例如：例如： ? True And 1 < 2 ? 2 + 2 = 4 And False ? 3 < 5 And "a" = "A" ⑶⑶ Or 或运算，只有两个操作数的值都为或运算，只有两个操作数的值都为False时，结果为时，结果为False，否则结果为，否则结果为True 例如：例如： ? "abc" <> "ABC" Or 2 > 1 ? True Or 6 - 3 > 4 ? 6 < 2 Or "b" = "B"'结果为：结果为：False '结果为：结果为：True '结果为：结果为：False '结果为：结果为：False '结果为：结果为：True '结果为：结果为：True '结果为：结果为：False 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第3232页页逻辑运算符与逻辑表达式逻辑运算符与逻辑表达式1. 逻辑运算符逻辑运算符⑷⑷ Xor异或运算，两个操作数的值不同时，结果为异或运算，两个操作数的值不同时，结果为True，，否则结果为否则结果为False。

例如：例如：?3 > 5 Xor 8 < 5 '结果为：结果为：False ⑸⑸ Eqv等价运算，两个操作数的值相同时，结果为等价运算，两个操作数的值相同时，结果为True，否则结果为，否则结果为False 例如：例如：?3 > 5 Eqv 8 < 5 '结果为：结果为： True ⑹⑹ Imp蕴含运算，当第一个操作数的值为蕴含运算，当第一个操作数的值为True，第二个，第二个操作数的值为操作数的值为False时，结果为时，结果为False，否则结果为，否则结果为True 例如：例如：?5 < 6 Imp 2 > 3 '结果为：结果为：False 2．逻辑表达式．逻辑表达式 逻辑运算符的优先级由高到低为：逻辑运算符的优先级由高到低为： Not→And→Or→Xor→Eqv→ImpXYNot XX And YX Or YX Xor YX Eqv YX Imp YTTFTTFTTTFFFTTFFFTTFTTFTFFTFFFTT2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第3333页页 日期运算符与日期表达式日期运算符与日期表达式 1．日期运算符．日期运算符 日期运算符只有日期运算符只有“+”和和“-”，它们的功能是对日期，它们的功能是对日期进行运算。

进行运算2．日期表达式．日期表达式日期表达式包括以下操作：日期表达式包括以下操作： ⑴⑴例如：例如：? #2002-02-01# + 1⑵⑵例如：例如：?#01/01/2002# - 2 ?#2002-02-02# - 2 ?#2001-02-03# - #2001-02-02#'结果为：结果为：2002-2-2 '结果为：结果为：2001-12-30 '结果为：结果为：2002-1-31 '结果为：结果为：1 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第3434页页各种运算符的优先级比较各种运算符的优先级比较 优先级优先级 运算符运算符 1^ 2-(取负取负) 3* / 4\ 5Mod 6+ - 7字符串连接字符串连接&和和+ 8= > < <> >= <= 9Not 10And 11Or 12Xor 13Eqv 14Imp 例如，一个混合运算表达式的运算顺序如例如，一个混合运算表达式的运算顺序如下所示：下所示： '结果为：结果为：True ①①②②③③④④⑤⑤⑥⑥⑦⑦2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第3535页页例：判别某年是否是闰年，闰年的条件符合下面二者之一：例：判别某年是否是闰年，闰年的条件符合下面二者之一：(1)(1)能被能被4 4整除，但不能被整除，但不能被100100整除。

整除2)(2)能被能被400400整除要求：单击按钮要求：单击按钮Command1Command1计算出计算出20042004年是否是闰年，并在年是否是闰年，并在窗体的标签窗体的标签Lable2Lable2中显示结果中显示结果 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第3636页页 界面设计：窗体界面中放置了两个标签界面设计：窗体界面中放置了两个标签Lable1Lable1和和Lable2Lable2，，以及一个按钮以及一个按钮Command1Command1分别设置其分别设置其CaptionCaption属性：属性：属性属性Form1Lable1Lable2Command1Caption判断闰年判断闰年2004年是否是闰年？年是否是闰年？空空判断判断 单击单击Command1Command1时判断时判断20042004年是否是闰年，程序代码如下：年是否是闰年，程序代码如下：Private Sub Command1_Click()Private Sub Command1_Click()' '单击按钮计算闰年单击按钮计算闰年 Dim x As IntegerDim x As Integer Dim y As Boolean Dim y As Boolean x = 2004 x = 2004 y = (((x Mod 4) = 0) And ((x Mod 100) <> 0)) Or y = (((x Mod 4) = 0) And ((x Mod 100) <> 0)) Or ((x Mod 400) = 0)((x Mod 400) = 0) Label2.Caption = y Label2.Caption = yEnd Sub End Sub 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第3737页页常用标准函数常用标准函数 函数是系统已经定义好的运算。

函数是系统已经定义好的运算函数的调用格式：函数的调用格式：<函数名函数名>([参数参数1],[参数参数2]…) 说明：说明：⑴⑴ 每个函数都有函数名，通过函数名调用函数每个函数都有函数名，通过函数名调用函数⑵⑵ 数学中函数的数学中函数的“自变量自变量”在程序设计语言中称为在程序设计语言中称为“参数参数”，函数的运算结果称为，函数的运算结果称为“返回值返回值”⑶⑶ 函数是以表达式的形式调用的，而不能单独作为一个语句函数是以表达式的形式调用的，而不能单独作为一个语句例如：例如：a = Sin(b)z = Sin(x) + Cos(x + y)2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第3838页页数学函数数学函数函数名函数名功能说明功能说明举例举例 Fix(x)Fix(x)取整，截去小数部取整，截去小数部分分Fix(3.125)Fix(3.125)结果为结果为3 3，，Fix(2.98)Fix(2.98)结果为结果为2 2，，FixFix(-2.6)(-2.6)结果为结果为-2 -2 IntInt(x)(x)求不大于求不大于x x的最大整的最大整数数Int(1.9)Int(1.9)结果为结果为1 1，，Int(1.3)Int(1.3)结果为结果为1 1，，Int(-Int(-2.5)2.5)结果为结果为-3 -3 Round(Round(x,nx,n) )将将x x四舍五入，保留四舍五入，保留n n位小数位小数Round(1.9)Round(1.9)结果为结果为2 2，，Round(1.916,2)Round(1.916,2)结果为结果为1.921.92AbsAbs(x)(x) 求绝对值求绝对值Abs(-3.5)Abs(-3.5)结果为结果为3.5 3.5 SgnSgn(x)(x) 求数字符号求数字符号Sgn(-3)Sgn(-3)结果为结果为-1-1，，Sgn(3)Sgn(3)结果为结果为1, Sgn(0) 1, Sgn(0) 结结果为果为0 0 SqrSqr(x)(x)求平方根求平方根Sqr(25)Sqr(25)结果为结果为5 5 ExpExp(x)(x)指数函数，求指数函数，求e ex xExp(0)Exp(0)结果为结果为1 1 Log(x)Log(x)求自然对数求自然对数Log(1)Log(1)结果为结果为0 0 Sin(x)Sin(x)正弦函数正弦函数Sin(0)Sin(0)结果为结果为0 0 CosCos(x)(x)余弦函数余弦函数Cos(0)Cos(0)结果为结果为1 1 Tan(x)Tan(x)正切函数正切函数an(0)an(0)结果为结果为0 0 AtnAtn(x)(x)反正切函数反正切函数Atn(0)Atn(0)结果为结果为0 0 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第3939页页字符串函数字符串函数 函数名函数名 函数名功能说明函数名功能说明Trim(Trim(字符串表达式字符串表达式) ) 删除字符串两端空格字符删除字符串两端空格字符 LTrimLTrim( (字符串表达式字符串表达式) ) 删除字符串左端空格字符删除字符串左端空格字符 RTrimRTrim( (字符串表达式字符串表达式) ) 删除字符串右端空格字符删除字符串右端空格字符 Left(Left(字符串表达式字符串表达式,n) ,n) 从字符串的左端截取从字符串的左端截取n n个字符个字符 Right(Right(字符串表达式字符串表达式,n) ,n) 从字符串的右端截取从字符串的右端截取n n个字符个字符 Mid(Mid(字符串表达式字符串表达式, ,n,mn,m) ) 从字符串的第从字符串的第n n个字符开始截取个字符开始截取m m个字符个字符 Len(Len(字符串表达式字符串表达式) ) 或或Len(Len(变量名变量名) ) 求字符串的长度求字符串的长度，或求某个变量所占的字节数，或求某个变量所占的字节数 LenBLenB( (字符串表达式字符串表达式) ) 求字符串所占的字节数求字符串所占的字节数 String(n,String(n,字符字符) )或或String(String(n,ASCIIn,ASCII码码) ) 产生由产生由n n个指定字符个指定字符（或指定（或指定ASCIIASCII码值对应字符）码值对应字符）组成的组成的字符串字符串 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第4040页页字符串函数字符串函数 函数名函数名 功能说明功能说明 Space(n) Space(n) 产生由产生由n n个空格组成的字符串个空格组成的字符串 InStr([InStr([起始位置起始位置,],]字字符串符串1,1,字符串字符串2 [,n]) 2 [,n]) 返回返回““字符串字符串2”2”在在““字符串字符串1”1”中第一次出现的位置；中第一次出现的位置；若加上起始位置，表示从该位置开始查找，如果省略默若加上起始位置，表示从该位置开始查找，如果省略默认从第一个字符开始查找；认从第一个字符开始查找；n n表示字符串的比较方式，表示字符串的比较方式，0 0表示区分字母的大小写，表示区分字母的大小写，1 1表示不区分字母的大小写，如表示不区分字母的大小写，如果省略默认为果省略默认为0 0。

如果给出参数如果给出参数n n，则参数起始位置也必，则参数起始位置也必须给出 UcaseUcase( (字符串表达式字符串表达式) ) 将字符串中的所有字母字符均转换成大写，非字母字符将字符串中的所有字母字符均转换成大写，非字母字符不变不变 LcaseLcase( (字符串表达式字符串表达式) ) 将字符串中的所有字母字符均转换成小写，非字母字符将字符串中的所有字母字符均转换成小写，非字母字符不变不变 AscAsc( (字符串表达式字符串表达式) ) 求字符串表达式中第一个字符的求字符串表达式中第一个字符的ASCIIASCII码值码值 ChrChr( (表达式表达式) ) 求以表达式的值为求以表达式的值为ASCIIASCII码的字符码的字符 Val(Val(字符串字符串) ) 将字符串转换为数值，转换时遇到第一个非数字字符则将字符串转换为数值，转换时遇到第一个非数字字符则停止转换，但指数符号、小数点和负号除外停止转换，但指数符号、小数点和负号除外 StrStr( (数值表达式数值表达式) ) 将数值转换为对应的字符串将数值转换为对应的字符串 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第4141页页字符串函数字符串函数——补充补充 函数名函数名 功能说明功能说明 Split(c[,d]) Split(c[,d]) 将字符串分隔成字符数组将字符串分隔成字符数组StrReverse(c) StrReverse(c) 将字符串反序将字符串反序2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第4242页页转换函数转换函数 函数名函数名 功能说明功能说明 CIntCInt( (数值表达式数值表达式) ) 将数值强制转换为将数值强制转换为IntegerInteger类型，第类型，第1 1位小数进行四舍位小数进行四舍五入五入 CCurCCur( (数值表达式数值表达式) ) 将数值强制转换为将数值强制转换为CurrencyCurrency类型，第类型，第5 5位小数进行四位小数进行四舍五入舍五入 CDblCDbl( (数值表达式数值表达式) ) 将数值强制转换为将数值强制转换为DoubleDouble类型类型 CLngCLng( (数值表达式数值表达式) ) 将数值强制转换为将数值强制转换为LongLong类型，第类型，第1 1位小数进行四舍五位小数进行四舍五入入 CSngCSng( (数值表达式数值表达式) ) 将数值强制转换为将数值强制转换为SingleSingle类型类型 CVarCVar( (数值表达式数值表达式) ) 将数值强制转换为将数值强制转换为VariantVariant类型类型 CStrCStr( (表达式表达式) ) 将表达式的值强制转换为将表达式的值强制转换为StringString类型类型 CDateCDate( (表达式表达式) ) 将表达式的值强制转换为将表达式的值强制转换为DateDate类型类型 CBoolCBool( (表达式表达式) ) 表达式的值强制转换为表达式的值强制转换为BooleanBoolean类型类型 CByteCByte( (表达式表达式) ) 将表达式的值强制转换为将表达式的值强制转换为ByteByte类型类型 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第4343页页时间函数时间函数 函数名函数名 功能说明功能说明 NowNow或或Now() Now() 返回系统当前的日期和时间返回系统当前的日期和时间格式为：格式为：yyyy-mm-ddyyyy-mm-dd hh:mm:sshh:mm:ss DateDate或或Date() Date() 返回系统当前的日期，格式为返回系统当前的日期，格式为yyyy-mm-ddyyyy-mm-dd DateSerialDateSerial( (年年, ,月月, ,日日) ) 把年、月、日三个参数连接形成一个日期把年、月、日三个参数连接形成一个日期 DateValueDateValue( (日期字符串日期字符串) ) 返回一个日期返回一个日期 Day(Day(日期字符串日期字符串) ) 返回日期字符串中的日，结果为整型数返回日期字符串中的日，结果为整型数 WeekDayWeekDay( (日期字符串日期字符串) ) 求指定日期是星期几，结果为整型数，求指定日期是星期几，结果为整型数，1 1代表星期日，代表星期日，2 2代表星期一代表星期一…… …… WeekDayNameWeekDayName( (整数整数) ) 返回星期代号，例如返回星期代号，例如WeekDayName(1)WeekDayName(1)结果为：星期日结果为：星期日 Month(Month(日期字符串日期字符串) ) 返回日期字符串中的月份，结果为整型数返回日期字符串中的月份，结果为整型数Year(Year(日期字符串日期字符串) ) 返回日期字符串中的年份，结果为整型数返回日期字符串中的年份，结果为整型数 Hour(Hour(时间字符串时间字符串) ) 返回时间字符串中的小时数，结果为整型数返回时间字符串中的小时数，结果为整型数 Minute(Minute(时间字符串时间字符串) ) 返回时间字符串中的分钟数，结果为整型数返回时间字符串中的分钟数，结果为整型数 Second(Second(时间字符串时间字符串) ) 返回时间字符串中的秒数，结果为整型数返回时间字符串中的秒数，结果为整型数 TimeTime或或Time() Time() 返回系统当前的时间，格式为返回系统当前的时间，格式为hh:mm:sshh:mm:ss TimerTimer或或Timer() Timer() 返回从午夜开始到当前经过的秒数返回从午夜开始到当前经过的秒数 TimeSerialTimeSerial( (时，分，秒时，分，秒) ) 把时、分、秒三个参数连接形成一个时间把时、分、秒三个参数连接形成一个时间 TimeValueTimeValue( (时间字符串时间字符串) ) 返回一个时间返回一个时间 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第4444页页随机数函数随机数函数 1．．Rnd函数函数格式：格式：Rnd[(x)]，其中参数，其中参数x是一个双精度浮点数，可以省略。

是一个双精度浮点数，可以省略功能：可产生一个功能：可产生一个0~1之间（大于或等于之间（大于或等于0，但小于，但小于1）的单精度随机数的单精度随机数下一个要产生的随机数受参数下一个要产生的随机数受参数x的影响：的影响：⑴⑴ 当当x<0时，每次产生相同的随机数时，每次产生相同的随机数⑵⑵ 当当x>0或省略时，每次产生不同的随机数或省略时，每次产生不同的随机数⑶⑶ 当当x=0时，该次产生与上次相同的随机数时，该次产生与上次相同的随机数产生随机整数的公式：产生随机整数的公式：产生区间产生区间[n,m) 范围内的随机整数：范围内的随机整数：Int(Rnd*(m-n)+n)产生区间产生区间[n,m] 范围内的随机整数：范围内的随机整数：Int(Rnd *(m-n+1)+n)例如：产生例如：产生[100, 1000)之间的随机整数：之间的随机整数：Int(Rnd *900+100) 产生随机字符产生随机字符A~Z的函数表达式：的函数表达式：Chr(Int(Rnd*26+65))2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第4545页页随机数函数随机数函数2．．Randomize语句语句格式：格式：Randomize[(x)]，其中参数，其中参数x可以省略。

可以省略功能：将功能：将Rnd函数的随机数生成器初始化函数的随机数生成器初始化例如：例如：RandomizePrint Rnd2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第4646页页数制转换函数数制转换函数 函数名函数名 功能说明功能说明 举例举例 Hex(x)Hex(x)或或Hex$Hex$(x) (x) 将十进制数转换为十六进制将十进制数转换为十六进制数数 Hex(100)Hex(100)结果为结果为64 64 Oct(x)Oct(x)或或Oct$Oct$(x) (x) 将十进制数转换为八进制数将十进制数转换为八进制数 Oct(100)Oct(100)结果为结果为144 144 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础第第4747页页测试函数测试函数 格式：格式：TypeName (变量名变量名) 功能：测试变量的数据类型功能：测试变量的数据类型说明：返回值为具体的类型名说明：返回值为具体的类型名例如：例如：Dim a As VariantDim b As IntegerDim c As DoubleDim d As StringPrint TypeName(a) '结果为：结果为：EmptyPrint TypeName(b) '结果为：结果为：Integer Print TypeName(c) '结果为：结果为：DoublePrint TypeName(d) '结果为：结果为：StringPrint TypeName(Command1) '结果为：结果为：CommandButton Print TypeName(Picture1) '结果为：结果为：PictureBox Print TypeName(Text1) '结果为：结果为：TextBox 2024/8/262024/8/26Visual Basic程序设计基础程序设计基础。