《vb-03VB数据类型、运算符与表达式》由会员分享，可在线阅读，更多相关《vb-03VB数据类型、运算符与表达式（74页珍藏版）》请在金锄头文库上搜索。
1、上节课重要内容上节课重要内容 语句的构成及注意事项语句的构成及注意事项 uu复合语句行（：）复合语句行（：） uu续行符（续行符（_ _） uu赋值语句（赋值语句（【letlet】目标操作符目标操作符= =源操作符）源操作符） uu注释语句（注释语句（ RemRem 注释内容注释内容 或或 注释内容）注释内容） uu结束语句结束语句 （End End ） 命令按钮的属性、事件及方法的应用命令按钮的属性、事件及方法的应用 uu属性：属性：Default Cancel Style ValueDefault Cancel Style Value uu方法：方法：SetFocusSetFocus uu
2、事件：事件：ClickClick第三章第三章 VBVB程序设计基础程序设计基础VB应用程序包括两部分，即用户界面和程序代 码。其中用户界面由窗体和控件组成，而程序代 码则由基本的程序元素组成，包括数据类型、常 量、变量、内部函数、运算符和表达式等。3.1数据类型 3.2 常量和变量 3.3 常用函数 3.4运算符与表达式3.1 3.1 基本数据类型基本数据类型数据是程序的必要组成部分，也是程序处理的对 象。在高级语言中广泛使用“数据类型”这一概念。 VB提供了系统定义的数据类型，并允许用户根据需 要定义自己的数据类型。基本数据类型： 字符串型数据、数值型数据、字节、 货币、对象、日期、布尔和变
3、体数据类型。数据类型关键字类 型 说明符所占 字 节取值范围范围字节型Byte无10255 逻辑型Boolean无2True或False 整 型Integer%2-215215-1范围内的任何整数 长整型LongInt(-7.8)的值为-8Fix(x)返回自变量的整数部分Fix(5.3)的值为5;Fix(-7.8)的值为-7Val(x)将数字字符串转换成数值型常数Val(“12ab”)的值为12Oct$(x)返回代表八进制值的字符串Oct$(459)的值为“713“Asc(x$)返回字符串x$的第一个字母的ASCII码Asc(“Apple“)的值为 65Chr$(x)返回x的值的ASCII码的
4、字母Chr(65)的值为“A“Str$(x)将自变量x转换为字符串Str(-459.65)的值为“-459.65“Cint(x)将自变量x转换为整数，小数部分四舍五入Cint(7/2)的值为4Ccur(x)将自变量x转换为货币型，小数部分最多4位，四舍五入Ccur(31.245678)的值为31.2457CDbl(x)将自变量x转换为双精度数 CLng(x)将自变量x转换为长整形，小数部分四舍五入CLng(31.32)的值为31CSng(x)将自变量x转换为单精度数 CVar(x)将自变量x转换为变体类型 注意：当小数部分恰好为 0.5 时，Cint 和 CLng 函数会将 它转换为最接近的偶
5、数值。 例：请编制程序，打印下列函数结果，自变量的值自己设 置一个数据。程序如下：Private Sub Command1_Click() Print Int(7.6), Int(-7.8) Print Fix(7.8), Fix(-7.8) Print Hex(15), Oct(15) Print Asc(“A“), Chr(66) Print Str(7.8) + “aaaa“ Print CInt(3.5); CInt(4.5); CInt(4.6); Int(5.3) Print CCur(3.55678); CCur(5.34454) Print CLng(3.5); CLng(4.
6、5); CInt(4.6); CInt(5.3) End Sub数学函数 (注意：这里的三角函数中的x为弧度)函数功能例Sin(x)返回自变量x的正弦值 Cos(x) 返回自变量x的余弦值 Tan(x)返回自变量x的正切值 Atn(x)返回自变量x的反正切值 Abs(x) 返回自变量x的绝对值Abs(-5)的值为5Sgn(x) 返回自变量x的符号值Sgn(-5)的值为-1Sqr(x)返回自变量x的平方根 Exp(x)返回以e为底，x为指数的值，e为自然对数 Private Sub Command1_Click() Print Sin(7.6) Print Cos(7.8) Print Tan(
7、0.45) Print Atn(1.3) Print Abs(-5); Abs(5) Print Sgn(-5); Sgn(5); Sgn(0) Print Sqr(4) Print Exp(4) End Sub例：请编制程序，打印下列函数结果，自变量的值自己设 置一个数据。随机函数：函数功能 Rnd(x)产生一个0-1之间的单精度随机数Rnd(x): 当x0时，序列中的下一个随机数，上一个产生的随机数为下 一个随机数的种子。当一个应用程序不断地重复使用随机数时，同 一序列的随机数会反复出现，用Randomize语 句可以消除这种情况。格式：Randomize numberRandomize
8、用 number 将 Rnd 函数的随机数 生成器初始化，该随机数生成器给 number 一 个新的种子值。 如果省略 number，则用系统计时器返回的值作 为新的种子值。例：使用rnd函数随机生成一个1到6 的随机整数 。Private Sub Command1_Click() Dim myvalue myvalue = Int(6 * Rnd) + 1) Print myvalue End Sub公式：Int(upper-lower+1)*Rnd+lower)日期函数：函数功能例Day(x)返回自变量中的 日Day(#12/31/2002#)的值为31WeekDa y(x)返回自变量中的
9、 星期WeekDay(#12/31/2002#)的值为2Month(x)返回自变量中的 月份Month(#12/31/2002#)的值为12Year(x)返回自变量中的 年份Year(#12/31/2002#)的值为2002;Year(Now)的值 为当前的年份例：请编制程序，打印下列函数结果，自变量 的值自己设置一个数据。Private Sub Command1_Click() Print Day(Now) Print Weekday(Now) Print Month(Now) Print Year(Now) Print Now End Sub注意：日期和时间函数的自变量now是一个内部变量
10、， 不需要用户定义，用它作自变量，可以用日期和时间函 数返回当前系统的日期和时间。时间函数：函数功能例Hour(x)返回自变量中的小 时（0-23）Hour(#12/31/2002 5:30:20 PM#)的值为17Minute(x)返回自变量中的分 钟（059）Minute(#12/31/2002 5:30:20 PM#)的值为 30Second(x )返回自变量中的秒 钟（059）Second(#12/31/2002 5:30:20 PM#)的值为 20例：请编制程序，打印下列函数结果，自变量 的值自己设置一个数据。Private Sub Command1_Click() Print Ho
11、ur(Now) Print Minute(Now) Print Second(Now) Print Now End Sub字符串函数1、删除空白字符串函数 去掉字符串左边空白字符：LTrim$(字符串) 去掉字符串右边空白字符：RTrim$(字符串) 去掉字符串左边空白字符：Trim$(字符串)空白字符包括空格、TAB键等。例：使用函数。查看运行结果Private Sub Command1_Click()aaa1 = “aaaaa “bbb1 = “ bbbbb“ccc1 = “ ccccc “Print “|“ + LTrim(aaa1) + “|“ + LTrim(bbb1) + “|“
12、+ LTrim(ccc1) + “|“Print “|“ + RTrim(aaa1) + “|“ + RTrim(bbb1) + “|“ + RTrim(ccc1) + “|“Print “|“ + Trim(aaa1) + “|“ + Trim(bbb1) + “|“ + Trim(ccc1) + “|“ End Sub2、字符串截取函数左部截取：Left$(字符串,n) 从左部开始取n个字符 右部截取：Right$(字符串,n) 从右部取n个字符 中部截取：Mid$(字符串,p,n) 从左部开始的第p个字符， 取连续n个字符这里的字符串可以是字符串常量、字符串变量、字符串函 数或是字符串连
13、接表达式。Mid$函数的第三个字变量可以省略。在这种情况下，将从 第二个字变量指定的位置向后截取到字符串的末尾。例：使用函数，查看运行结果Private Sub Command1_Click()MyString = “Mid Function Demo“FirstWord = Left(MyString, 3) 返回 “Mid“。LastWord = Right(MyString, 4) 返回 “Demo“。MidWords = Mid(MyString, 5) 返回 “Funcion Demo“。Print FirstWord, LastWord, MidWords End Sub3、字符串
14、长度测试函数Len(字符串): 字符串的长度。 Lenb(变量名): 变量的存储空间。例：使用函数 。查看运行结果 。Private Sub Command1_Click()a$ = “ABCDEFGHIJK“Print Len(a$)a = Len(var1%)b = Len(var2!)c = Len(var3#)Print a, b, cEnd Sub4、String$函数String$(n,ASCII码值):返回由该ASCII码指定的字符组成的n 个字符的字符串String$(n,字符串):返回由该字符串的第一个字符组成n个字 符的字符串Private Sub Command1_Cli
15、ck()Print String$(6, 65) 返回字符串“AAAAAA “Print String$(3, “chyufdgxd“) 返回字符串“ccc“End Sub例：使用函数。查看运行结果。5、空格函数 Space$(n):返回由n个空格组成的字符串例：使用函数。查看运行结果。Private Sub Command1_Click() Print “start“ + Space(3) + “END“ 返回字符串“start END“ Print “start“ + “123“ + “END“返回字符串“start123END“ End Sub6、字符串匹配函数Instr$(首字符位置,
16、字符串1,字符串2,n) 查找字符串2 的第一个字符在字符串1中首次出现的位置。 说明：v字符串2的长度必须小于65535个字符。v“首字符位置”指的是开始查找的位置。vn是可选的，是一个整型数，用来指定字符串比较方 式。n为0，二进制比较（区分大小写）；n为1，文本方式比较（不区分大小写）；n为2，数据库信息比较（仅用于Microsoft Access）。当变量n省略时，用区分大小写方式比较。Instr的返回值是一个长整型数，在不同的条件下，函数的返 回值也不一样。如果InStr返回 string1 为零长度0 string1 为 NullNull string2 为零长度开始位置 string2 为 NullNull string2 找不到0 在 string1 中找到string2找到的位置开始位置 string2位置0Private Sub Command1_Click() Dim
