VB第2章电子讲稿

1、学习程序设计学习程序设计 的基本方法：的基本方法： 多练多练 模仿模仿 第第2 2章章 程序设计基础程序设计基础 程序中的大部分实际工作是采用程序代码来处理的程序中的大部分实际工作是采用程序代码来处理的 任何一个程序设计语言都有一套严格的编程规定任何一个程序设计语言都有一套严格的编程规定 本章主要内容本章主要内容 数据类型数据类型 常量与变量常量与变量 表达式表达式 常用内部函数常用内部函数 程序代码编写规则程序代码编写规则 2.1 2.1 数据类型数据类型 数据是程序处理的对象。为了更好地处理各种各样的数据，数据是程序处理的对象。为了更好地处理各种各样的数据， VB定义了多种数据类型定义了多

2、种数据类型 数值型数值型 数据类型数据类型 字符型字符型 逻辑型逻辑型 日期型日期型 对象型对象型 变体型变体型 整数整数: 整型整型/长整型长整型 字节型字节型 浮点型浮点型: 单单/双精度双精度 货币型货币型 1. 1. 整型整型(Integer)(Integer)和长整型和长整型(Long)(Long) 不带小数部分的数，表示正整数、负整数和零不带小数部分的数，表示正整数、负整数和零 整型数整型数: : -32768-327683276732767 长整型数：长整型数：-2147483648-214748364821474836472147483647 2. 2. 字节型字节型(Byte

3、)(Byte) 字节型数可以表示无符号的整数字节型数可以表示无符号的整数 0 0255255 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)

4、 专门为处理货币而设计的数据类型专门为处理货币而设计的数据类型 它可最多保留小数点右边它可最多保留小数点右边4 4位和小数点左边位和小数点左边1515位位 5. 字符型字符型(String) 用双引号括起来的一串字符。用双引号括起来的一串字符。 例如，例如，“Canton”、”1+2=?”、”GoodMorning”等等 “”称为起止界限符。称为起止界限符。 字符串长度。分变长字符串字符串长度。分变长字符串(长度不固定长度不固定)和定长字符串和定长字符串(长度长度 固定固定) 在在VB中，把汉字作为一个字符来处理。中，把汉字作为一个字符来处理。 6. 逻辑型逻辑型(Boolean) 逻辑型又称

5、布尔型，其数据只有逻辑型又称布尔型，其数据只有True(真真)和和False(假假)两个值两个值 7. 日期型日期型(Date) 表示日期和时间表示日期和时间 用两个用两个“#”符号把日期和时间的值括起来符号把日期和时间的值括起来 如：如：#08/20/2001#、#2001-08-20# 8. 对象型对象型(Object) 对象型数据可用来表示应用程序中的对象对象型数据可用来表示应用程序中的对象 9. 变体型变体型(Variant) 变体型数据是一种可变的数据类型，可以存放任何类型的数变体型数据是一种可变的数据类型，可以存放任何类型的数 据据 当指定变量为当指定变量为Variant变量时，变

6、量时，VB会自动完成必要的转换会自动完成必要的转换 在程序中不特别说明时，在程序中不特别说明时，VB会自动将该变量默认为会自动将该变量默认为Variant 型变量。型变量。 例：例：Temp=“22” 字符串字符串 Temp=Temp-1 数值数值 Temp=#01/01/2002# 日期日期 说明：说明： (1) 不同类型的数据，所占的存储空间不一样。不同类型的数据，所占的存储空间不一样。 (2) 数据的类型可在数据之后加上一个类型符来表数据的类型可在数据之后加上一个类型符来表 示，例如，示，例如，413 c End Sub 运行程序后单击窗体，输出结果是：运行程序后单击窗体，输出结果是：

7、处理后的数：处理后的数：63 例例2.1 给定一个两位正整数给定一个两位正整数(如如36)，交换个位数和十位数，交换个位数和十位数 的位置，把处理后的数显示在窗体上的位置，把处理后的数显示在窗体上 Private Sub Form_Click() Dim x As Integer, a As Integer Dim b As Integer, c As Integer x = 36 a = x 10 求十位数求十位数 b = x 10 * a 求个位数求个位数 c = b * 10 + a Print 处理后的数处理后的数: ; c End Sub 把上述程序改为以下形式，效果是否一样？把上述

8、程序改为以下形式，效果是否一样？ 想一想想一想 通常，解决某个问题的程序方法有多种，通常，解决某个问题的程序方法有多种， 我们应该从中选择较优的一种方法。我们应该从中选择较优的一种方法。 编写的窗体单击事件过程代码如下：编写的窗体单击事件过程代码如下： Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer Randomize 初始化随机数生成器初始化随机数生成器 a = Int(90 * Rnd + 10) 产生产生10,99区间内的随机整数区间内的随机整数 b = Int(90 * Rnd + 10) c

9、= a + b 求两数之和求两数之和 Print 产生的两个随机数产生的两个随机数: ; a, b Print 和数和数: ; c End Sub 运行程序后单击窗体，输出结果是：运行程序后单击窗体，输出结果是： 产生的两个随机数：产生的两个随机数：56 71 和数：和数：127 例例2.2 通过随机函数产生通过随机函数产生2个两位正整数，求这个两位正整数，求这2个数个数 之和并显示出来之和并显示出来 再次运行程序，单击窗体后再次运行程序，单击窗体后 输出另一组结果是：输出另一组结果是： 产生的两个随机数：产生的两个随机数：18 37 和数：和数：55 字符串函数用于进行字符串处理字符串函数用

10、于进行字符串处理 使用字符串函数的几点说明：使用字符串函数的几点说明： (1)函数函数Mid(“ABCDEG”,3,2)的结果为的结果为”CD” 若省略若省略n，则得到的是从，则得到的是从P开始的往后所有字符，如开始的往后所有字符，如 Mid(“ABCDE”，2) 的结果为的结果为 “BCDE” (2)插入字符串语句插入字符串语句Mid，该语句格式如下：，该语句格式如下： Mid(字符串字符串, p,n) = 子字符串子字符串 用用“子字符串子字符串”替换替换“字符串字符串”中从中从P开始的与开始的与“子字子字 符串符串”等长的一串字符。等长的一串字符。 例如，假设例如，假设S=“ABCDE“

11、，执行语句执行语句Mid(S,3)=“99“后，后，S 的值为的值为“AB99E“ 2.4.22.4.2 字符串函数字符串函数 (3)(3)在函数在函数InstrInstr中，中，f f和和k k均为可选参数，均为可选参数，f f表示表示 开始搜索的位置开始搜索的位置( (默认值为默认值为1)1)，k k表示比较方式，若表示比较方式，若k k 为为0(0(默认默认) )，表示区分大小写；若，表示区分大小写；若k k为为1 1，则不分大小，则不分大小 写。写。 格式：格式： Instr(f, Instr(f, 字符串字符串1,1,字符串字符串2,k)2,k) 例如例如 Instr(3Instr(

12、3, , ”A12a34A56A12a34A56”, ”A A”) ) 的结果为的结果为 7 7 Instr(3, Instr(3, ”A12a34A56A12a34A56”, , ”A A”, 1, 1) ) 的结果为的结果为 4 4 Instr(Instr(”A12a34A56A12a34A56”, ”A A”) ) 的结果为的结果为 1 1 (4)在函数在函数String中，字符也可以用中，字符也可以用ASCII代码代码(附附 录一录一)来表示来表示 例如例如 String(6, 42) 与与 String(6, ”*”)作用相同作用相同 先从字符串先从字符串a中找出某个指定字符中找出某

13、个指定字符(本例为空格本例为空格)，再以此，再以此 字符为界拆分成两个字符串。编写的窗体单击过程代码如下：字符为界拆分成两个字符串。编写的窗体单击过程代码如下： Private Sub Form_Click() Dim a As String, b As String, c As String, n As Integer a = VisualFoxPro 表示空格表示空格 n = InStr(a, ) 查找空格位置查找空格位置 b = Left(a, n - 1) 取左边部分取左边部分 c = Mid(a, n + 1) 取右边部分取右边部分 Print b 显示左边部分显示左边部分 Prin

14、t c 显示右边部分显示右边部分 End Sub 程序运行后单击窗体，输出结果是：程序运行后单击窗体，输出结果是： Visual FoxPro 例例2.32.3 使用字符串函数示例使用字符串函数示例 Private Sub Form_Click() Dim a As String, b As String, c As String, n As Integer a = VisualFoxPro 表示空格表示空格 n = InStr(a, ) 查找空格位置查找空格位置 b = Left(a, n - 1) 取左边部分取左边部分 c = Right( _, _ ) 取右边部分取右边部分 Print

15、b 显示左边部分显示左边部分 Print c 显示右边部分显示右边部分 End Sub 程序运行后单击窗体，输出结果是：程序运行后单击窗体，输出结果是： Visual FoxPro 若用若用 RightRight函数来代替函数来代替 MidMid函数函数, 应如何改动？应如何改动？ 想一想想一想 答案：答案：a, Len(a)-n 日期日期/时间函数用于进行日期和时间处理时间函数用于进行日期和时间处理 说明：说明： 函数函数Weekday返回值返回值17，依次表示星期日到星，依次表示星期日到星 期六。期六。 2.4.3 2.4.3 日期与时间函数日期与时间函数 Private Sub Form

16、_ClickPrivate Sub Form_Click()() x = #1/1/2005# x = #1/1/2005# a = x - Date a = x - Date b = Weekday(x) b = Weekday(x) c = Year(Date) c = Year(Date) d = Month(Date) d = Month(Date) e = Hour(Time) e = Hour(Time) f = Minute(Time) f = Minute(Time) Print Print 现在距离现在距离20052005年元旦还有：年元旦还有： ; ; a; a; 天天 P

17、rint Print 20052005年元旦是：星期年元旦是：星期; ; b-1 b-1 Print Print 本月份是：本月份是：; ; c; c; 年年; ; d; d; 月月 PrintPrint 现在是：现在是：; ; e; e; 时时; ; f; f; 分分 End SubEnd Sub 运行程序后单击窗体，输出结果如下：运行程序后单击窗体，输出结果如下： 现在距离现在距离20052005年元旦还有：年元旦还有：11841184天天 20052005年元旦是：星期年元旦是：星期6 6 本月份是：本月份是：20012001年年1010月月 现在是：现在是：1616时时2727分分 例

18、例2.42.4 使用日期使用日期/ /时间函数示例时间函数示例 （留给学生分析）（留给学生分析） 转换函数用于数据类型的转换转换函数用于数据类型的转换 说明：说明：Val函数将数字字符串转换为数值型数字时，会自动函数将数字字符串转换为数值型数字时，会自动 将字符串中的空格去掉，并依据字符串中排列在前面的数值常将字符串中的空格去掉，并依据字符串中排列在前面的数值常 量来定值，例如：量来定值，例如： Val(A12) 的值为的值为 0 Val(12A12) 的值为的值为 12 Val(1.2e2) 的值为的值为 120 例例2.4 2.4 使用转换函数的示例使用转换函数的示例(留给学生分析留给学生

19、分析) Private Sub Form_ClickPrivate Sub Form_Click()() x = x = 123123 y y = 123 = 123 a = Chr(Asc(x) + 5) a = Chr(Asc(x) + 5) b = Str(Val(x) + 5) b = Str(Val(x) + 5) c = Val(Str(y c = Val(Str(y) + ) + 5 5) ) Print a,b, c Print a,b, c End Sub End Sub 运行程序后单击窗体，输出结果如下：运行程序后单击窗体，输出结果如下： 6 1286 128 123512

20、35 2.4.4 2.4.4 类型转换函数类型转换函数 2.5.1 语句及语法语句及语法 VB中的程序语句是执行具体操作的指令。中的程序语句是执行具体操作的指令。 由由VB关键字、属性、表达式以及关键字、属性、表达式以及VB可识别符号的组合可识别符号的组合 例如，下列两个语句：例如，下列两个语句： Print a 2 * b 关键字关键字 表达式表达式 Text1.Text “VB程序设计程序设计” 对象名对象名 属性名属性名 赋值号赋值号 表达式表达式 简单的语句只有一个关键字。示例：简单的语句只有一个关键字。示例： End 2.5 2.5 程序代码编写规则程序代码编写规则 建立程序语句时必须遵守的构建规则