《命令按钮与函数》ppt课件.ppt

第3章 命令按钮与函数,（时间：2次课，4学时）,第3章 命令按钮与函数,教学提示：本章介绍VB常用的标准函数、表达式和命令按钮，VB常用标准函数和表达式是程序设计语言基础各种函数，如三角函数、对数函数、日期函数等都是通过函数名调用在学习中要注意函数的功能和调用方法所有高级语言表达式都有一定的书写规范，学习中要注意VB表达式和日常运算式在书写上的不同之处命令按钮是VB程序设计最常使用的控件，程序中出现最多的事件过程是命令按钮的事件过程 教学目标：掌握常用的字符串函数、转换函数、数学函数、日期时间函数、随机函数和输入函数的用法掌握算数运算符、关系运算符、逻辑运算符的和VB表达式的作用和书写规范会编写命令按钮的事件过程第3章 命令按钮与函数,引例3.1 计算面积和周长 3.1 运算符和表达式 3.2 常用标准函数 3.3 命令按钮 (CommandButton)控件 3.4 综合运用,3.1 运算符和表达式,3.1.1 算术运算符和算术表达式 3.1.2 字符串运算符和字符串表达式 3.1.3 关系运算符和关系表达式 3.1.4 逻辑运算符和逻辑表达式 3.1.5 日期运算符和日期表达式 3.1.6 运算符的优先级,3.1.1 算术运算符和算术表达式,在VB中，算术运算符有：乘方号(^)、取负号(-)、乘号(*)、除号(/)、整除号(\)、求余运算符(Mod)、加号(+)和减号(-)。

运算 运算符 算术表达式举例 说明 乘方 ^ 2^3结果为8 a^b表示a的b次方 取负 - - (-10) 结果为10 单目运算，-a表示对a取负 乘法 * 2*4结果为8 乘法运算,乘法和(/)除法是同级运算 除法 / 3/2结果为1.5 除法运算 整除 \ 3\2结果为1 (整除)运算的结果仅保留整数 求余 Mod 3 Mod 2结果为1 结果是两数相除后的余数 加法 + 3+2结果为5 加法和减法是同级运算 减法 - 3-2结果为1,,算术表达式的计算是根据算术运算符的优先级完成的，同级从左到右顺序完成计算例如： Private Sub Command1_Click() Print 9 \ 3 * 3 End Sub 输出结果为1因为先计算乘法，再完成整除9\9的运算 Private Sub Command1_Click() Print 9 / 3 * 3 End Sub 输出结果为9因为同级运算，从左至右顺序完成3.1.2 字符串运算符和字符串表达式,在VB中，字符串运算符有：加号(+)和字符串连接运算符号(&)两个运算符的作用相同，都是将两个字符串连接成一个字符串。

例如： “可视化“ & “程序设计“ 结果仍是一个字符串：“可视化程序设计“ “可视化“ + “程序设计“ 结果仍是一个字符串：“可视化程序设计“ 加号(+)，究竟完成加法运算还是字符串的连接，取决于参加运算的两个操作数，当两个操作数都是数值类型时完成加法运算当两个操作数都是字符串类型时完成字符串的连接运算要区分数值型和字符串类型，如： “ 123 “ + “ 456 “ 结果仍是一个字符串：“123456“,3.1.3 关系运算符和关系表达式,在VB中，关系运算符有：大于号()、小于号(=)、小于等于号(或) 关系运算符也称比较运算符，用来对两个相同类型的数据或表达式进行值的比较，关系运算的结果是布尔型的，结果值True表示真，False表示假 关系表达式的一般格式： 表达式 关系运算符 表达式,,运算 运算符 关系表达式举例 说明 大于 32+2结果为False 先计算2+2 小于 = “A“=“a“结果为False 小写大于大写 小于等于 或 #12/19/2003# 结果为True 日期靠后的为大,3.1.4 逻辑运算符和逻辑表达式,在VB中，常用的逻辑运算符有：非(Not)、与(And)、或(Or)和异或(Xor)。

逻辑运算符，用来对两个逻辑量进行运算，运算的结果是逻辑型的，结果值True表示真，False表示假 逻辑表达式的一般格式： 表达式 逻辑运算符 表达式,,运算 运算符 逻辑表达式 非 Not Not(53) 结果为False 与 And True And True结果为True 或 Or False Or False结果为False 异或 Xor True Xor False结果为True,,例如： A + B = C And X = Y 是逻辑表达式，在求解该表达式时，先完成算术运算，再解决关系运算，最后进行逻辑运算整个表达式的含义是，当A + B等于C并且X等于Y时，该表达式的结果为真 例如： Not L1 And Not L2 是逻辑表达式，在求解该表达式时，先解决逻辑非运算，再进行逻辑与运算整个表达式的含义是，当L1和L2都为假时，该表达式的结果为真3.1.5 日期运算符和日期表达式,日期型数据只有加“+”和减“-”两个运算符两个日期型数据相减，结果是一个整数，即两个日期相差的天数，如：#12/31/1999# - #12/29/1999#，结果为2；日期型数据加上(或减去)一个整型数据(表示天数)，结果仍为日期型数据，表示向后推算的日期(向前推算的日期)如：#12/31/20003# + 2，结果为#01/02/2004#。

3.1.6 运算符的优先级,在含有各种运算符混合运算的表达式中，运算符运算优先级规定为：首先进行数值运算和字符串运算，其次进行关系运算，最后完成逻辑运算，同级运算自左到右顺序完成，括号可以改变优先顺序在表达式中只能使用小括号，不能使用中括号或大括号，并且也同样要求括号是半角英文符号例如：,,3.2 常用标准函数,,,3.2.1 常用数学函数 3.2.2 常用转换函数 3.2.3 常用字符串函数 3.2.4 常用日期时间函数 3.2.5 InputBox函数,3.2.1 常用数学函数,常用数学函数主要包括三角函数、指数函数、对数函数、平方根函数、绝对值函数等,,函数 说明 举例 结果 Sin(n) 计算n的正弦值 Sin(0) 0 Cos(n) 计算n的余弦值 Cos(0) 1 Tan(N) 计算N的正切值 Tan(0) 0 Abs(N) 计算N的绝对值 Abs(-2) 2 Atn(N) 计算N的反正切值 Atn(0) 0 Exp(N) 计算e的N次幂 Exp(0) 1 Log(N) 计算N的自然对数 Log(1) 0 Sgn(N) 计算N的符号值 Sgn(-2) -1 Sqr(N) 计算N的平方根 Sqr(4) 2 Rnd[(N)] 产生[0，1)之间随机数 Rnd [0，1),,运行下面程序，会发现运行程序输出的3个随机数确实随机并满足在0～1之间。

但再次运行该程序会发现所产生的3个随机数和上次的完全相同 Private Sub Command1_Click() Print Rnd : Print Rnd : Print Rnd End Sub,,在调用随机函数之前先使用Randomize语句，此后再使用随机函数便可产生逼真的随机数 Private Sub Command1_Click() Randomize Print Rnd : Print Rnd : Print Rnd End Sub 下面程序演示了，函数的自变量是另一个函数 Private Sub Command1_Click() Print Sqr(Abs(-4)) End Sub,3.2.2 常用转换函数,常用转换函数主要包括数值型数据与字符型数据之间的转换，以及数值型数据之间的转换函数 说明 举例 结果 Asc(C) 将字符转换成ASCII编码 Asc(“A“) 65 Chr(N) 将ASCII编码转换成字符 Chr(65) “A“ Fix(n) 返回n的整数部分 Fix(5.6) 5 Int(n) 返回不大于n最大整数 Int(5.6) 5 Str(N) 将数值型量转换为字符型量 Str(123) “123“ Val(C) 将字符串转换为数值型量 Val(“123“) 123,,常用Val函数把输入的数字字符串转换成数值，用Str函数把要输出的数值转换成字符串。

Option Explicit Private Sub Command1_Click() Const Vg = 300000000# Const Pi = 3.1415 Dim OA, AB, OB, S1 OA = Vg / 3000 / 2 AB = OA * Sin(30 * Pi / 180) OB = OA * Cos(30 * Pi / 180) S1 = Pi * OB * OB Print “飞机的高度是：“ + Str(AB) + “m“ Print “雷达仰角为30°，搜索面积是：“ + Str(S1) + “m2“ End Sub,,Asc和Chr是一对互逆函数，Asc只能计算一个字符串首字符的ASCII编码，Chr是计算ASCII编码对应的字符，控制字符可以使用Chr函数输入 Private Sub Command1_Click() Print Chr(Asc(“A“)) Print Asc(“ABCDEF“) Print Trim(Str(Asc(“ABCDEF“))) Print “显示在上一行“ + Chr(13) + Chr(10) + “显示在下一行“ End Sub,3.2.3 常用字符串函数,在字符存储和处理中，VB 6.0采用了Unicode编码。

Unicode编码将一个汉字和一个西文字符都视为一个字符，占用两个字节存储函数 说明 举例 结果 Ltrim(C) 删除字符串左边的前导空格 Ltrim(“ abc“) “abc“ Rtrim(C) 删除字符串右边的尾随空格 Rtrim(“abc “) “abc“ Trim(C) 删除字符串前导和尾随的空格 Trim(“ abc “) “abc“ Left(C,N) 从字符串的左边取出N个字符 Left(“abc“,2) “ab“ Right(C,N) 从字符串的右边取出N个字符 Right(“abc“,2) “bc“ Mid(C,M,N) 从字符串的M位右取出N个字符 Mid(“abcd“,2,2) “bc“ InStr(C1,C2) 返回字符串2在字符串1的位置 InStr(“abc“,“bc“) 2 Len(C) 返回字符串的长度 Len(“abc“) 3 Space(N) 产生N个空格字符组成的字符串 Space(2) “ “ Lcase(C) 大写字母转换成小写字母 Lcase(“AbC“) “abc“ Ucase(C) 小写字母转换成大写字母 Ucase(“abc“) “ABC“,,Private Sub Command1_Click() str1 = “字符串函数与运算“ str2 = Mid(str1, 4, 2) Print str2 n = InStr(str1, str2) Print n Print InStr(str1, “字符子串“) Print str1 + “的长度是“ + Str(Len(str1)) Print UCase(“abCDef“) Print LCase(“abCDef“) Print LCase(“abCDef“) + Space(3) + UCase(“abCDef“) End Sub,3.2.4 常用日期时间函数,函数 说明 举例 结果 Date 系统当前的日期(年-月-日) Date 。