VB语言第2章教案

1、主页主页 常量、变量、函数及表达式常量、变量、函数及表达式是构成是构成VBVB应用程序的基本元素，应用程序的基本元素，也是程序设计的重要基础知识。也是程序设计的重要基础知识。学习和熟悉掌握这些元素，对学习和熟悉掌握这些元素，对以后的程序设计是十分重要的。以后的程序设计是十分重要的。主页主页第第2 2章章 程序设计基础程序设计基础 程序中的大部分实际工作是采用程序代码来处理的程序中的大部分实际工作是采用程序代码来处理的 任何一门程序设计语言都有一套严格的编程规定任何一门程序设计语言都有一套严格的编程规定 本章主要内容本章主要内容 退出退出数据类型数据类型常量与变量常量与变量表达式表达式常用内部函

2、数常用内部函数主页主页 2.1 2.1 数据类型数据类型 在使用计算机来处理数据时，会遇到各种不同类型的数据。在使用计算机来处理数据时，会遇到各种不同类型的数据。例如，一个人的姓名是由一串文本例如，一个人的姓名是由一串文本( (字符字符) )组成，成绩、年龄和体组成，成绩、年龄和体重都是一个数值，而是否大学毕业则是一个逻辑值，等等。重都是一个数值，而是否大学毕业则是一个逻辑值，等等。 为了更好地处理各种各样的数据，为了更好地处理各种各样的数据，VBVB定义了多种数据类型定义了多种数据类型 数值型数值型 数据类型数据类型 字符型字符型 逻辑型逻辑型 日期型日期型 对象型对象型 变体型变体型整数整

3、数: 整型整型/长整型长整型字节型字节型浮点型浮点型: 单单/双精度双精度货币型货币型主页主页 1.1.数值型数据数值型数据 (1) (1) 整型整型(Integer)(Integer)和长整型和长整型(Long)(Long) 不带小数部分的数，表示正整数、负整数和零不带小数部分的数，表示正整数、负整数和零 整型数整型数: : -32768-327683276732767 长整型数：长整型数：-2147483648-214748364821474836472147483647 (2) (2) 字节型字节型(Byte)(Byte) 字节型数可以表示无符号的整数字节型数可以表示无符号的整数 0 0

4、255255(3) (3) 单精度型单精度型(Single)(Single)和双精度型和双精度型(Double)(Double) 浮点数。表示带有小数部分的数浮点数。表示带有小数部分的数 表示数的范围大，但有误差。表示数的范围大，但有误差。 如超出某个表示范围，则用科学记数法如超出某个表示范围，则用科学记数法 例如：例如：4.53E8(4.534.53E8(4.5310108 8) )，8.173E-148.173E-14，3.14D233.14D23(4) (4) 货币型货币型(Currency)(Currency) 专门为处理货币而设计的数据类型专门为处理货币而设计的数据类型 它可最多保留

5、小数点右边它可最多保留小数点右边4 4位和小数点左边位和小数点左边1515位位主页主页 2. 2. 字符型数据字符型数据 字符型是用双引号括起来的一串字符。字符型是用双引号括起来的一串字符。 例如例如: “Canton”、”1+2=?”、”GoodMorning”等等 “”称为起止界限符。称为起止界限符。 字符串长度。字符串长度。 分为分为: : 变长字符串变长字符串( (长度不固定长度不固定) ) 定长字符串定长字符串( (长度固定长度固定) ) 例如：例如： Dim a As String a是是不定长字符串不定长字符串 Dim b As String*4 b是是定长字符串定长字符串(4个

6、字符个字符) a = “VB” a的值为的值为2个字符个字符“VB” a = “Visual Basic” a的值为的值为12个字符个字符“Visual Basic” b = “VB ” b的值为的值为4个字符个字符“VB ” (后面有后面有2个空格个空格) b = “Visual Basic” b的值为的值为4个字符个字符“Visu” 主页主页其他类型数据其他类型数据 3. 布尔布尔(逻辑逻辑)型数据：只有型数据：只有True(真真)和和False(假假)两个值两个值 4. 日期型数据：用两个日期型数据：用两个“#”符号把日期和时间的值括起来符号把日期和时间的值括起来 如：如：#08/20/

7、2001#、#2001-08-20# 5. 变体型变体型(Variant)数据：是一种可变的数据类型，可以存放任数据：是一种可变的数据类型，可以存放任何类型的数据，何类型的数据，VB会自动完成必要的转换会自动完成必要的转换 不特别说明时，不特别说明时，VB会自动将该变量默认为会自动将该变量默认为Variant型变量型变量 例：例： Temp=“22” 字符串字符串 Temp=Temp-1 数值数值 Temp=#01/01/2002# 日期日期主页主页 2.2 2.2 常量与变量常量与变量 2.2.1 2.2.1 常量常量 在程序运行期间其值始终保持不变的量在程序运行期间其值始终保持不变的量 直

8、接常量直接常量：在程序代码中直接给出的数据。：在程序代码中直接给出的数据。 例如：例如：123，-263， ”Visual Basic” ， ”12.57”等等 符号常量：符号常量：在程序中用符号表示的常量。在程序中用符号表示的常量。 格式：格式： PublicPrivate Const 常量名常量名 As 数据类型数据类型=表达式表达式 例如：例如： Const PI=3.14159 As Single主页主页 2.2.2 2.2.2 变量变量 变量是在程序运行期间其值可以发生变化的量。变量是在程序运行期间其值可以发生变化的量。 1. 变量的命名规则变量的命名规则 应遵守一些规则应遵守一些规

9、则（P30） 2. 变量的声明变量的声明 用用Dim、Public、Private或或Static语句来声明变量语句来声明变量 例如：例如：Dim sum As Integer 把把sum定义为整型变量定义为整型变量 sum = 3 3. 隐式声明隐式声明 不加说明就直接使用变量，此时默认的变量类型为变体型不加说明就直接使用变量，此时默认的变量类型为变体型 例如：例如： sum = 3主页主页 (1) “值可变值可变”：当将某个数据存放到一个变量时，就把变量：当将某个数据存放到一个变量时，就把变量中原有的值中原有的值“冲冲”掉，换成新的值。掉，换成新的值。 例如，以下例如，以下2个赋值语句：个

10、赋值语句： a = 3 a = 8 同一变量在不同时刻可以取不同的值同一变量在不同时刻可以取不同的值 (2)“取之不尽取之不尽”：在运算过程中，如果没有改变该变量的值，：在运算过程中，如果没有改变该变量的值，那么，不管使用变量的值进行多少次运算，其值始终保持不变。那么，不管使用变量的值进行多少次运算，其值始终保持不变。 例如例如 x = 5 a = 3 + x x的值始终保持为的值始终保持为5 b = x*x 4*x 4. 4.变量的两个重要特点变量的两个重要特点主页主页 五类表达式：五类表达式：算术表达式算术表达式、字符串表达式字符串表达式、日期表达式日期表达式、关关系表达式系表达式和和逻辑

11、表达式逻辑表达式 1. 算术表达式：算术表达式： 运算符及其优先级：运算符及其优先级： (乘方乘方) -(求负求负) */ Mod +- 示例：示例：5*x10 + x/6 x(1/3) 15 Mod 6 2. 字符串表达式：字符串表达式：运算符有两个：运算符有两个：&和和+ ”计算机计算机” & ”网络网络” 结果为结果为 ”计算机网络计算机网络” 3. 日期表达式日期表达式： #8/8/2001# - #6/3/2001# 结果为结果为 66 #12/1/2000# - 32 结果为结果为 #10/30/2000# 2.3 2.3 表达式表达式结果？结果？主页主页例例2.1 计算计算 2

12、+ 3.2 2 + 3.2 * * 4 Mod 17.52 4.32 / 2 4 Mod 17.52 4.32 / 2 的值的值 根据运算符的优先级，该表达式的计算步骤如下：根据运算符的优先级，该表达式的计算步骤如下： 计算乘除，得到：计算乘除，得到： 2 + 12.8 Mod 17.522.162 + 12.8 Mod 17.522.16 计算整除（计算整除（ ），得到：），得到： 2 + 12.8 Mod 92 + 12.8 Mod 9 （17.5217.52和和2.162.16两数先四舍五入为两数先四舍五入为1818和和2 2） 求余运算（求余运算（ModMod），得到：），得到： 2

13、+ 42 + 4 （12.812.8先四舍五入为先四舍五入为1313）。）。 求和运算，得到表达式的最后结果为：求和运算，得到表达式的最后结果为： 6 6主页主页 1 + 2 * 14 Mod 17 6 / 2 = ？ 求出下列表达式的值求出下列表达式的值想一想想一想 1. 按运算符的优先级分成若干运算步骤按运算符的优先级分成若干运算步骤 先乘除，再整除先乘除，再整除 和求和求Mod，后加运算，后加运算 2. 根据运算符的运算功能求出各步骤的结果根据运算符的运算功能求出各步骤的结果 1 + 28 Mod 5 结果为结果为 4主页主页 内部函数是由内部函数是由VB系统提供系统提供 函数调用的一般

14、格式为：函数调用的一般格式为： 函数名函数名(参数参数1，参数，参数2，) 返回函数值返回函数值 例如：例如： y=Sqr(x)y=Sqr(x) Sqr是内部函数名，是内部函数名，x为参数，运行时该语句调用内部函为参数，运行时该语句调用内部函数数Sqr来求来求x的平方根，其计算结果由系统返回给变量的平方根，其计算结果由系统返回给变量y VB的内部函数大体上分为四大类：数学函数，字符串函的内部函数大体上分为四大类：数学函数，字符串函数，日期与时间函数和转换函数。数，日期与时间函数和转换函数。2.4 2.4 常用内部函数常用内部函数主页主页 说明说明： 函数函数Int(x)是求小于或等于是求小于或

15、等于x的最大整数。的最大整数。 例如例如 Int(2)=2, Int(-2.5)=-3, Int(-3)=-3 利用利用Int函数可以对数据进行四舍五入。例如，对一个正数函数可以对数据进行四舍五入。例如，对一个正数x舍舍去小数位时进行四舍五入，可采用如下式子：去小数位时进行四舍五入，可采用如下式子： Int(x+0.5)Int(x+0.5) 当当x=9.4x=9.4时，时，Int(9.4 + 0.5)=9Int(9.4 + 0.5)=9 当当x=9.5x=9.5时，时，Int(9.5 + 0.5)=10Int(9.5 + 0.5)=102.4.1 2.4.1 数学函数数学函数 主页主页 随机函

16、数随机函数Rnd可以模拟自然界中各种随机现象。它可产生可以模拟自然界中各种随机现象。它可产生一个一个(0,1)的随机数。在的随机数。在VB中，有一个称为中，有一个称为随机数生成器随机数生成器的随机的随机数生成程序，能产生一个随机数序列，用户每次调用数生成程序，能产生一个随机数序列，用户每次调用Rnd即可得即可得到这个随机数序列中的一个。到这个随机数序列中的一个。 使用使用Randomize语句可以为语句可以为随机数生成器随机数生成器指定不同的初值指定不同的初值或者称为随机数序列的或者称为随机数序列的“种子种子”，这样可以得到不同的随机数，这样可以得到不同的随机数序列。序列。 Rnd通常与通常与

17、Int函数配合使用函数配合使用 生成生成a, b区间范围内的随机整数，可以采用区间范围内的随机整数，可以采用 Int(b-a+1)*Rnd + a) 例如例如 Int(4*Rnd+1)可以产生可以产生14之间之间(含含1和和4)的随机整数。的随机整数。可以是可以是1，2，3或或4，这由，这由VB运行时随机给定。运行时随机给定。主页主页 编写的窗体单击事件过程代码如下：编写的窗体单击事件过程代码如下： Private Sub Form_Click()Private Sub Form_Click() Dim a As Single, b As Single, c As Single Dim a A

18、s Single, b As Single, c As Single a = 6 a = 6 b = 9 b = 9 c = Sqr(a c = Sqr(a * * a + b a + b * * b) b) Print c = ; c Print c = ; c End Sub End Sub 运行程序后单击窗体，输出结果是：运行程序后单击窗体，输出结果是： c=10.8166522ba 例例2.2 已知已知a=6，b=9，计算，计算c = 例例2.222ba 主页主页编写的窗体单击事件过程代码如下：编写的窗体单击事件过程代码如下： Private Sub Form_Click() Dim

19、a As Integer, b As Integer, c As Integer Randomize 初始化随机数生成器初始化随机数生成器 a = Int(90 * Rnd + 10) 产生产生10,99区间内的随机整数区间内的随机整数 b = Int(90 * Rnd + 10) c = a + b 求两数之和求两数之和 Print 产生的两个随机数产生的两个随机数: ; a, b Print 和数和数: ; c End Sub运行程序后单击窗体，输出结果是：运行程序后单击窗体，输出结果是： 产生的两个随机数：产生的两个随机数：56 71 和数：和数：127例例2.3 通过随机函数产生通过随

20、机函数产生2个两位正整数，求这个两位正整数，求这2个数个数 之和并显示出来之和并显示出来 再次运行程序，单击窗体后再次运行程序，单击窗体后输出另一组结果是：输出另一组结果是： 产生的两个随机数：产生的两个随机数：18 37 和数：和数：55例例2.3主页主页 用于进行字符串处理用于进行字符串处理 说明：说明：(1) 函数函数Mid(字符串，字符串，p，n) 从第从第P个开始取个开始取n个字符个字符 示例：示例：Mid(“ABCDEG”,3,2) 的结果为的结果为 ”CD” 若省略若省略n，则得到的是从，则得到的是从P开始的往后所有字符，如开始的往后所有字符，如 Mid(“ABCDE”，2) 的

21、结果为的结果为 “BCDE” (2) (2) 函数函数Instr(f,Instr(f,串串1,1,串串2,k)2,k) 查找查找串串2在在串串1中的位置中的位置 f f 和和 k k 均为可选参数，均为可选参数，f f表示开始搜索的位置表示开始搜索的位置( (默认值为默认值为1)1)，k k表示比较方式，若表示比较方式，若k k为为0(0(默认默认) )，表示区分大小写；若，表示区分大小写；若k k为为1 1，则不，则不分大小写。分大小写。 例如例如 Instr(3, Instr(3, ”A12a34A56A12a34A56”, ”A A”) ) 的结果为的结果为 7 7 Instr(3, I

22、nstr(3, ”A12a34A56A12a34A56”, , ”A A”, 1), 1) 的结果为的结果为 4 4 Instr(Instr(”A12a34A56A12a34A56”, ”A A”) ) 的结果为的结果为 1 1 (3) (3)函数函数LeftLeft(字符串，字符串，n) 取左边取左边n个字符个字符 示例示例: : Left(Left(”ABCDEABCDE” ，2)2) 的结果为的结果为 ”ABAB”字符串函数字符串函数主页主页 先从字符串先从字符串a a中找出某个指定字符中找出某个指定字符( (本例为空格本例为空格) )，再以此字符，再以此字符为界拆分成两个字符串。编写的

23、窗体单击过程代码如下：为界拆分成两个字符串。编写的窗体单击过程代码如下：Private Sub Form_Click()Private Sub Form_Click() Dim a As String, b As String, c As String, n As Integer Dim a As String, b As String, c As String, n As Integer a = Visual a = VisualBasic Basic 表示空格表示空格 n = InStr(a, n = InStr(a, ) ) 查找空格位置查找空格位置 b = Left(a, n - 1)

24、 b = Left(a, n - 1) 取左边部分取左边部分 c = Mid(a, n + 1) c = Mid(a, n + 1) 取右边部分也可采用取右边部分也可采用 Right(a,Len(a)-n )Right(a,Len(a)-n ) Print b Print b 显示左边部分显示左边部分 Print c Print c 显示右边部分显示右边部分 End SubEnd Sub 程序运行后单击窗体，输出结果是：程序运行后单击窗体，输出结果是： VisualVisual Basic Basic例例2.42.4 使用字符串函数示例使用字符串函数示例例例2.4 处理方法处理方法 Visua

25、lBasic 先先查找查找 空格位置空格位置取右边部分取右边部分取左边部分取左边部分主页主页 日期日期/时间函数用于进行日期和时间处理时间函数用于进行日期和时间处理 例如：例如： 函数函数Date返回系统日期，如返回日期为返回系统日期，如返回日期为 #11/03/2001# 函数函数Time返回系统时间，如返回时间为返回系统时间，如返回时间为 #7:03:28#2.4.3 2.4.3 日期与时间函数日期与时间函数主页主页 转换函数用于数据类型的转换转换函数用于数据类型的转换 说明：说明：Val函数将数字字符串转换为数值型数字时，会自动将字符串中函数将数字字符串转换为数值型数字时，会自动将字符串

26、中的空格去掉，并依据字符串中排列在前面的数值常量来定值，例如：的空格去掉，并依据字符串中排列在前面的数值常量来定值，例如： Val(12A12) 的值为的值为 12 Val(1.2e2) 的值为的值为 120 Val(A12) 的值为的值为 0 使用转换函数的示例使用转换函数的示例 Private Sub Form_Click() x = 123 y = 123 a = Chr(Asc(x) + 5) b = Str(Val(x) + 5) c = Val(Str(y) + 5) Print a,b, c End Sub 运行程序后单击窗体，输出结果是什么运行程序后单击窗体，输出结果是什么 ?

27、 ? 2.4.4 2.4.4 类型转换函数类型转换函数想一想想一想6 128 1235转换函数例转换函数例主页主页 在编写程序代码时，要遵守一定的规则。不能超越其规在编写程序代码时，要遵守一定的规则。不能超越其规定来自由发挥。定来自由发挥。 (1) 一行写多条语句一行写多条语句。冒号分隔。冒号分隔 Sum=Sum+x : Count=Count+1 (2) 一条语句写成多行一条语句写成多行 使用续行符使用续行符(一个空格后面跟随一个下划线一个空格后面跟随一个下划线“_”)，将长，将长语句分成多行。例如：语句分成多行。例如： Print Text1.Text & Text2.Text & Text4.Text _