vb第2章VisualBasic程序设计代码基础1

1、V i s u a l B A S I C 程序设计程序设计 1 第第2 2章章 Visual BasicVisual Basic程序设计代码基础程序设计代码基础 本章要点本章要点: : 字符集字符集 数据类型数据类型 常量、变量常量、变量 运算符与表达式运算符与表达式 常用内部函数常用内部函数 语句语句 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 2 2.1 2.1 字符集字符集 1. 字符集字符集 使用使用Unicode字符集，其基本字符集包括字符集，其基本字符集包括: 数字数字: 09 英文字母英文字母: az，AZ 特殊字符特殊

2、字符: ！ “ # $ % ? _ | | 2. 关键字关键字 关键字又称为保留字关键字又称为保留字 VB自动将关键字的首字母转换为大写字母自动将关键字的首字母转换为大写字母 例如例如: PRINT 5+6PRINT 5+6 转换成转换成 Print 5+6Print 5+6 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 3 2.2 2.2 数据类型数据类型 主要有主要有: 数值型；字符串型；布尔型；日期型数值型；字符串型；布尔型；日期型 枚举型；自定义类型枚举型；自定义类型 2.2.1 数值型数据数值型数据 Integer(整型整型)

3、Long(长整型长整型) Single(单精度浮点型单精度浮点型) Double(双精度浮点型双精度浮点型) Currency(货币型货币型) Byte(字节型字节型) 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 4 1. 整数类型整数类型 (1) 整型整型(Integer) 以以2个字节存储个字节存储 十进制表示十进制表示: 由由+ -号，号，09 组成组成 范围范围: -3276832767 八进制表示八进制表示: 以以&O开头，由开头，由 07组成组成 范围范围: &O0 &O177777 十六进制表示十六进制表示: 以以&H开头

4、，由开头，由 09,AF组成组成 范围范围: &H0 &HFFFF 例例: -325 0 56 +100 &O456 &O36 &H1AC &H38 &H2 Dim s as Integer Dim s% 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 5 (2) 长整型长整型(Long) & 以以4个字节存储个字节存储 十进制表示十进制表示: 由由+ -号，号，09 组成组成 范围范围: -2147483648+2147483647 八进制表示八进制表示: 以以&O开头，以开头，以&结束结束 范围范围: &O0& &O3777777777

5、7& 十六进制表示十六进制表示: 以以&H开头，以开头，以&结束结束 范围范围: &H0& &HFFFFFFFF& 例例: 453466 -34568 +1000000 &O456& &O36& &H1AC& &H38& &H2& Dim s as Long Dim s& 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 6 2. 实数类型实数类型 浮点数采用浮点数采用IEEE格式格式, 由尾数及指数组成由尾数及指数组成: . . . E|D (1) 单精度浮点型单精度浮点型(Single) ！ 以以4个字节存储，可以精确到个字节存储，可以精

6、确到7位十进制数位十进制数 (2) 双精度浮点型双精度浮点型(Double) 以以8个字节存储，可以精确到个字节存储，可以精确到16位位 例例: 3.234E+2 表示表示3.234 102 -28E9 表示表示-28 109 4.56E-17 表示表示4.56 10-17 3.234D+2 表示表示3.234 102 -28D9 表示表示-28 109 4.56D-17 表示表示4.56 10-17 尾数部分尾数部分 指数部分指数部分 e|d 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 7 (3) 货币型货币型(Currency) 以

7、以8个字节存储。用于表示定点数，其小数点左边个字节存储。用于表示定点数，其小数点左边 有有15位数字，右边有位数字，右边有4位数字。位数字。 3. 字节型字节型(Byte) 用于存储二进制数据，其取值范围为用于存储二进制数据，其取值范围为0255。 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 8 2.2.2 字符串型数据字符串型数据(String) $ 由由 括起来的字符序列括起来的字符序列 例例: abc ABC 计算机计算机 12.34 3+2 (空串空串) 如果字符串本身包括双引号，可用连续两个双如果字符串本身包括双引号，可用连续

8、两个双 引号表示。引号表示。 例例: 要打印以下字符串：要打印以下字符串： You must study hard, he said. 在程序中需要将该字符串表示成在程序中需要将该字符串表示成: You must study hard , he said. 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 9 2.2.3 布尔型数据布尔型数据(Boolean) 用于进行逻辑判断，只有用于进行逻辑判断，只有True和和False两个值，两个值， 2字节存储字节存储 注意：布尔型数据与数值型数据的转换问题？注意：布尔型数据与数值型数据的转换问题？

9、 False 0 True -1 False 0 True 非零非零 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 10 2.2.4 日期型数据日期型数据(Date) 用于表示日期和时间，用于表示日期和时间，8个字节浮点形式存储个字节浮点形式存储 格式格式: #（ VB接受许多种日期时间格式接受许多种日期时间格式 ） 例例: 下面的下面的 Date/Time 值全部有效。值全部有效。 #3-6-93 13:20# #March 27,1993 1:20am# #Apr-2-93# #14 April 1993# #12/18/1999#

10、第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 11 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 12 2.2.7 自定义数据类型自定义数据类型 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 13 例：例： Private type sturecord Name as string Birthday as date Others as variant End type 自定义类型变量的定义自定义类型变量的定义 Dim mr as

11、 sturecord = 张名张名 Mr.birthday = #1986-04-01# 2.2.8 枚举类型（枚举类型（自学自学） 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 14 问题：问题：下列下列 是字符型常量。是字符型常量。 A）“I am a student” B）江苏南京江苏南京 C）#02/25/2004# D）123# 问题：问题：下列下列 是双精度型变量。是双精度型变量。 A）AAA% B）BBB$ C）CCC！ D）DDD# 问题：问题：如果将布尔常量值如果将布尔常量值True赋值给一个整型变量，赋

12、值给一个整型变量， 则整型变量的值是则整型变量的值是 。 A）0 B）-1 C）True D）False 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 15 设有如下的记录类型设有如下的记录类型 Type Student number As String name As String age As Integer End Type 则正确引用该记录类型变量的代码是则正确引用该记录类型变量的代码是 A） S = 张红张红 B） Dim s As Student = 张红张红 C） Dim s As Typ

13、e Student = 张红张红 D） Dim s As Type = 张红张红 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 16 2.3 2.3 常量常量 指在程序运行期间其值指在程序运行期间其值不发生变化不发生变化的量。的量。 两种形式两种形式: 直接常量；符号常量直接常量；符号常量 2.3.1 直接常量直接常量 例例: 欢迎使用欢迎使用Visual Basic 字符串常量字符串常量 12345 数值型常量数值型常量 True 布尔型常量布尔型常量 #11/10/2001# 日期型常量日期型常量 第二章第

14、二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 17 2.3.2 用户自定义符号常量用户自定义符号常量 格式格式: Const As = 类型类型: Integer Long Single Double String Boolean Date Currency Byte Variant 例例: Const Pi = 3.1415 Const Max As Integer = 9 Const BirthDate = #1/1/01# Const MyString = friend 第二章第二章 Visual Basic Visual Basic 程序

15、设计代码基础 程序设计代码基础 18 注意：注意： （1） 作用域作用域 定义位置定义位置 某个过程某个过程 该过程内部声明该过程内部声明 模块中所有过程模块中所有过程 模块声明段中声明模块声明段中声明 整个应用程序整个应用程序 标准模块声明段标准模块声明段 Public （2）多个常量声明多个常量声明 用逗号分隔多个常量声明用逗号分隔多个常量声明 Const Pi = 3.14, Max = 9, MyStr=Hello 用先前定义过的常量定义新常量用先前定义过的常量定义新常量 Const Pi2 = Pi * 2 第二章第二章 Visual Basic Visual Basic 程序设计代

16、码基础 程序设计代码基础 19 （3）符号常量之间不能循环引用符号常量之间不能循环引用 Module1 Public Const conAconB *2 Module2 Public Const conBconA/2 （4）符号常量不能修改，也不能赋以新值符号常量不能修改，也不能赋以新值 使用使用: 在程序中引用在程序中引用 如如: AREA=Pi*R2 在程序中不可修改在程序中不可修改 如如: Pi=3.14 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 20 2.3.3 系统定义符号常量系统定义符号常量 VB内部已定义，可以直接使用的

17、常量内部已定义，可以直接使用的常量 查看内部常量查看内部常量: 视图视图对象浏览器对象浏览器 选择库、类、选择库、类、 成员成员 如如: 库库 VBRUN 类类 ColorConstants ShapeConstants 成员成员 vbRed vbShapeCircle 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 21 对象浏览器对象浏览器 选择对象库选择对象库 在在“类类”列表中选择列表中选择 所需要的符号常量组所需要的符号常量组 用鼠标单击用鼠标单击 某一个符号常量某一个符号常量 描述框中显示有关该符号常量的定义及描述信息。描述框中

18、显示有关该符号常量的定义及描述信息。 例：例：vbBlue所表示的颜色值为所表示的颜色值为&HFF0000 从菜单栏视图中选择从菜单栏视图中选择 “对象浏览器对象浏览器”或（或（F2） 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 22 例例: Private Sub Form_Activate() Const A As String = 各种常量的使用各种常量的使用 Form1.BackColor = vbGreen Form1.ForeColor = vbRed Form1.FontSize = 14 Print A End Sub

19、第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 23 2.4 2.4 变量变量 1. 什么是变量？什么是变量？ 一个有名称的内存单元称为变量。一个有名称的内存单元称为变量。 在程序执行期间，用变量临时存储数值。在程序执行期间，用变量临时存储数值。 变量的值可以发生变化。变量的值可以发生变化。 每个变量都有名称和数据类型。每个变量都有名称和数据类型。 2. 变量的命名规则变量的命名规则 第一个字符必须是字母第一个字符必须是字母 长度不超过长度不超过255个字符个字符 不可以包含小数点或者内嵌的类型声明字符不可以包含小数点或者内嵌的类型声明字符

20、 不能使用关键字不能使用关键字 不能与过程名或符号常量同名不能与过程名或符号常量同名 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 24 注意：注意：VB中不区分变量名的大小写。为了增加中不区分变量名的大小写。为了增加 程序的可读性，可在变量名前加一个缩写的前缀程序的可读性，可在变量名前加一个缩写的前缀 来表明该变量的数据类型。来表明该变量的数据类型。 例例： strAbc （字符串变量）字符串变量） intCount （整型变量）（整型变量） dblx （双精度变量）（双精度变量） sngYz （单精度变量）（单精度变量） 第二章第二章

21、 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 25 3. 变量的声明变量的声明 (1) 声明变量声明变量 格式格式: Dim|Private|Static|Public As As Dim: 在窗体模块、标准模块或过程中声明变量。在窗体模块、标准模块或过程中声明变量。 Private: 在窗体模块或过程中声明变量，使变量仅在窗体模块或过程中声明变量，使变量仅 在该模块或过程中有效。在该模块或过程中有效。 Static: 在过程中定义静态变量，即使该过程结束，在过程中定义静态变量，即使该过程结束， 也仍然保留变量的值。也仍然保留变量的值。 Public

22、: 在标准模块中声明全局变量，使变量在整在标准模块中声明全局变量，使变量在整 个应用程序中有效。个应用程序中有效。 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 26 例例: Dim Sum As Long Dim Address As String Dim No As String * 8 Dim Price As Currency Dim Num, Total As Integer Dim Average As Single 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 27 设

23、有如下语句设有如下语句: Dim a,b As Integer c = “VisualBasic” d = #7/20/2005# 以下关于这段代码的叙述中以下关于这段代码的叙述中,错误的是错误的是 A） a被定义为被定义为Integer类型变量类型变量 B） b被定义为被定义为Integer类型变量类型变量 C） c中的数据是字符串中的数据是字符串 D） d中的数据是日期类型中的数据是日期类型 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 28 下面可以正确定义下面可以正确定义2个整数变量和个整数变量和1个字符个字符 串变量的语句是串变

24、量的语句是 A） Dim n, m As Integer, s As String B） Dim a%, b$, c As String C） Dim a As Integer, b, c As String D） Dim x%, y As Integer, z As String 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 29 (2) 隐式声明隐式声明 可变类型。可变类型。 可以存放任何类型的数据。可以存放任何类型的数据。 例例: SomeValue 100 SomeValue100 易出错、浪费空间易出错、浪费空间 注意：注意：

25、在应用程序中声明所有使用的变量。在应用程序中声明所有使用的变量。 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 30 (3) 强制显式声明强制显式声明 在模块的声明段中使用语句在模块的声明段中使用语句: Option Explicit 如果设置如果设置: 工具工具选项选项编辑器编辑器 要求变量声明要求变量声明 则在后续模块中自动插入则在后续模块中自动插入Option Explicit 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 31 例例: 在窗体中放置按钮在窗体中放置按钮Comm

26、and1和和Command2 Dim a As Integer Private Sub Command1_Click() a = a + 10 Print a End Sub Private Sub Command2_Click() a = a + 15 Print a End Sub 运行程序，观察结果运行程序，观察结果 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 32 4. 变量的作用域变量的作用域 变量的作用域变量的作用域: 指变量的指变量的有效范围有效范围。 将变量分为将变量分为: 局部变量局部变量 模块级变量模块级变量 全局变

27、量全局变量 模块级变量模块级变量 全局变量全局变量 局局 部部 变变 量量 模块模块 过程过程 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 33 1） 局部变量局部变量 声明位置声明位置 过程中不声明过程中不声明/用用Dim声明声明/用用Static声明的变量声明的变量 Dim A As Integer A每次执行过程时被初始化每次执行过程时被初始化 Static C As Single C在应用程序执行期间保持不变在应用程序执行期间保持不变 作用范围作用范围 仅在声明的过程中起作用仅在声明的过程中起作用 其他过程中即使有同名变量，也不

28、是指同一变量其他过程中即使有同名变量，也不是指同一变量。 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 34 例例: Sub S() X = 1 Y = 2 Z = X + Y Print X, Y, Z End Sub Private Sub C1_Click() X = 2 Y = 3 Z = X + Y Call S Print X, Y, Z End Sub 单击单击C1后运行结果后运行结果: 1 2 3 2 3 5 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 35 例例:

29、 Sub S() Static Z As Integer Z = Z + 2 Print Z End Sub Private Sub Command1_Click() Dim Z As Integer Z = Z + 2 Call S Print Z End Sub 第一次单击第一次单击C1结果结果: 2 2 第二次单击第二次单击C1结果结果: 4 2 第三次单击第三次单击C1结果结果: 6 2 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 36 2） 模块级变量模块级变量 声明声明 在模块的通用声明段中用以下方法声明的变量。在模块的通用

30、声明段中用以下方法声明的变量。 Private 在模块运行时被初始化在模块运行时被初始化 Dim 在模块运行时被初始化在模块运行时被初始化 作用范围作用范围 在该模块的所有过程中都起作用在该模块的所有过程中都起作用 其他模块不能访问这些变量其他模块不能访问这些变量 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 37 例例: Dim Z As Integer Sub S() Z = Z + 2 Print Z End Sub Private Sub C1_Click() Z = Z + 2 Call S Print Z End Sub 第一

31、次单击第一次单击C1结果结果: 4 4 第二次单击第二次单击C1结果结果: 8 8 第三次单击第三次单击C1结果结果: 12 12 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 38 例例: Dim Z As Integer Sub S() Dim Z Z = Z + 2 Print z End Sub Private Sub C1_Click() Z = Z + 2 Call S Print Z End Sub 第一次单击第一次单击C1结果结果: 2 2 第二次单击第二次单击C1结果结果: 2 4 第三次单击第三次单击C1结果结果: 2

32、 6 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 39 3）全局变量）全局变量 声明声明 在模块的通用声明段中用以下方法声明的变量在模块的通用声明段中用以下方法声明的变量 Public 应用程序运行时被初始化应用程序运行时被初始化 作用范围作用范围: 应用程序的所有过程应用程序的所有过程 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 40 【例题【例题 】编写计算立方和阶乘程序】编写计算立方和阶乘程序 要求：要求： 1. 建立两个窗体（如图）和一个模块建立两个窗体（如图）和一个模块

33、 2. 可以在第二个窗体中显示计算出的立方和阶乘可以在第二个窗体中显示计算出的立方和阶乘 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 41 标准模块标准模块: M1存放存放N的立方值，的立方值，M2存放存放N的阶乘值的阶乘值 Public M1 As Integer, M2 As Integer 定义求阶乘函数定义求阶乘函数F(N) Public Function F(N) As Integer F = 1 For I = 1 To N F= F * I Next I End Function I: 局部变量局部变量 N: 形式参数形式

34、参数 F: 公共函数公共函数 M1、M2: 全局变量全局变量 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 42 Form1模块模块: Dim N As Integer Private Sub C1_Click() N = Val(Text1.Text) M1 = N * N * N Text2.Text = M1 End Sub Private Sub C2_Click() M2 = F(N) Text3.Text = M2 End Sub Private Sub C3_Click() Form2.Show End Sub N: 模块级

35、变量模块级变量 实际参数实际参数 F: 公共函数公共函数 M1、M2: 全局变量全局变量 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 43 Private Sub C1_Click() Text1.Text = M1 End Sub Private Sub C2_Click() Text2.Text = M2 End Sub Private Sub C3_Click() If M1 0 Then Text3.Text = Format(M2 / M1, 0.000) Else MsgBox 被除数为零，请重输被除数为零，请重输 End

36、If End Sub Private Sub C4_Click() Unload Me End Sub M1、M2: 全局变量全局变量 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 44 ? 思考思考 如果有两个标准模块，它们都各自声明了一个名为如果有两个标准模块，它们都各自声明了一个名为 M1类型为类型为Integer的全局变量的全局变量 n是否合法？是否合法？ 1.怎样使用它们？怎样使用它们？ 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 45 作用域作用域 局部变量局部变量模块

37、级变量模块级变量 全局变量全局变量 窗体模块窗体模块 标准模块标准模块 声明方式声明方式 Dim、StaticDim、PrivatePublic 声明位置声明位置在过程中在过程中 窗体模块、标窗体模块、标 准模块的通用准模块的通用 声明段声明段 窗体模块、标准模块的通用声窗体模块、标准模块的通用声 明段明段 能否被本模块能否被本模块 中其他过程调中其他过程调 用用 否否能能能能 能否被本应用能否被本应用 程序中其他模程序中其他模 块调用块调用 否否否否 能，但要在变能，但要在变 量名前加窗体量名前加窗体 名名 能能 第二章第二章 Visual Basic Visual Basic 程序设计代码

38、基础 程序设计代码基础 46 5. 变量的生存期变量的生存期 变量的生存期变量的生存期: 指变量的指变量的作用时间作用时间。 静态变量静态变量: 在应用程序执行期间保留不变在应用程序执行期间保留不变 动态变量动态变量: 在所在的模块在所在的模块(过程过程)运行时被初始化运行时被初始化 注意：注意： 在在FunctionFunction过程、过程、SubSub过程的定义语句中使用过程的定义语句中使用 StaticStatic修饰词，表明该过程内所有的局部变量均修饰词，表明该过程内所有的局部变量均 为静态变量。为静态变量。 第二章第二章 Visual Basic Visual Basic 程序设计

39、代码基础 程序设计代码基础 47 例：例： Static Sub SS1( ) For I = 1 To 10 S = S + I Next I Print S End Sub Private Sub _ Command1_Click( ) Call SS1 End Sub 55 110 165 55 55 55 取消取消Static 第二章第二章 Visual Basic Visual Basic 程序设计代码基础 程序设计代码基础 48 小结小结 n字符集字符集(Unicode)和关键字和关键字 n数据类型：系统定义和自定义数据类型：系统定义和自定义 n Integer Long Single Double String Boolean Date Curren