江苏省计算机VB二级配套(PPT)（课堂PPT）

1、3.1 3.1 程序代码的组织方式程序代码的组织方式3.2 3.2 代码的书写规则代码的书写规则3.3 VB3.3 VB的数据类型的数据类型3.4 3.4 运算符与表达式运算符与表达式3.5 VB3.5 VB的公共函数的公共函数23 过程：具有特定书写格式、包含若干可被作为一个整体执行的代码行的组合。 根据执行的方式： 事件过程 通用过程4 为窗体及窗体上的各种对象编写的用来响应由用户或系统引发的各种事件的代码行就是“事件过程” 当指定的事件发生时，该过程即会被激活执行。 私有（private）5 一个应用程序中的多个窗体共享一些代码，或一个窗体内不同的事件过程可以共享一些代码。这些被共享的代

2、码构成的过程称为“通用过程” 公有的（ public）6 用于将不同类型过程代码组织到一起而提供的一种结构 窗体模块 标准模块 类模块7 应用程序中每个窗体都有一个相对应的窗体模块。 包含用于处理发生在窗体中的各个对象的事件过程，而且包含有窗体及窗体中各个控件对象的属性设置以及相关的说明。8 被多个应用程序中多个窗体共享的代码，组织到“标准模块”。 保存的是通用过程。9 包含用于创建新的对象类的属性、方法的定义等。10语句是组成语句是组成VBVB程序的最基本成分。程序的最基本成分。 语句体语句体 规定语句的功能； 有些语句没有该部分 提供具体说明或具体操作例如：Dim a as Integer

3、 a20一条语句作用一条语句作用: :向系统提供必要的信息或规定系统执行某些操作。向系统提供必要的信息或规定系统执行某些操作。1) 代码不区分字母的大小写，如：代码不区分字母的大小写，如：Ab Ab 与与ABAB等效；等效；2)2) 系统对用户程序代码进行自动转换；系统对用户程序代码进行自动转换； 对于关键字，首字母被转换成大写，其余转换成小写对于关键字，首字母被转换成大写，其余转换成小写 对于用户定义的变量、过程名，以首次定义为准进行转换对于用户定义的变量、过程名，以首次定义为准进行转换11 (1) (1) 续行：（续行：（空格空格下划线字符下划线字符“_ _”)”) (2) (2) 同一行

4、上书写多条语句，语句间用冒号同一行上书写多条语句，语句间用冒号“：”分隔分隔 (3) (3) 一行允许多达一行允许多达10231023个字符个字符 (4) (4) 注释行注释行 以 Rem开头，注释整行 ； 以注释符“”引导 注释内容从注释符开始直到该行结束 利用“编辑”工具栏的 “设置注释块”、“解除注释块”来 设置/取消多行注释。例如：例如： Form1.Print Form1.Print 学好学好VBVB 要多学多练要多学多练 Form1.Hide Form1.Hide Form2.Show Form2.Show Form1.Hide Form1.Hide 将将Form1Form1隐藏隐

5、藏 Print Print F, F, 17171213 整整 长整长整 单精度单精度 双精度双精度 货币型货币型 字节型字节型Integer; Long ; Single; Double; Currency; Byte整型整型(占2字节) 表数范围：-215-1 215-1，即32768 32767 表示形式： n 或n% %：长整型长整型(占4字节) 表数范围：-231-1 231-1 表示形式：n& & 例如：-120，120 &，120， 120%， 43210，-12345678 &：字节型(占1字节) 表数范围：0255（无符号）14 整整 长整长整

6、 单精度单精度 双精度双精度 货币型货币型 字节型字节型Integer; Long ; Single; Double; Currency; Byte单精度单精度(4字节字节)- 7个有效位 表示形式：带小数点数 用指数(E)表示 数字后面加“！”：双精度双精度(8字节字节) - 15个有效位 表示形式：用指数(D)表示 数字后面加“# ”例：例： -1E2 ，1.2E2 120.0 ，120！ +12345678.例：例： -1D2 ，1.2D2 120# Currency ：货币型货币型(8字节字节) -19个有效位 表示形式：数字后面加“ ”例：例：12015Integer; Long ;

7、 Single; Double; Currency; Byte占占2 2个字节，只有两个值个字节，只有两个值True (-1)True (-1)False ( 0)False ( 0)表示形式：用双引号括起来或变量名后加表示形式：用双引号括起来或变量名后加“$”$”如：如：“Basic”Basic”、“1234”1234”注意：注意： 与与 的区别的区别 字符串字符串123abc的表示：的表示： 123abc 123abc 16Integer; Long ; Single; Double; Currency; Byte: :-占用占用8 8个字节个字节 表示形式：用用# #号括起来号括起来 如

8、：# #2-14-04 6:10:002-14-04 6:10:00# # 或或以数字表示以数字表示 如：如：2.52.5表示日期以1899年12月30日为基点表示时间用于逻辑判断用于逻辑判断, ,只有两个值只有两个值True (-1)True (-1)False ( 0)False ( 0)表示形式：用双引号括起来或变量名后加表示形式：用双引号括起来或变量名后加“$”$”: :万能型万能型 是一种通用的、可变的数据类型是一种通用的、可变的数据类型 隐含变量的类型隐含变量的类型用于保存任何对象的引用用于保存任何对象的引用17 举例举例: re, my data, re.er,8re,: re,

9、 my data, re.er,8re,工资工资,Integer,Integer intSum intSum 引例引例：解方程解方程 3x3x2 2+25x+11=0+25x+11=0 设：设：a=3,b=25,c=11a=3,b=25,c=11，则上述方程变为，则上述方程变为axax2 2+bx+c=0+bx+c=0 规则规则： 变量或常量名必须以变量或常量名必须以字母或汉字开头；字母或汉字开头； 由字母、汉字、数字、下划线组成；由字母、汉字、数字、下划线组成； 长度不超过长度不超过255255个字符；个字符； 在在VBVB中中变量名的字母不区分大小写；变量名的字母不区分大小写； 不要与关键

10、字同名不要与关键字同名(Dim,string(Dim,string等）等） 为了提高程序的可读性，在变量名可加前一约定的前缀为了提高程序的可读性，在变量名可加前一约定的前缀 IntInt、lnglng、sngsng、dbldbl、blnbln、curcur、dtdt、strstr、vntvnt、bytbyt18例例2:2: Dim A As String Dim B As String * 5 A=“Visual Basic” B=“Visual Basic” Print A , B声明变量的目的：根据声明的类型决定系统为它分配的存储单元。声明变量的目的：根据声明的类型决定系统为它分配的存储单

11、元。 例例1:1: Dim A Dim B As Long Dim C As Single Dim D As Integer Public|Private|Dim|Static 变量名变量名 AS 数据类型数据类型变量：在程序的运行过程中其值可以变化的量变量：在程序的运行过程中其值可以变化的量等同于：等同于： Dim A, B As Long , C As Single , D As Integer 或或 ： Dim A, B& , C! , D % 数值型数值型字符型字符型布尔型布尔型对象型对象型万能型万能型变长字符变量：约20亿个字符定长字符变量：约65400个字符Private

12、Sub Form_Click() Dim a As Integer, b As Long Dim c As Single, Dim d As Double a = 327699999 b = 327699999 Print a, b c = 100 / 3 d = 200/ 3 Print c, dEnd SubPrivate Sub Form_Click() Dim a As Boolean, b As Boolean Dim e, f As Date a = True b = False Print a, b e = #3/1/99 9:12:02 # f = 1.5 Print e, f

13、End Sub注意注意: : (1)(1)在在VBVB中一个汉字与一个西文字符视为一样中一个汉字与一个西文字符视为一样, ,算一个字算一个字 (2)(2)在窗体和类模块中在窗体和类模块中, ,不能用不能用PublicPublic定义定长字符串变量定义定长字符串变量19例：例：Private sub command1_click() Dim i as integer Static j as integer i=i+1 j=j+1 Print i,jend sub连续连续3次单击次单击command1 ，分析输出结果分析输出结果生命变量的目的：根据声明的类型决定分配的存储单元。生命变量的目的：根据

14、声明的类型决定分配的存储单元。 Public|Private|Dim|Static 变量名变量名 AS 数据类型数据类型变量：在程序的运行过程中其值可以变化的量变量：在程序的运行过程中其值可以变化的量 Dim与与Static的区别：的区别：区别作用范围作用范围定义方法定义位置局部变量当前过程Dim|Static在过程内窗体/模块变量当前窗体或模块中的所有过程Private|Dim在窗体或模块的声明部分全局变量工程内的所有过程Public在窗体或模块的声明部分20是是指使用指使用的的变量未用声明语句进行声明而变量未用声明语句进行声明而直接使用直接使用 未声明直接使用的变量均默认为未声明直接使用的

15、变量均默认为VariantVariant型型 也可在变量名后加一个规定数据类型的说明符加以说明也可在变量名后加一个规定数据类型的说明符加以说明(1)(1)作用：作用：强制显式声明变量。强制显式声明变量。 即使用任何一个变量必须即使用任何一个变量必须“先声明先声明, ,后使用后使用”(2)(2)增加增加Option ExplicitOption Explicit语句的方法：语句的方法： 在代码编辑器的通用在代码编辑器的通用/ /声明部分输入：声明部分输入：Option ExplicitOption Explicit “ “工具工具| |选项选项”-“-“编辑器编辑器”-选选“要求变量声明要求变量

16、声明”项项 例：Dim Str1 As String Str1 = 计算机程序设计 Str2 = 计算机程序设计 Str3% 123 Print Str1, Str2, Str3例：Dim T001 As String T001 = 计算机程序设计 Print T00l观察该程序段的输出结果结果：无输出结果21： 格式格式：Public|PrivateConst Const 常量名常量名 As As 类型类型 表达式表达式常数和运算符组成常数和运算符组成 常数值。其数值直接反映了类型常数值。其数值直接反映了类型： 在程序中，常量比变量运行速度快在程序中，常量比变量运行速度快 常量只能出现在赋值

17、号的右边常量只能出现在赋值号的右边常量常量：在程序运行期间值不能改变的量：在程序运行期间值不能改变的量 应用程序和控件提供的系统定义的常量应用程序和控件提供的系统定义的常量 例：例：vbRedvbRed代表代表“红色红色”等等例如：例如：+120，120 ，1.2E2， 程序设计程序设计 在一行中可放置多个常数说明在一行中可放置多个常数说明, ,可用逗号分隔可用逗号分隔例：例：Private Const Pi As Single = 3.14159, str$ = VBPrivate Const Pi As Single = 3.14159, str$ = VB2223包括：包括：(乘方乘方)

18、 )、-(-(负号负号) )、/ / * * 、(整除整除) MOD) MOD、+ -+ -表达式表达式: : (-5) 2 + 5 Mod 3包括：包括：+ + 、 & &表达式表达式: :“123123”+ +“3 3” A B A+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 西文字

19、符西文字符运算结果是运算结果是逻辑逻辑值值=False24包括：包括：+ - + - 、MODMOD、(整除整除) )、/ / * * 、-(-(负号负号) )、(乘方乘方) ) 表达式表达式: : (-5) 2 + 5 Mod 3包括：包括：+ + 、 & &表达式表达式: :“123123”+ +“3 3”包括包括: , = , , = ,= , , =,Like,Is , =,Like,Is 包括：包括：And And 、OrOr、NotNot、XorXor. .表达式表达式: 15+234: 15+23=265 OR (C180 and C290 and C390)25

20、优先级的比较优先级的比较 1.1.几大类比较几大类比较 优先级优先级: 高高-低低2.2.算术运算符算术运算符3.3.比较运算符比较运算符4.4.逻辑运算符逻辑运算符算术、算术、 连接、比较、逻辑连接、比较、逻辑 ，- - ，( (* * /) /)， ，MODMOD，(+ -)(+ -)同一级同一级NotNot、 And And 、OrOr、XorXor、26 包含：变量、常量、运算符、函数和小括号包含：变量、常量、运算符、函数和小括号 表达式结果：表达式结果： 与数据和运算符有关与数据和运算符有关 乘号不能省略乘号不能省略 括号必须成对出现括号必须成对出现 一个表达式在同一行上书写，没有高

21、低、大小区分一个表达式在同一行上书写，没有高低、大小区分 操作数的数据类型应该符合要求，不同的数据应该转换成操作数的数据类型应该符合要求，不同的数据应该转换成同一类型。同一类型。 在算术运算中，如果操作数的数据精度不同，在算术运算中，如果操作数的数据精度不同，VBVB规定运算规定运算结果采用精度较高的数据类型。结果采用精度较高的数据类型。27 绝对值：绝对值： Abs(N) Abs(N) e e为底的指数：为底的指数：Exp(N)Exp(N) 自然对数自然对数: Log(N): Log(N) 产生随机数产生随机数: Rnd(N): Rnd(N) 符号函数符号函数: Sgn(N) : Sgn(N

22、) 平方根平方根: Sqr(N): Sqr(N) 三角函数三角函数Sin(N)Sin(N)、Cos(N)Cos(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

23、(30o o) -Sin(3.14/6) -Sin(3.14/6)28 求字串长度求字串长度: Len(C): Len(C) LenB(C) LenB(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,”字符字符”)

24、 ) 生成空格串：生成空格串：space(n)space(n) Left( Left(“计算机基础计算机基础”,2),2) Right ( Right (“计算机基础计算机基础”,2,2） Mid ( Mid (“计算机基础计算机基础”,2,2，4) 4) Len(“VBLen(“VB程序设计程序设计”) ) LenB (“VBLenB (“VB程序设计程序设计”) )Str=” AB CDE ” Str=” AB CDE ” LTrim (str)LTrim (str)、RTrim(str)RTrim(str)、Trim(str)Trim(str)InStr(4,”InStr(4,”abdb

25、cdefabdbcdef”,”d”)”,”d”)Spring(6,”A”)Spring(6,”A”)Space(10)Space(10)29 字符转换成字符转换成ASCIIASCII码：码：Asc(C) Asc(C) ASCII ASCII码转换成字符：码转换成字符：Chr(N)Chr(N) 转换成小写字母转换成小写字母: Lcase(C): Lcase(C) 转换成大写字母转换成大写字母: Ucase(C): Ucase(C) 转换成字符转换成字符: Str(N) : Str(N) 转换成数字转换成数字: Val(C): Val(C) 取整：直接取整、四舍五入取整、取取整：直接取整、四舍五入

26、取整、取NN的最大整数的最大整数 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)Asc(“B”) - 66 Asc(“B”) - 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 -430 获取系统当前日期：

27、获取系统当前日期：Date Date 获取系统当前时间获取系统当前时间: Time: Time 获取系统当前日期和时间获取系统当前日期和时间: Now: Now 获取指定日期年、月、日的值获取指定日期年、月、日的值:Year(D):Year(D)、Month(D)Month(D)、Day(D)Day(D) 获取指定日期是一个星期的第几天：获取指定日期是一个星期的第几天：Weekday(D,n) Weekday(D,n) 如：如：Print datePrint datePrint Time$Print Time$Print NowPrint NowPrint Year(Now),Month(No

28、w),Day(Now)Print Year(Now),Month(Now),Day(Now) Print Weekday(Now,2) Print Weekday(Now,2)31 日期时间格式符：日期时间格式符： 字符串格式符：字符串格式符： 和和 ”) )、 Format( Format(“ABcdABcd”, ,” 字符运算符字符运算符 关系运算符关系运算符逻辑运算符逻辑运算符331.1.下列语句运行时系统给出错误提示的是。下列语句运行时系统给出错误提示的是。.Print-320-769 .Print-320-769 .Print“IE2”+8.Print“IE2”+8.Print“AB

29、”&128.Print“AB”&128 .Print3=2=4.Print3=2=42.2.下面所列四组数据中，全部是正确的下面所列四组数据中，全部是正确的VBVB常数是常数是 。A.32768,1.34D2,ABCDE,&O1767A.32768,1.34D2,ABCDE,&O1767B.3276,123.56,1.2E-2,#True#B.3276,123.56,1.2E-2,#True#C.&HABCE,02-03-2002,False,D-3 C.&HABCE,02-03-2002,False,D-3 D.ABCDE,#02-02-200

30、2#,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 Integer,D As IntegerDim A As Integer,B As Boolean,C As Integer,D As Integer A=20/3 : B=True : C=B : D=A+

31、C A=20/3 : B=True : C=B : D=A+C Debug. Print A, D, A=A + C Debug. Print A, D, A=A + C End Sub End Sub A. 7 6 FalseA. 7 6 False B. 6.6 5.6 False C. 7 6 A=6 D. 7 B. 6.6 5.6 False C. 7 6 A=6 D. 7 8 A=88 A=8 .Print“IE2”+8.Print“IE2”+8A.32768,1.34D2,ABCDE,&O1767A.32768,1.34D2,ABCDE,&O1767A. 7 6 F

32、alseA. 7 6 False344.4.确表示命题确表示命题“A A是一个带小数的正数，且是一个带小数的正数，且 B B是一个带小数的负数是一个带小数的负数”的的逻辑表达式是逻辑表达式是 。5.5.在窗体模块的通用声明处有如下语句，会产生错误的语句是在窗体模块的通用声明处有如下语句，会产生错误的语句是 _(1) Const A As Integer=25(1) Const A As Integer=25(2) Public St As String(2) Public St As String* *8 8(3) Redim B(3) As Integer(3) Redim B(3) As

33、Integer(4) Dim Const X As Integer=10(4) Dim Const X As Integer=10 A. (1)(2) B.(1)(3) C.(1)(2)(3) D.(2)(3)(4) A. (1)(2) B.(1)(3) C.(1)(2)(3) D.(2)(3)(4)6.6.以下有关变量作用域的说法中以下有关变量作用域的说法中 ，正确的是，正确的是_2424_。A. A. 只有在标准模块中用只有在标准模块中用PublicPublic语句说明的变量才是全局变量语句说明的变量才是全局变量B. B. 在过程中不能使用在过程中不能使用PublicPublic语句说明全局变量语句说明全局变量C. C. 在标准模块的通用声明处可用在标准模块的通用声明