第2章--数据类型、常量、变量及表达式

1、第2章 数据类型、常量、变量及表达式 第2页 第3页 第4页 2.1.1 语句语句 程序是由若干语句组成的程序是由若干语句组成的,语句是编写程序的指令。语句是编写程序的指令。 Ex： Private Sub Command1_Click() dim x ,y as integer x=5 y=6 Form1.print x-y,x+y,x*y,x/y End Sub 第5页 语句书写格式：语句书写格式： (1)一行也可以书写多个语句，语句之间用冒号分隔。一行也可以书写多个语句，语句之间用冒号分隔。 x=5:y=6:print x-y,x+y,x*y,x/y (2) 每行最多可以包含每行最多可以

2、包含255个字符。个字符。 (3)一条语句可分若干行书写一条语句可分若干行书写,在本行后加入续行符（空格和下在本行后加入续行符（空格和下 划线）。划线）。 print x,y, _ x+y,x-y (4) 不区分大小写字母不区分大小写字母 第6页 语句分类：语句分类： 1、定义语句：、定义语句： Dim x as Integer 说明变量说明变量x为整型数为整型数 2、可执行语句：、可执行语句： x=5 y=6 print x-y,x+y,x*y,x/y 3、 注释语句注释语句 以单引号（以单引号（）开头的文字为注释内容。增加程序的）开头的文字为注释内容。增加程序的 可读性可读性 第7页 第8

3、页 数据是程序的组成部分，也是程序处理的对象数据是程序的组成部分，也是程序处理的对象. 定义变量：定义变量： dim 变量名变量名 as 数据类型数据类型 第9页 2.2.1 基本数据类型基本数据类型 数据类型数据类型类型名类型名举例举例 整数类型整数类型Integer (%)-32768、32767 长整型长整型Long (&)87569 单精度小数类型单精度小数类型Single (!)3.14、-0.009 双精度小数类型双精度小数类型Double（#）23.1234567887 日期类型日期类型Date#12/31/2002# 字符串类型字符串类型String ($)“1223jgjg”

4、 变体类型变体类型Variant任意值任意值 第10页 Dim s as integer S=40 Dim num as single num=42.1 Dim ss as string ss=“welcome” Text1.text=ss 第11页 Dim SomeDate As Date SomeDate = #03/16/2008# SomeDate = #3/16/2008 13:20# text1.text=SomeDate 第12页 Variant 是是缺省类型缺省类型，是一种，是一种通用的通用的、可变的可变的数据数据 类型，它可以表示上述任何一种数据类型。把数据赋类型，它可以表示

5、上述任何一种数据类型。把数据赋 予予 Variant 变量，则不必在这些数据的类型间进行转变量，则不必在这些数据的类型间进行转 换；换； VB 会自动完成任何必要的转换。会自动完成任何必要的转换。 Dim a as variant a =“XYZ” 变量值为字符串变量值为字符串“XYZ” a= 17 15 变量值为数值变量值为数值2 a= 3.14 变量值为小数变量值为小数 第13页 用户自定义数据类型用户自定义数据类型 定义格式定义格式: type 自定义类型名自定义类型名 元素名元素名1 as 类型名类型名 元素名元素名2 as 类型名类型名 元素名元素名n as 类型名类型名 end t

6、ype 第14页 第15页 2.3.1 变量变量 变量是指在程序运行中，其值可以发生改变的数据。变量是指在程序运行中，其值可以发生改变的数据。 变量名的命名变量名的命名 u 以英文字母开头，其后可以是字母、数字和下划以英文字母开头，其后可以是字母、数字和下划 线的组合。线的组合。Ex判断正误判断正误:abc a_32 3df a(s) u 中间不能含空格中间不能含空格(或标点符号或标点符号) u 不得与不得与Visual Basic的保留字的保留字(关键字关键字)相同。相同。 第16页 2.3.2 常量常量 1、直接常量、直接常量 数值型常量数值型常量: 32 、25.4 Dim i% i=1

7、5 i=&o23 八进制数八进制数 i=&H2A 十六进制数十六进制数 字符串常量字符串常量: ”abcd” 日期常量日期常量: #3/5/2008# 2、符号常量、符号常量:const 符号名符号名=常量值常量值 const pi=3.14 const r=2.1 area=pi*r*r 第17页 例题: 第18页 第19页 函数是任何一种语言必不可少的部分，函数是任何一种语言必不可少的部分，VB的函数的函数 十分丰富，本节分类介绍常用的内部函数。十分丰富，本节分类介绍常用的内部函数。 2.4.1 函数的基本概念函数的基本概念 VB提供了大量的内部函数。在这些函数中，有些提供了大量的内部函数

8、。在这些函数中，有些 是通用的，有些与某些操作有关。大体上可分为：是通用的，有些与某些操作有关。大体上可分为： 数学函数、字符操作函数、日期和时间函数、转换数学函数、字符操作函数、日期和时间函数、转换 函数等。函数等。 第20页 Abs(x) 返回返回x的绝对值的绝对值 Text1.text=abs(-4) Log(x) 返回返回x的自然对数的自然对数 a=log(10) Exp(x) 返回以返回以e为底、以为底、以x为指数的值为指数的值 ex Sqr(x) 返回返回x 的平方根的平方根 Text1.text=sqr(4) dim a as single a=sqr(exp(5) sgn(x)

9、 返回返回x的符号的符号 sgn(3)=1 sgn(0)=0 sgn(-3)=-1 int(x) 返回不大于返回不大于x的最大整数的最大整数 int(3.9)=3 int(-3.4)=-4 Sin(x) cos(x) tan(x) Rand( ) 产生一个产生一个01之间的随机数之间的随机数 2.4.2 数学运算函数数学运算函数 第21页 2.4.3 字符串函数字符串函数 Left (St,n) 取取St左边的左边的n个字符个字符 Ex: Text1.text=left(“abcdef”,3) Right (St,n) 取字符串右边的取字符串右边的n个字符个字符 Mid (St,m,n) 从第

10、从第m个字符开始取字符串的个字符开始取字符串的n个字符个字符 Text1.text=mid(“abcdef”,2,4) Replace(St1,St2,St3) 主串主串St1中的中的St2子串被子串被St3子串替换子串替换 Ex:text1.text=replace(“I like a cat”,”cat”,”dog”) text1.text=“I like a dog” Space(n) 返回返回n个空格字符个空格字符 space(5)=“ “ Instrrev(c1,c2) 在在C1中从末字符开始找中从末字符开始找C2，返回，返回c2在在c1中的起始位置中的起始位置 instrrev(“

11、this is a book”,”is”)=6 第22页 Instr(c1,c2) 在在C1中从首字符开始找中从首字符开始找C2，返回，返回c2在在c1中的起始位置中的起始位置 instrrev(“this is a book”,”is”)=3 Ltrim (St) 去掉去掉St左边的空格字符左边的空格字符 text1.text=Ltrim(“ AD B”) Rtrim (St) 去掉去掉St右边的空格字符右边的空格字符 text1.text=Ltrim(“A DB ”) Len(St) 测试测试St的长度的长度 text1.text=len(“abc def”) 第23页 例例: Strin

12、g1=“热爱大自然热爱大自然” ?Mid(String1,Len(String1)-1,2) A) 热爱热爱 B)爱大爱大 C)大自大自 D)自然自然 例例: 表示空格表示空格,输出命令的结果是输出命令的结果是 ?Len(Ltrim(“ABCD”) A) 4 B) 6 C) 7 D)9 第24页 2.4.4 日期与时间函数日期与时间函数 Time返回系统的当前时间返回系统的当前时间 Ex: text1.text=time Date返回系统的当前日期返回系统的当前日期 text1.text=date Now 返回系统的当前日期和时间返回系统的当前日期和时间 Weekday(Date/intege

13、r ) 返回当天是星期几返回当天是星期几(星期日为星期日为1） Text1.text=weekday(date) Text1.text=weekday(#10-8-2008#) Text1.text=weekday(200) 第25页 例题：编写一程序，使程序一运行时，在窗例题：编写一程序，使程序一运行时，在窗 体的一个文本框中显示当前的日期和时间，体的一个文本框中显示当前的日期和时间， 在另一个文本框中显示距离在另一个文本框中显示距离2011.1.1的天的天 数。数。 第26页 Hex (x) 把一个十进制数转换为十六进制数把一个十进制数转换为十六进制数 text1.text=hex(13)

14、 Oct (x) 把一个十进制数转换为八进制数把一个十进制数转换为八进制数 Val(x) 将数字字符串转换成数值将数字字符串转换成数值 val(“123”)=123 text3.text=val(text1.text)+val(text2.text) Str(x) 将其他数据类型转换成字符串将其他数据类型转换成字符串 str(123)=“123” 2.4.5 转换函数转换函数 第27页 Lcase(x)将字符串中的大写字母转化为小写字母将字符串中的大写字母转化为小写字母 text1.text=Lcase(“visUAL”) Ucase(x)将字符串中的小写字母转化为大写字母将字符串中的小写字母

15、转化为大写字母 text1.text=Ucase(“visUAL”) 第28页 第29页 运算符分类 算术运算符 连接运算符 关系运算符 逻辑运算符 第30页 2.5.1 运算符运算符 （乘方）（乘方） a=4 a=42 2 a=43 a=2.34 - - （负号）（负号） a=-4a=-4 * *（乘）（乘）/ / （除）（除）2 2* *3=6 7/2=3.5 7.5/2=3.75 3=6 7/2=3.5 7.5/2=3.75 （整除）（整除）( (先四舍五入取整后再整除）先四舍五入取整后再整除） 72=3 7.52=72=3 7.52=？ 6.24=?6.24=? ModMod（求余）求

16、余）( (同上）同上）5 mod3=2 7.5mod 4=5 mod3=2 7.5mod 4=？ + + （加）（加） - -（减）（减） 1. 算术运算符算术运算符 第31页 ? 4+5*66*7/8 mod 4 第32页 算术表达式：由算术运算符、括号、函数及数 据组成的式子 a acbb 2 4 2 ba ba 第33页 2. 连接运算符连接运算符 Visual Basic的连接运算符只有两个：的连接运算符只有两个：“&”和和“+”，其基，其基 本本 功能都是连接两个字符串。功能都是连接两个字符串。 Text1.text=Abc & 123 结果为结果为 Abc123 Text1.tex

17、t=Abc +123 结果为结果为 Abc123 Text1.text=“a”+”b”+”c” 第34页 区别区别:对于对于&运算符运算符,会强制性地将两边表达式的类型会强制性地将两边表达式的类型 转化为字符串类型转化为字符串类型,然后进行连接然后进行连接. “100”&123 100123 100&123 100123 “abc”&123 abc123 对于对于+运算符运算符,当两边表达式有一个为数值型数据时当两边表达式有一个为数值型数据时, 另一个为数字字符串时另一个为数字字符串时,则进行加法运算则进行加法运算 “100”+”123” 100123 “100”+123 223 100+12

18、3 223 “abc”+123 error 第35页 注意： Dim s1, s2 As String s1 = asd s2 = zxc Text1.Text = s1 &s2 使用运算符使用运算符&时，变量与时，变量与&之间应加一个空格，这是之间应加一个空格，这是 因为因为”&”还是长整形得类型定义符，如果变量和还是长整形得类型定义符，如果变量和&连连 在一起，在一起，vb系统先把它作为类型定义符处理，因而会系统先把它作为类型定义符处理，因而会 出现语法错误。出现语法错误。 第36页 关系运算符都是双目运算，是用来比较两个运算量之间的关系运算符都是双目运算，是用来比较两个运算量之间的 关系

19、，关系表达式的运算结果为逻辑量。若关系成立，结果为关系，关系表达式的运算结果为逻辑量。若关系成立，结果为 True，若关系不成立，结果为，若关系不成立，结果为False。 运算符运算符含义含义优先级优先级实例实例结果结果 小于小于所有关系运算所有关系运算 优先级相同。优先级相同。 低于算术运算低于算术运算 的加的加“+”，减，减 “-”运算，高运算，高 于逻辑非于逻辑非 “Not”运算。运算。 15+1020False =小于或等于小于或等于10大于大于1020False =大于或等于大于或等于This= ThatTrue =等于等于This= ThatFalse 不等于不等于This ThatTrue like“this” like “*is”