vb-03VB数据类型、运算符与表达式.ppt

上节课重要内容,语句的构成及注意事项 复合语句行（：） 续行符（_） 赋值语句（【let】目标操作符=源操作符） 注释语句（ Rem 注释内容 或 注释内容） 结束语句 （End ） 命令按钮的属性、事件及方法的应用 属性：Default Cancel Style Value 方法：SetFocus 事件：Click,第三章 VB程序设计基础,VB应用程序包括两部分，即用户界面和程序代码。其中用户界面由窗体和控件组成，而程序代码则由基本的程序元素组成，包括数据类型、常量、变量、内部函数、运算符和表达式等。 3.1数据类型 3.2 常量和变量 3.3 常用函数 3.4运算符与表达式,3.1 基本数据类型,数据是程序的必要组成部分，也是程序处理的对象。在高级语言中广泛使用“数据类型”这一概念。 VB提供了系统定义的数据类型，并允许用户根据需要定义自己的数据类型。,基本数据类型： 字符串型数据、数值型数据、字节、货币、对象、日期、布尔和变体数据类型。,（1）字符串 （String）型数据 字符串是一个字符序列，由ASCII字符组成，包括标准的ASCII字符和扩展ASCII字符。在VB中，字符串是放在双引号内的若干个字符，其中长度为0（即不含任何字符）的字符串称为空字符串。 字符串通常放在双引号中，但输出时不显示双引号。例如： “Hello” “vb6.0 程序设计” “”（空字符串）,Vb中的字符串分为两种，即变长字符串和定长字符串。 变长字符串的长度是不确定的，从0-2的31次幂 定长字符串是含有确定个数的字符，最大长度不超过2的16次幂,在VB中，String数据有可变长度字符型和固定长度字符型两类。 例如：Dim x as String Dim y as String*8 在上面的变量声明中，变量x被声明为可变长度字符型；而变量y被声明为固定长度字符型，其长度为8个字符。 注意：VB对其语法的大小写没有区别，但在字符串中，VB对大小写是有区别的，如果想忽视字符串大小写的区别，可以在窗体和标准模块的“通用”代码段中加上Option compare text语句。 例如： Option compare text x =“aaa“ : y =“aAA“ 这两个字符串的值相同，如果去掉Option compare text，则两字符串的值不同。,整数（Integer）：以两个字节（16位）的二进制码表示和参加运算，其取值范围为： -32768-32767 十进制整数只能包含数字09和正负号（正号可以省略）， 其取值范围为-32768 32767。 十六进制整数由数字09、字母AF（或af）组成，并以&H引导，其后面的数据位数小于等于4位，其取值范围为&H0&HFFFF。 八进制整数由数字07组成，并以&O或&引导，其后面的数据位数小于等于6位，其取值范围为&O0&O177777。,整型数分为整数和长整数。,（2）数值型数据,长整型(Long) : 以带符号的4个字节（32位）二进制数存储，取值范围为：-2147483648-2147483647 长整型数的数字组成与整数相同，正号可以省略，并且在数值中不能出现逗号（分节符）。 十进制长整型数的范围为: -2147483648+2147483 647。 十六进制长整型数以&H开头，以&结尾，其范围： &H0&HFFFFFFFF&。 八进制长整型数以&O或&开头，以&结尾，其范围： &O0&O37777777777&。,浮点数：也称实型数或实数，是带有小数部分的数值。它由三部分组成：符号、指数及尾数。单精度浮点数和双精度浮点数的指数分别用“E”和“D”来表示。,例如：123.45E3 或123.45e+3 单精度数，相当于123.45乘以10的3次幂 123.45678D3 或123.45678d+3 双精度数，相当于123.45678乘以10的3次幂,在上面的例子中，123.45或123.45678是尾数部分，E3、D3是指数部分。,单精度数用来表示带有小数部分的实数，可以精确到7位十进制数，小数点可以位于这些数字的任何位置，正号可以省略。单精度数有两种表示方法：定点表示法和浮点表示法。 单精度数的定点表示法 在单精度数表示的范围内，如果这个数值含有小数，而不含指数，则可用定点表示法。例如： -1.4 178.9 +55.8 .000 077 8 -346.788 443 单精度数的浮点表示法 浮点表示法就是数学中的科学计数法，即以10的整数次幂表示的数，以字母“E”来表示底数10。例如： 2.3103, 0.000 332 21 10-21分别表示为： -2.3E3 .00033221E-21,单精度浮点数（Single）：,以4个字节（32位）存储，其中符号占1位，指数占8位，其余23位表示尾数，此外还有一个附加的隐含位。,双精度数也有两种表示方法：定点表示法和浮点表示法。 双精度数的定点表示法 在双精度数表示的范围内，如果这个数含有小数，而不含指数，则可用定点表示法。 例如： -12.234 456 788 0.543 367 775 100 111 111.125 6 双精度数的浮点表示法 这是更大范围的科学计数法，即以10的整数次幂表示的数，以字母“D”来表示底数10。 例如： -1.4477332D87 245.65453221D-4 .23456778D+5,双精度浮点数（Double）： 以8个字节（64位）存储，其中符号占1位，指数占11位，其余52位表示尾数，此外还有一个附加的隐含位。 双精度浮点数可以精确到15或16位十进制数， 其负数的取值范围为： -1.797693134862316D+308-4.94065D-324， 正数的取值范围为：4.94065D-324-1.797693862316D+308,使用说明,（1）如果数据包含小数，则应使用单精度数或双精度数。 （2）在VB中，数值型数据都有一个有效的范围值，程序中的数如果超出规定的范围，就会出现“溢出”信息。如果该数小于范围的下限值，系统将按0处理；如果大于上限值，则系统只按上限值处理，并显示出错误信息。 （3）一般情况下VB使用十进制数计数，但有时也使用十六进制数和八进制数表示，表示值时它们与十进制是等价的。 （4）所有数值变量都可以相互赋值，也可对变体(Variant)类型变量赋值。在将浮点数赋予整数之前，VB要将浮点数的小数部分四舍五入，而不是将小数部分去掉。,（3） 货币（Currency）,货币数据类型是为表示钱款而设置的。该数据类型以8个字节（64位）存储，精确到小数点后4位（小数点前有15位），在小数点后4位以后的数字将被舍去。取值范围是： -922337203685477.5808-922377203685477.5807 浮点数中的小数点是“浮动”的，即小数点可以出现在数的任何位置，而货币类型数据的小数点是固定的，因此称为定点数据类型。,（4）变体（Variant）,Variant数据类型又称为万用数据类型，它是一种特殊的、可以表示所有系统定义类型的数据类型。 变体数据类型对数据的处理可以根据上下文的变化而变化，除了定长的string数据及用户自定义的数据类型之外，可以处理任何类型的数据而不必进行数据类型的转换，如上所述的数值型、日期型、对象型、字符型的数据类型。 Variant数据类型是VB对所有未定义的变量的缺省数据类型的定义。通过VarType函数可以检测Variant型变量中保存的具体的数据类型。,（5）其它数据类型,字节（Byte）：实际上是一种数值类型，以1个字节的无符号二进制数存储，取值范围是0-255 布尔（Boolean）: 布尔型数据是一个逻辑值，用两个字节存储，它只取两种值，即True 或False，经常用来表示逻辑判断的结果。 日期（Date）: 日期存储为64位浮点数值形式，表示的日期从公元100年1月1日9999年12月31日，时间范围为0:00:0023:59:59。 任何在字面上可以被认作日期的文本都可以赋值给日期变量，且日期文字必须用符号“#”括起来，如#January 15,2002#，#1985-10-1 9:45:00 PM# 都是合法的日期型数据。,注意：将其他数据类型的数值转换为日期型时，小数点左边的值表示日期信息，小数点右边的值则代表时间信息。0为午夜，0.5为正午。负数表示公元1899年12月31日之前的日期。,对象（Object）,对象类型的数据主要是以变量形式存在的，用来表示图形、OLE对象或其它对象，Object变量通过32位（4字节）来存储，该地址可以引用应用程序中的对象。,用户自定义数据类型,用户可根据实际需要利用vb提供的标准数据类型，在VB中使用Type关键字可以定义程序员所有的自定义类型数据。 如表示一个学生的信息 学号，姓名，性别，年龄=1001，黎明，男，21 不能用单一的标准类型表示。使用Type关键字可以定义新类型,格式如下： Type 自定义数据类型名 元素名（下标） as 类型名 End Type 其中： 自定义数据类型名：要定义的数据类型的名字 元素名：自定义类型中的一个成员 下标：表示数组 类型名：vb的标准类型,通常把用Type语句定义的类型称为记录类型，例如 Type Student_Type No As Integer Name As String*8 Sex As Boolean Age As Integer End Type 要使用这种类型变量Stu，可以写如下的定义： Dim Stu As Student_Type 注意： 1、自定义的数据类型必须在标准模块中定义 2、自定义数据类型中的元素类型可以是字符串，但必须是定长字符串。,3.2 常量和变量,计算机所处理的数据，必须先存入内存单元。命名后的内存单元就是常量或者变量。 常量在程序执行期间其值不发生变化，而变量的值是可变的，它们都代表内存中指定的存储单元。 在程序中，不同类型的数据既可以以常量的形式出现，也可以以变量的形式出现。,常量,常量，是指在程序不能发生变化的量。常量有直接常量和符号常量两种，符号常量又包括程序员声明的常量和系统提供的常量。,直接常量 符号常量 (1) 程序员声明的常量 (2) 系统提供的常量,常量直接常量,直接常量在程序中以常规的、明显的方式来表示。根据使用的数据类型不同，直接常量可分为：数值常量、字符串常量、布尔常量和日期常量。,(1) 数值常量就是常数，包括整型数、长整型数、单精度数、双精度数。 例如： 123 456789 3.14159 -4.5d-3 (2) 字符串常量是用两个双引号括起来的一串字符。这些字符可以是除双引号和回车符、换行符以外的所有字符。 例如： “China“、 “、 “*“ “1234567“ (3) 布尔常量只有True(真)和False(假)两个值。 (4) 日期常量是用两个“”号把表示日期和时间的值括起来表示日期常量。例如： #April 13,2001# #2001-4-13 10:30:25 PM#,常量(符号常量)程序员声明的常量,在程序中，用标识符表示的常量称为符号常量。在VB中使 用关键字Const定义符号常量，其格式为： Const As = 符号常量的例子： Const Pi As Double = 3.1415926 Const Pi_Two = Pi*2 Const String1 = “String1“ 注意：如果用逗号进行分隔，则在一行中可放置多个常量声明，例如： Const Pi = 3.1415926， Max = 100， Min = 0,注意： 1、常量声明格式中的As 类型可以用类型说明符代替 为了显式地说明常数的类型，可以在常数的后面加上类型说明符，以确切地说明数据类型。 %：整型 &：长整型 !：单精度浮点数 #：双精度浮点数 ：货币型 $：字符串型,例如：Const a%=100 Const name$=“shanxi”,2、常量名不能与关键字或所在过程内的其他常量或变量同名，其有效作用范围为常量声明语句所在的程序单位。 3、 Vb在判断常量类型时有时候存在多义性。在默认情况下，选择系统开销最小的表示方法。 4、经过声明的常量是常数值的名字，不能在程序代码中修改它的值。,常量(符号常量)系统提供的常量,在vb的对象库中，提供了应用程序和控件的系统常量。由系统设定的系统符号常数，它们不需要定义而直接使用。 如vbCrlf表示回车换行，vbRed表示颜色的值为十进制255。可以在系统的对象浏览器中找到有关的常数定义。 例如：form1.WindowState=1 form1.WindowState=vbMinimized,“视图”“对象浏览器”（或F2）,变量,变量是指在程序中可以发生变化的量。变量有三 个要素：名字、类型和值。 变量名字用在程序里，代表这个变量。变量名用在 可以计算的一个式子中，则代表这个变量在内存中的内 容，即该变量的值。,变量命名 变量声明 (1) 变量显式声明 (2) 变量隐式声明 (3)强制显式声明变量语句Option Explicit,常量或变量的命名规则 VB变量或常量名只能用字母、数字、汉字和下划线组成，变量名中不能包含小数点。 VB变量或常量名的第一个字符必须是字母或汉字，最后一个字符可以是类型说明符，且组成变量或常量名的字符数不得超过255个字符。 不得使用VB的保留名或保留名后加上类型说明符来作为变量或常量名。例如：print、print$作为变量名均是非法的。 变量或常量名在同一个范围内必须是唯一的。 变量或常量名不区分大小写。在定义一个变量后，只要字符相同，则不管其大小写，指的都是一个变量或常量。,变量声明变量显式声明,变量在使用前一般需要声明。最常用的变量声明 语句是Dim。用Dim等语句来声明变量称为强制显式声 明。用Dim声明变量的语法格式是： Declare As Declare可以是Dim、Public、Private、Static或Redim Dim:用于在模块的通用部分定义模块变量以及过程中定义 过程变量；Dim I As Integer, YourName As String Public:用于在模块的通用部分定义应用程序级变量； Private:用于在模块的通用部分定义模块级变量； Static:用于过程中定义过程级静态变量； Redim:用于重新定义动态数组的大小。,变量声明变量隐式声明,在代码中不用Dim语句或其它语句定义而直接使用 的变量是变体型变量，在VB中允许如此使用变量称为 隐式声明。隐式声明变量会带来程序隐患，例如： Private Sub Command1_Click() Score = 95 Print Scor End Sub 在上面的程序段中，因为在第三行把Score变量名 写错了，所以窗体上总是显示为空。当VB遇到新名字， 它分辨不出这是意味着隐式声明了一个新变量呢，还是 仅仅把一个现有变量名写错了，于是只好用这个名字再 创建一个新变量。,变量声明强制显式声明变量语句Option Explicit,隐式声明变量会带来程序隐患，应在窗体和标准模 块的“通用”代码段中用Option Explicit语句强制显式声明所有变量。 例如： Private Sub Command1_Click() Score = 95 Print Scor End Sub 在上面的程序段中，如果对包含Command1_Click() 的窗体或标准模块执行Option Explicit语句，那么VB 将认定Score和Scor都是未经声明的变量，并发出错误 信息。随后就可以显式声明Score。这样一来，就很容 易发现拼写错误了。,3.3 常用内部函数,VB提供了大量的内部函数，大体上可分为4类，有转换函数、数学函数/随机函数、日期函数/时间函数，以及字符串函数。,转换函数：,注意：当小数部分恰好为 0.5 时，Cint 和 CLng 函数会将它转换为最接近的偶数值。 例：请编制程序，打印下列函数结果，自变量的值自己设置一个数据。程序如下：,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.5); CInt(4.6); CInt(5.3) End Sub,数学函数 (注意：这里的三角函数中的x为弧度),Private Sub Command1_Click() Print Sin(7.6) Print Cos(7.8) Print Tan(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): 当x0时，序列中的下一个随机数，上一个产生的随机数为下一个随机数的种子。,当一个应用程序不断地重复使用随机数时，同一序列的随机数会反复出现，用Randomize语句可以消除这种情况。,格式：Randomize number Randomize 用 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),日期函数：,例：请编制程序，打印下列函数结果，自变量的值自己设置一个数据。,Private Sub Command1_Click() Print Day(Now) Print Weekday(Now) Print Month(Now) Print Year(Now) Print Now End Sub,注意：日期和时间函数的自变量now是一个内部变量，不需要用户定义，用它作自变量，可以用日期和时间函数返回当前系统的日期和时间。,时间函数：,例：请编制程序，打印下列函数结果，自变量的值自己设置一个数据。,Private Sub Command1_Click() Print Hour(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) + “|“ + LTrim(ccc1) + “|“ Print “|“ + RTrim(aaa1) + “|“ + RTrim(bbb1) + “|“ + RTrim(ccc1) + “|“ Print “|“ + Trim(aaa1) + “|“ + Trim(bbb1) + “|“ + Trim(ccc1) + “|“ End Sub,2、字符串截取函数,左部截取：Left$(字符串,n) 从左部开始取n个字符 右部截取：Right$(字符串,n) 从右部取n个字符 中部截取：Mid$(字符串,p,n) 从左部开始的第p个字符， 取连续n个字符 这里的字符串可以是字符串常量、字符串变量、字符串函数或是字符串连接表达式。 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 Sub,3、字符串长度测试函数,Len(字符串): 字符串的长度。 Lenb(变量名): 变量的存储空间。,例：使用函数。 查看运行结果。,Private Sub Command1_Click() a$ = “ABCDEFGHIJK“ Print Len(a$) a = Len(var1%) b = Len(var2!) c = Len(var3#) Print a, b, c End Sub,4、String$函数 String$(n,ASCII码值):返回由该ASCII码指定的字符组成的n个字符的字符串 String$(n,字符串):返回由该字符串的第一个字符组成n个字符的字符串,Private Sub Command1_Click() 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 Sub,6、字符串匹配函数,Instr$(首字符位置,字符串1,字符串2,n) 查找字符串2的第一个字符在字符串1中首次出现的位置。 说明： 字符串2的长度必须小于65535个字符。 “首字符位置”指的是开始查找的位置。 n是可选的，是一个整型数，用来指定字符串比较方式。 n为0，二进制比较（区分大小写）； n为1，文本方式比较（不区分大小写）； n为2，数据库信息比较（仅用于Microsoft Access）。 当变量n省略时，用区分大小写方式比较。,Instr的返回值是一个长整型数，在不同的条件下，函数的返回值也不一样。,Private Sub Command1_Click() Dim SearchString, SearchChar, MyPos SearchString = “XXpXXpXXPXXP“ 被搜索的字符串。 SearchChar = “P“ 要查找字符串 “P”。 从第四个字符开始，以文本比较的方式找起。返回值为 6（小写 p）。 小写 p 和大写 P 在文本比较下是一样的。 MyPos = InStr(4, SearchString, SearchChar, 1) Print MyPos 从第一个字符开始，以二进制比较的方式找起。返回值为 9（大写 P）。 小写 p 和大写 P 在二进制比较下是不一样的。 MyPos = InStr(1, SearchString, SearchChar, 0) Print MyPos 缺省的比对方式为二进制比较（最后一个参数可省略）。 MyPos1 = InStr(SearchString, SearchChar) 返回 9。 mypos2 = InStr(1, SearchString, “W“) 返回 0。 Print MyPos1, mypos2 End Sub,7、字母大小写转换函数 Ucase$(字符串)：将字符串转换为大写 Lcase$(字符串)：将字符串转换为小写 例：使用函数。查看运行结果。,Private Sub Command1_Click() Print UCase$(“Rose“) 返回字符串“ROSE“ Print LCase$(“Rose“) 返回字符串“rose“ End Sub,插入字符串语句 Mid$（补）,Mid$(字符串,位置,L)=子字符串 说 明: 在字符串中,从指定位置开始L个字符被子字符串替换, 如果子字符串长度大于L,子字符串被截取； 如果L没有，则替换后的字符串长度和被替换前的字符串长度一样。,Private Sub Command1_Click() Dim MyString MyString = “ The dog jumps “ 设置字符串初值。 Mid(MyString, 5, 3) = “fox“ Print MyString MyString = “The fox jumps“ Mid(MyString, 5) = “cow“ Print MyString MyString = “The cow jumps“ Mid(MyString, 5) = “cow jumped over“ Print MyString MyString = “The cow jumpe“ Mid(MyString, 5, 3) = “duck“ Print MyString MyString = “The duc jumpe“ End Sub,例：使用函数。查看运行结果。,判断函数（函数的返回值为true或者false）（补）,1、IsNumeric() /判断表达式是否为数字型 2、IsEmpty() /判断变量是否已被初始化 3、IsDate() /判断表达式是否为日期 4、IsArray() /判断变量是否为数组,Shell函数,通过shell函数来调用DOS下或Windows下运行的任何可执行的程序。 格式：shell （命令字符串，窗口类型） 命令字符串是包含路径的可执行的应用程序的名字 例如：,Private Sub Command1_Click() Rem 用shell函数调用金山词霸,语句如下: TaskID=Shell(“c:Program FilesKingsoftXDICT.E_ XE“,vbMinimizedNoFocus) End Sub,窗口类型命名参数有以下这些值： 常量 值 描述 vbHide 0 窗口被隐藏，且焦点会移到隐式窗口。 VbNormalFocus 1 窗口具有焦点，且会还原到它原来大 小和位置。 VbMinimizedFocus 2 窗口以一个具有焦点的图标来显示。 VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。 VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位 置，而当前活动的窗口仍然保持活动。 VbMinimizedNoFocus 6 窗口会以一个图标来显示,而当前活 动的的窗口仍然保持活动。,3.4 运算符和表达式,运算形式通过一些简单的符号来描述，这些符号称为运算符。 被运算的对象称为操作数或运算量。运算量可以是常量、变量、函数等。 由运算符和运算量组成的表达式描述了对哪些数据、以何种顺序进行什么样的操作。,算术运算符（VB算术运算符：优先级从上至下）,幂运算,幂运算用来计算乘方和方根。运算符为。 例如：10 2 表示10的2次幂 25 0.5 表示25的平方根 8 （1/3） 表示8的立方根 注意：当指数是一个表达式时，必须加上括号。 例如：x (z+y),浮点数除法与整数除法,浮点数除法运算符（/）执行标准除法操作，其结果为浮点数。例如，表达式3/2的结果为1.5 整数除法运算符（）执行整除运算，结果为整型值，不舍入。例如，表达式32的结果为1 整除的操作数一般为整型值。当操作数带有小数时，首先被四舍五入为整型数，然后进行整除运算，运算结果不舍入。 例如：25.636.78的结果为3,取模运算,取模运算符Mod用来求余数，其结果为第一个操作数整除第二个操作数所得的余数。 例如：7 Mod 4的结果为3 25.68 Mod 6.99的结果为5 （先进行四舍五入变为26和7，再取模）,例：查看运行结果。,Private Sub Command1_Click() a = 35 b = 12 c$ = “ssss“ d$ = “qqq“ Print a + b, a - b, a * b, a / b Print a b, a Mod b, b 2, 2 * -a Print c + d, c & d End Sub,关系运算符,也称比较运算符，用来对两个表达式的值进行比较，比较的结果是一个逻辑值，即真（True）或假（