1、4.1 4.1 程序代码的组织方式程序代码的组织方式4.2 4.2 代码的书写规则代码的书写规则4.3 4.3 VBVB的数据类型的数据类型4.4 4.4 运算符与表达式运算符与表达式4.5 4.5 VBVB的公共函数的公共函数 总结总结与与练习练习语句是组成语句是组成VBVB程序的最基本成分。程序的最基本成分。语句体语句体 4.2 4.2 代码的书写规则代码的书写规则规定语句的功能；有些语句没有该部分 提供具体说明或具体操作例如：Dim a as Integer a20一条语句作用一条语句作用:向系统提供必要的信息或规定系统执行某些操作。向系统提供必要的信息或规定系统执行某些操作。1)代码不
2、区分字母的大小写，如：代码不区分字母的大小写，如：Ab Ab 与与ABAB等效；等效；2)2)系统对用户程序代码进行自动转换；系统对用户程序代码进行自动转换；对于关键字，首字母被转换成大写，其余转换成小写对于关键字，首字母被转换成大写，其余转换成小写 对于用户定义的变量、过程名，以首次定义为准进行转换对于用户定义的变量、过程名，以首次定义为准进行转换 (1)(1)续行：（续行：（空格空格下划线字符下划线字符“_ _”)(2)(2)同一行上书写多条语句，语句间用冒号同一行上书写多条语句，语句间用冒号“：”分隔分隔 (3)(3)一行允许多达一行允许多达10231023个字符个字符 (4)(4)注释
3、行注释行 以 Rem开头，注释整行；以注释符“”引导 注释内容从注释符开始直到该行结束 利用“编辑”工具栏的“设置注释块”、“解除注释块”来 设置/取消多行注释。例如：例如：Form1.Print Form1.Print 学好学好VBVB 要多学多练要多学多练 Form1.Hide Form1.Hide Form2.Show Form2.Show Form1.Hide Form1.Hide 将将Form1Form1隐藏隐藏 Print Print F,F,1717 4.2 4.2 代码的书写规则代码的书写规则 整整 长整长整 单精度单精度 双精度双精度 货币型货币型 字节型字节型Integer
4、;Long;Single;Double;Currency;Byte 4.3.1 4.3.1 数据类型数据类型整型整型(占2字节)表数范围：-215-1 215-1，即32768 32767 表示形式：n 或n%：长整型长整型(占4字节)表数范围：-231-1 231-1 表示形式：n&例如：-120，120&，120，120%，43210，-12345678&：字节型(占1字节)表数范围：0255（无符号）整整 长整长整 单精度单精度 双精度双精度 货币型货币型 字节型字节型Integer;Long;Single;Double;Currency;Byte 3.3.1 3.3.1 数据类型数据类
5、型单精度单精度(4字节字节)-7个有效位 表示形式：带小数点数 用指数(E)表示 数字后面加“！”：双精度双精度(8字节字节)-15个有效位 表示形式：用指数(D)表示 数字后面加“#”例：例：-1E2，1.2E2120.0，120！+12345678.例：例：-1D2，1.2D2120#Currency：货币型货币型(8字节字节)-19个有效位 表示形式：数字后面加“”例：例：120=(-1)102Integer;Long;Single;Double;Currency;Byte 4.3.1 4.3.1 数据类型数据类型占占2 2个字节，只有两个值个字节，只有两个值True (-1)True
6、(-1)False(0)False(0)表示形式：用双引号括起来或变量名后加表示形式：用双引号括起来或变量名后加“$”如：如：“BasicBasic”、“12341234”注意：注意：与与 的区别的区别 字符串字符串123abc的表示：的表示：123abc 123abc Integer;Long;Single;Double;Currency;Byte 4.3.1 4.3.1 数据类型数据类型:-占用占用8 8个字节个字节 表示形式：用用#号括起来号括起来 如：#2-14-04 6:10:002-14-04 6:10:00#或或以数字表示以数字表示 如：如：2.52.5表示日期以1899年12月
7、30日为基点表示时间用于逻辑判断用于逻辑判断,只有两个值只有两个值True (-1)True (-1)False(0)False(0)表示形式：用双引号括起来或变量名后加表示形式：用双引号括起来或变量名后加“$”:万能型万能型 是一种通用的、可变的数据类型是一种通用的、可变的数据类型 隐含变量的类型隐含变量的类型用于保存任何对象的引用用于保存任何对象的引用 举例举例:re,my data,re.er,8re,:re,my data,re.er,8re,工资工资,Integer,Integer intSum intSum 引例引例：解方程解方程 3x3x2 2+25x+11=0+25x+11=0
8、 设：设：a=3,b=25,c=11a=3,b=25,c=11，则上述方程变为，则上述方程变为axax2 2+bx+c=0+bx+c=0规则规则：变量或常量名必须以变量或常量名必须以字母或汉字开头；字母或汉字开头；由字母、汉字、数字、下划线组成；由字母、汉字、数字、下划线组成；长度比超过长度比超过255255个字符；个字符；在在VBVB中变量名的字母不区分大小写；中变量名的字母不区分大小写；不要与关键字同名不要与关键字同名(Dim,string(Dim,string等）等）为了提高程序的可读性，在变量名前可加约定的前缀为了提高程序的可读性，在变量名前可加约定的前缀 IntInt、lnglng、
9、sngsng、dbldbl、blnbln、curcur、dtdt、strstr、vntvnt、bytbyt 4.3.2 4.3.2 变量变量/常量的命名规则常量的命名规则例例2:2:DimAAsStringDimBAsString*5A=“VisualBasic”B=“VisualBasic”PrintA,B声明变量的目的声明变量的目的：根据声明的类型决定系统为它分配的存储单元。：根据声明的类型决定系统为它分配的存储单元。例例1:1:DimADimBAsLongDimCAsSingleDimDAsIntegerPublic|Private|Dim|Static变量名变量名AS数据类型数据类型
10、4.3.3 4.3.3 变量变量变量：在程序的运行过程中其值可以变化的量变量：在程序的运行过程中其值可以变化的量等同于：等同于：DimA,BAsLong,CAsSingle,DAsInteger 或或：DimA,B&,C!,D%数值型数值型字符型字符型布尔型布尔型对象型对象型万能型万能型变长字符变量：约20亿个字符定长字符变量：约65400个字符PrivateSubForm_Click()DimaAsInteger,bAsLongDimcAsSingle,dAsDoublea=32769b=327699999Printa,bc=100/3d=200/3Printc,dEndSubPrivate
11、SubForm_Click()DimaAsBoolean,bAsBooleanDime,fAsDatea=Trueb=FalsePrinta,be=#3/1/999:12:02#f=1.5Printe,fEndSub注意注意:(1)(1)在在VBVB中一个汉字与一个西文字符视为一样中一个汉字与一个西文字符视为一样,算一个字算一个字 (2)(2)在窗体和类模块中在窗体和类模块中,不能用不能用PublicPublic定义定长字符串变量定义定长字符串变量例：例：Privatesubcommand1_click()DimiasintegerStaticjasintegeri=i+1j=j+1Print
12、i,jendsub连续连续3次单击次单击command1，分析输出结果分析输出结果生命变量的目的生命变量的目的：根据声明的类型决定分配的存储单元。：根据声明的类型决定分配的存储单元。Public|Private|Dim|Static变量名变量名AS数据类型数据类型 4.3.3 4.3.3 变量变量变量：在程序的运行过程中其值可以变化的量变量：在程序的运行过程中其值可以变化的量Dim与与Static的区别：的区别：区别作用范围作用范围定义方法定义位置局部变量当前过程Dim|Static在过程内窗体/模块变量当前窗体或模块中的所有过程Private|Dim在窗体或模块的声明部分全局变量工程内的所有
13、过程Public在窗体或模块的声明部分是是指使用指使用的的变量未用声明语句进行声明而变量未用声明语句进行声明而直接使用直接使用 未声明直接使用的变量均默认为未声明直接使用的变量均默认为VariantVariant型型 也可在变量名后加一个规定数据类型的说明符加以说明也可在变量名后加一个规定数据类型的说明符加以说明(1)(1)作用：作用：强制显式声明变量。强制显式声明变量。即使用任何一个变量必须即使用任何一个变量必须“先声明先声明,后使用后使用”(2)(2)增加增加Option ExplicitOption Explicit语句的方法：语句的方法：在代码编辑器的通用在代码编辑器的通用/声明部分输
14、入：声明部分输入：Option ExplicitOption Explicit “工具工具|选项选项”-“编辑器编辑器”-选选“要求变量声明要求变量声明”项项例：Dim Str1 As String Str1=计算机程序设计 Str2=计算机程序设计 Str3%123 Print Str1,Str2,Str3 4.3.3 4.3.3 变量变量例：Dim T001 As String T001=计算机程序设计 Print T00l观察该程序段的输出结果结果：无输出结果：格式格式：Public|PrivateConst Const 常量名常量名 As As 类型类型 表达式表达式常数和运算符组成常
15、数和运算符组成 常数值。其数值直接反映了类型常数值。其数值直接反映了类型：在程序中，常量比变量运行速度快在程序中，常量比变量运行速度快常量只能出现在赋值号的右边常量只能出现在赋值号的右边常量常量：在程序运行期间值不能改变的量：在程序运行期间值不能改变的量 应用程序和控件提供的系统定义的常量应用程序和控件提供的系统定义的常量 例：例：vbRedvbRed代表代表“红色红色”等等例如：例如：+120，120，1.2E2，程序设计程序设计 4.3.4 4.3.4 常常 量量 在一行中可放置多个常数说明在一行中可放置多个常数说明,可用逗号分隔可用逗号分隔例：例：Private Const Pi As
16、Single=3.14159,str$=VBPrivate Const Pi As Single=3.14159,str$=VB包括：包括：(乘方乘方)、-(-(负号负号)、/*、(整除整除)MOD)MOD、+-+-表达式表达式:(-5)2+5Mod3包括：包括：+、&表达式表达式:“123123”+“3 3”ABA+B A&B+B A&B“123”“3”“1233”“1233”“123”3 126 “1233”123 3 126 “1233”“123a”3 出错 “123a3”包括包括:,=,=,=,=,Like,Is ,=,Like,Is 表达式表达式:15+23 4:15+23 西文字符
17、西文字符运算结果是运算结果是逻辑逻辑值值=False包括：包括：+-+-、MODMOD、(整除整除)、/*、-(-(负号负号)、(乘方乘方)表达式表达式:(-5)2+5Mod3包括：包括：+、&表达式表达式:“123123”+“3 3”包括包括:,=,=,=,=,Like,Is ,=,Like,Is 包括：包括：And And、OrOr、NotNot、XorXor.表达式表达式:15+234:15+23=265OR(C180andC290andC390)优先级的比较优先级的比较 1.1.几大类比较几大类比较 优先级优先级:高高-低低2.2.算术运算符算术运算符3.3.比较运算符比较运算符4.4
18、.逻辑运算符逻辑运算符算术、算术、连接、比较、逻辑连接、比较、逻辑 ，-，(*/)/)，MODMOD，(+-)(+-)同一级同一级NotNot、And And、OrOr、XorXor、4.4.1 4.4.1 运算符运算符 包含：变量、常量、运算符、函数和小括号包含：变量、常量、运算符、函数和小括号 表达式结果：表达式结果：与数据和运算符有关与数据和运算符有关 乘号不能省略乘号不能省略 括号必须成对出现括号必须成对出现 一个表达式在同一行上书写，没有高低、大小区分一个表达式在同一行上书写，没有高低、大小区分 操作数的数据类型应该符合要求，不同的数据应该转换成操作数的数据类型应该符合要求，不同的数
19、据应该转换成同一类型。同一类型。在算术运算中，如果操作数的数据精度不同，在算术运算中，如果操作数的数据精度不同，VBVB规定运算规定运算结果采用精度较高的数据类型。结果采用精度较高的数据类型。4.4.2 4.4.2 表达式表达式 4.5 4.5 常用内部函数常用内部函数 绝对值：绝对值：Abs(N)Abs(N)e e为底的指数：为底的指数：Exp(N)Exp(N)自然对数自然对数:Log(N):Log(N)产生随机数产生随机数:Rnd(N):Rnd(N)符号函数符号函数:Sgn(N):Sgn(N)平方根平方根:Sqr(N):Sqr(N)三角函数三角函数Sin(N)Sin(N)、Cos(N)Co
20、s(N)、Tan(N):Tan(N):其中的其中的N N必须是弧度值必须是弧度值|-3|-Abs(-3)|-3|-Abs(-3)e e2 2-Exp(2)-Exp(2)Ln(10)Ln(10)-Log(10)-Log(10)Rnd Rnd 产生一个产生一个0 01 1之间的小数之间的小数 求求2.42.4的符号的符号-Sgn(2.4)-Sgn(2.4)（返回（返回1)1)求求1616的平方根的平方根-Sqr(16)-Sqr(16)Sin(30Sin(30o o)-Sin()-Sin()4.5 4.5 常用内部函数常用内部函数 求字串长度求字串长度:Len(C):Len(C)LenB(C)Len
21、B(C)取子串：取子串：Left(C,N)Left(C,N)Right(C,N)Right(C,N)Mid(C,n1,n2)Mid(C,n1,n2)查找子串：查找子串：InStr(N1,C1,C2)InStr(N1,C1,C2)去掉首或尾空格：去掉首或尾空格：LTrim(C)LTrim(C)、RTrim(C)RTrim(C)、Trim(C)Trim(C)生成字串：生成字串：spring(n,spring(n,”字符字符”)生成空格串：生成空格串：space(n)space(n)Left(Left(“计算机基础计算机基础”,2),2)Right(Right(“计算机基础计算机基础”,2,2）Mi
22、d(Mid(“计算机基础计算机基础”,2,2，4)4)Len(Len(“VBVB程序设计程序设计”)LenB(LenB(“VBVB程序设计程序设计”)Str=Str=”AB CDE AB CDE ”LTrim(str)LTrim(str)、RTrim(str)RTrim(str)、Trim(str)Trim(str)InStr(4,InStr(4,”abdbcdefabdbcdef”,”d d”)Spring(6,Spring(6,”A A”)Space(10)Space(10)字符转换成字符转换成ASCIIASCII码：码：Asc(C)Asc(C)ASCII ASCII码转换成字符：码转换成
23、字符：Chr(N)Chr(N)转换成小写字母转换成小写字母:Lcase(C):Lcase(C)转换成大写字母转换成大写字母:Ucase(C):Ucase(C)转换成字符转换成字符:Str(N):Str(N)转换成数字转换成数字:Val(C):Val(C)取整：直接取整、四舍五入取整、取取整：直接取整、四舍五入取整、取N N的最大整数的最大整数 Fix(N)Cint(N)Int(N)Fix(N)Cint(N)Int(N)Fix(3.5)Cint(3.5)Int(3.5)Fix(3.5)Cint(3.5)Int(3.5)4.5 4.5 常用内部函数常用内部函数Asc(Asc(“B B”)-66)-
24、66 Chr(97)Chr(97)-“a a”LCase(Abc)-”abc”UCase(Abc)-ABC”Str(234)-Str(234)-”234”Val(Val(”234”)-)-2343 4 33 4 3-3 -4 -4-3 -4 -4 4.5 4.5 常用内部函数常用内部函数 获取系统当前日期：获取系统当前日期：Date Date 获取系统当前时间获取系统当前时间:Time:Time 获取系统当前日期和时间获取系统当前日期和时间:Now:Now 获取指定日期年、月、日的值获取指定日期年、月、日的值:Year(D):Year(D)、Month(D)Month(D)、Day(D)Day
25、(D)获取指定日期是一个星期的第几天：获取指定日期是一个星期的第几天：Weekday(D,n)Weekday(D,n)如：如：Print datePrint datePrint Time$Print Time$Print NowPrint NowPrint Year(Now),Month(Now),Day(Now)Print Year(Now),Month(Now),Day(Now)Print Weekday(Now,2)Print Weekday(Now,2)日期时间格式符：日期时间格式符：字符串格式符：字符串格式符：和和 ”)、Format(Format(“ABcdABcd”,”字符运算符
26、字符运算符关系运算符关系运算符逻辑运算符逻辑运算符1.1.下列语句运行时系统给出错误提示的是。下列语句运行时系统给出错误提示的是。.Print-32000-769.Print-32000-769.Print.Print“IE2IE2”+8+8.Print.Print“ABAB”&128&128 .Print3=2=4.Print3=2=42.2.下面所列四组数据中，全部是正确的下面所列四组数据中，全部是正确的VBVB常数是常数是 。A.32765,1.34D2,ABCDE,&O1767A.32765,1.34D2,ABCDE,&O1767B.3276,123.56,1.2E-2,#True#B
27、.3276,123.56,1.2E-2,#True#C.&HABCE,02-03-2002,False,D-3C.&HABCE,02-03-2002,False,D-3D.ABCDE,#02-02-2002#,E-2D.ABCDE,#02-02-2002#,E-23.3.运行下面程序，单击命令按钮运行下面程序，单击命令按钮Command1,Command1,则立即窗口上显示的结果是则立即窗口上显示的结果是 。Private Sub Command1_Click()Private Sub Command1_Click()Dim A As Integer,B As Boolean,C As Int
28、eger,D As IntegerDim A As Integer,B As Boolean,C As Integer,D As Integer A=20/3 A=20/3:B=True B=True:C=B C=B:D=A+C D=A+C Debug.Print A,D,Debug.Print A,D,A=A+C A=A+C End Sub End Sub A.7A.7 6 6 False False B.6.6 B.6.6 5.6 5.6 False False C.7 C.7 6 6 A=6 A=6 D.7 D.7 8 8 A=8 A=8 .Print.Print“IE2IE2”+8+8
29、A.32765,1.34D2,ABCDE,&O1767A.32765,1.34D2,ABCDE,&O1767A.7A.7 6 6 False False练练 习习4.4.确表示命题确表示命题“A A是一个带小数的正数，且是一个带小数的正数，且 B B是一个带小数的负数是一个带小数的负数”的的逻辑表达式是逻辑表达式是 。Csng(A)0 And Csng(B)0 And Csng(B)O And AInt(A)And B0 And BInt(B)AO And AInt(A)And B0 And BInt(B)练练 习习5.下列表达式中，值为下列表达式中，值为True的是的是。A.Ucase(“a
30、bcd)=abcdB.14/23Left(ABCD,2)D.Not(Spr(4)-3=-2)6.下面表达式的值为真的是下面表达式的值为真的是。A.Mid(VisualBasic,1,12)=Right(ProgrammingLanguageVisualBasic,12)B.ABCRGabcdeC.Int(134.69)=Cint(134.69)D.78.9/32.77-4.987.7.有变量定义语句有变量定义语句Dim a,b As IntegerDim a,b As Integer，变量变量 a a 的类型和初值是的类型和初值是_。A.Integer,0 A.Integer,0 B.B.Variant,Variant,空值空值 C.String,D.Long,0.0C.String,D.Long,0.0练练 习习人有了知识，就会具备各种分析能力，明辨是非的能力。所以我们要勤恳读书，广泛阅读，古人说“书中自有黄金屋。”通过阅读科技书籍，我们能丰富知识，培养逻辑思维能力；通过阅读文学作品，我们能提高文学鉴赏水平，培养文学情趣；通过阅读报刊，我们能增长见识，扩大自己的知识面。有许多书籍还能培养我们的道德情操，给我们巨大的精神力量，鼓舞我们前进。
