1、学习目标学习目标 1 1理解变量的概念和变量的三要素；理解变量的概念和变量的三要素；2 2掌握过程级和模块级变量的声明和使用；掌握过程级和模块级变量的声明和使用；3 3了解数据类型的概念，掌握主要基本数据类型；了解数据类型的概念，掌握主要基本数据类型；4 4了解内部函数的概念和常用内部函数的使用；了解内部函数的概念和常用内部函数的使用；5 5掌握常用算术运算符和字符运算符，构造正确表掌握常用算术运算符和字符运算符，构造正确表达式；达式；6 6了解符号常量的概念及使用；了解符号常量的概念及使用；学习情境二：功能模块设计学习情境二：功能模块设计任务任务2-1：数据录入：数据录入目目 录录4.1 任
2、务描述与任务分析任务描述与任务分析4.2 变量的概念变量的概念4.3 数据类型数据类型4.4 变量类型选择变量类型选择4.5 变量赋值变量赋值4.6 在在“员工工资管理系统员工工资管理系统”中应用变量中应用变量4.7 关于变量声明关于变量声明4.8 认识认识VB的内部函数的内部函数4.9 VB中的运算符中的运算符4.10 本章容易出错的地方本章容易出错的地方1.问题引入问题引入 4.1 任务描述与任务分析任务描述与任务分析在第在第2章案例章案例“显示个人信息显示个人信息”的代码中，象个人所得税、养老保险、的代码中，象个人所得税、养老保险、应发总计等数值都与标准工资有关，而每个员工的标准工资都是
3、在各应发总计等数值都与标准工资有关，而每个员工的标准工资都是在各个按钮的个按钮的Click事件下直接赋给文本框，如果标准工资发生改变，就要事件下直接赋给文本框，如果标准工资发生改变，就要修改很多地方，带来很多麻烦，如何使程序更加易于维护？在本章，修改很多地方，带来很多麻烦，如何使程序更加易于维护？在本章，通过在程序中引入变量来解决上面的问题。通过在程序中引入变量来解决上面的问题。1.任务描述任务描述在程序中自已定义在程序中自已定义20个个变量变量。在。在Form_Load事件中，将事件中，将5个人的个人的20个个原始数据（常量）分别保存即赋值到这原始数据（常量）分别保存即赋值到这20个个变量变
4、量中。当在不同的按钮中。当在不同的按钮事件中要用到这些数据时，就用自定义变量名来代替，再赋给文本框事件中要用到这些数据时，就用自定义变量名来代替，再赋给文本框的的text属性，显示在文本框中。属性，显示在文本框中。2.任务分析任务分析4.2 变量的概念变量的概念变量是内存中的存储空间，变量是内存中的存储空间，相当于宾馆的房间。房间的名称就是变量相当于宾馆的房间。房间的名称就是变量的名字的名字(下图中一个房间的名称为下图中一个房间的名称为X)，房间的东西就是变量的值，房间的东西就是变量的值(房房间里放了数字间里放了数字4)。因为计算机中的存储空间非常非常多因为计算机中的存储空间非常非常多,为了使
5、存储的数据容易找到为了使存储的数据容易找到,所以在对所以在对某一个存储空间存放数据的时候某一个存储空间存放数据的时候,就要对该空间起一个名就要对该空间起一个名字字,这个名字就是变量的名字这个名字就是变量的名字.X 计算机磁盘计算机磁盘3存放数据的空间存放数据的空间变量中存放的数值变量中存放的数值变量的名字变量的名字4.2 变量应用举例变量应用举例 Private Sub Command1_Click()Dim a As Integer,b As Integer,intTemp As Integer 声明变量声明变量 变量赋值变量赋值 a=10 b=20 Form1.Print“a变量和变量和b
6、变量内容交换前：变量内容交换前：”;a;b 输出变量输出变量 intTemp=a a=b b=intTemp Print“a变量和变量和b变量内容交换后：变量内容交换后：”;a;b 输出交换后的变量输出交换后的变量 End Sub 定义变量语句，定义变量语句，a、b、c是变量的名字，是变量的名字，Integer是是变量类型，在过程体内部定义，所以是过程变量！变量类型，在过程体内部定义，所以是过程变量！单击窗体上的单击窗体上的“交换交换”按钮，可交换两个文本框的值。按钮，可交换两个文本框的值。引例引例1：不 带 小 数 点 的 数 据，不 带 小 数 点 的 数 据，2 个 字 节，范 围 从个
7、 字 节，范 围 从-32768+32767。4.3 变量有哪些类型？变量有哪些类型？-数据类型的概念数据类型的概念象现实生活中的价格、年龄、数量等可能要参与一些数学运算象现实生活中的价格、年龄、数量等可能要参与一些数学运算的数据就可认为是数值型。的数据就可认为是数值型。基本整型基本整型（Integer）VB中规定了很多种数据类型，其中本章用到的基本数据类型主要有字符串中规定了很多种数据类型，其中本章用到的基本数据类型主要有字符串型、数值型和日期时间型。型、数值型和日期时间型。不 带 小 数 点，不 带 小 数 点，4 个 字 节，范 围 从个 字 节，范 围 从-21474836482147
8、483647。长整型长整型（Long）带小数点数据，带小数点数据，4个字节，范围从个字节，范围从-1038+1038，用用E表示指数；有效数字可达表示指数；有效数字可达7位。位。单精度实型单精度实型（Single）1.数值型数值型带小数点数据，带小数点数据，8个字节，范围从个字节，范围从-10308+10308，用，用E表示指数；有效数字可达表示指数；有效数字可达15位。位。双精度实型双精度实型（Double）4.3 变量有哪些类型？变量有哪些类型？数据类型的概念数据类型的概念象现实生活中的姓名、课程名称、邮编等数据就可认为是字符串型，象现实生活中的姓名、课程名称、邮编等数据就可认为是字符串型
9、，这些数据是由若干个汉字、字母、数字等这些数据是由若干个汉字、字母、数字等ASCII字符构成，即字符串是一字符构成，即字符串是一个字符序列。个字符序列。Visual Basic中规定字符串常量数据必须用一对西文双引号将字符序中规定字符串常量数据必须用一对西文双引号将字符序列括起来，如列括起来，如“张三张三”、“Visual Basic高级语言程序设计高级语言程序设计”、“518055”。2.字符串型字符串型（String）象出生日期、开始时间等表示年月日或时分秒的数据就是日期时间象出生日期、开始时间等表示年月日或时分秒的数据就是日期时间型。型。Visual Basic中规定日期时间型常量数据必
10、须用一对西文中规定日期时间型常量数据必须用一对西文#号将数号将数据括起来，如据括起来，如#1949/10/1#.3.日期时间型（日期时间型（Date）4.4 怎样定义变量？怎样定义变量？变量的声明及作用域变量的声明及作用域变量名变量名：用来区别标识和访问内存中的不同单元位置：用来区别标识和访问内存中的不同单元位置,特可以说特可以说“变量变量名是为申请的计算机内存空间起的别名。名是为申请的计算机内存空间起的别名。数据类型名数据类型名：变量的数据类型决定了变量能存储什么类型：变量的数据类型决定了变量能存储什么类型 的数据，计的数据，计算机会根据此类型决定分配多少内存空间；算机会根据此类型决定分配多
11、少内存空间；1.声明语句的格式声明语句的格式指变量有不同的有效使用范围，它决定了可以在程序的什么地方访问某指变量有不同的有效使用范围，它决定了可以在程序的什么地方访问某变量，什么地方不能访问。变量，什么地方不能访问。过程级过程级：在过程内部定义，也只能在过程内使用。：在过程内部定义，也只能在过程内使用。模块级模块级：在一个模块的通用声明段，可用于该模块中的所有过程。：在一个模块的通用声明段，可用于该模块中的所有过程。工程级工程级：在标准模块的声明段中用：在标准模块的声明段中用Public声明，在整个工程的所有模块声明，在整个工程的所有模块的所有过程中都可以使用。的所有过程中都可以使用。2.变量
12、作用域变量作用域 Dim/Private/Public 变量名变量名 As 数据类型名数据类型名4.4 怎样给变量命名怎样给变量命名变量命名规则变量命名规则 1.变量名只能由西文字母、汉字、数字及下划线组成，变量名只能由西文字母、汉字、数字及下划线组成，2.变量名必须以西文字母或汉字开头，最后一个符号可以是类型声明符，变量名必须以西文字母或汉字开头，最后一个符号可以是类型声明符，3.变量名长度可达变量名长度可达255个字符，有效字符为个字符，有效字符为40个，个，4.变量名不能为变量名不能为VB中的保留字。（所谓的保留字就是中的保留字。（所谓的保留字就是VB中使用的固定词中使用的固定词汇汇,如
13、如Print）例如：例如：Name,a1,a2等等本教材命名全部采用匈牙利标记法则，即：本教材命名全部采用匈牙利标记法则，即：范围前缀范围前缀_+数据类型前缀数据类型前缀+标识名称标识名称例如：例如：intWage m_strNum1M_:代表该变量是模块变量代表该变量是模块变量Str表示该变量是字符型表示该变量是字符型Num1是该变量的名字是该变量的名字4.4 如何选择变量的数据类型如何选择变量的数据类型变量是用来存放常量的变量是用来存放常量的,不同的常量存储时所需要的内存空间大小不同的常量存储时所需要的内存空间大小不同。就好比我们外出旅游时预定宾馆一样，不同级别的客人所不同。就好比我们外出
14、旅游时预定宾馆一样，不同级别的客人所定的房间大小不同。定的房间大小不同。如果要存储的数据是一些数值，而且可能要参加数学运算，如果要存储的数据是一些数值，而且可能要参加数学运算，就应该定义为数值型就应该定义为数值型，如果这些数据是没有小数的，就应该定义为整，如果这些数据是没有小数的，就应该定义为整形形.例如：例如：Dim a As Integer 或或 Dim a As Long如果是有小数的，就应该定义为单精度类型或双精度类型。如果是有小数的，就应该定义为单精度类型或双精度类型。例如：例如：Dim a As Single 或或 Dim a As Double如果要存储的数据是由若干个汉字、字母
15、、数字等如果要存储的数据是由若干个汉字、字母、数字等ASCII字符构成字符构成，像，像“姓名姓名”、“单位单位”、“家庭住址家庭住址”、“手机号码手机号码”等，就应该定义为字符等，就应该定义为字符型。型。例如：例如：Dim a As String4.5 变量赋值变量赋值 TestDate=#1/1/2002#日期型数的赋值日期型数的赋值A=“Visual Basic”字符型数的赋值字符型数的赋值intWage=2500 整型数的赋值整型数的赋值(1)先计算赋值符号先计算赋值符号“=”右边表达式的值；右边表达式的值；(2)将该值存入到左边的属性变量或自定义变量中。将该值存入到左边的属性变量或自定
16、义变量中。2.赋值语句作用赋值语句作用定义变量的目的是用变量存储常量，而存储常量的就要通过定义变量的目的是用变量存储常量，而存储常量的就要通过赋值语句实现。赋值语句实现。变量名变量名=表达式表达式1.赋值语句格式赋值语句格式编写程序实现图片的放大编写程序实现图片的放大/缩小、位置移动及恢复缩小、位置移动及恢复4.5 变量应用举例变量应用举例1在通用声在通用声明段声明两个明段声明两个模块级变量用模块级变量用来存放原始位来存放原始位置置2在在Form_Load事件事件中将原始位置保中将原始位置保存在已定义的模存在已定义的模块级变量中块级变量中3在在“恢复位恢复位置置”按钮单击事按钮单击事件，将件，
17、将left和和top属性恢复成原始属性恢复成原始位置位置引例引例1：1.运行效果运行效果2.变量定义与引用部变量定义与引用部分的代码分的代码4.6 在在“员工工资管理系统员工工资管理系统”中应用变中应用变量量在前面章节的在前面章节的“员工工资管理系统员工工资管理系统”中，员工的编号、姓名等信中，员工的编号、姓名等信息是在命令按钮的息是在命令按钮的Click事件下直接赋值给文本框的事件下直接赋值给文本框的Text属性，属性，从本章开始，将在程序中引入变量，将原始数据信息赋给变量，从本章开始，将在程序中引入变量，将原始数据信息赋给变量，在其它事件中用到时直接引用变量即可。在其它事件中用到时直接引用
18、变量即可。1.1.在主窗体的通用声明段定义变量在主窗体的通用声明段定义变量4.6 在在“员工工资管理系统员工工资管理系统”中应用变中应用变量量Private Sub Form_Load()给第给第1个员工的相关变量赋值个员工的相关变量赋值 m_strNum1=001 m_strName1=张圳张圳 m_intWage1=1100 m_intPrize1=500 m_intSubsidy1=500 给第给第2个员工的相关变量赋值个员工的相关变量赋值 m_strNum2=002 m_strName2=梁雨梁雨 m_intWage2=1600 m_intPrize2=900 m_intSubsidy
19、2=700 End Sub2.在窗体的加载事件下编写代码实现给变量赋值在窗体的加载事件下编写代码实现给变量赋值4.6 在在“员工工资管理系统员工工资管理系统”中应用变中应用变量量Private Sub cmd_First_Click()txt_Num.Text=m_strNum1 txt_Name.Text=m_strName1 txt_Wage.Text=m_intWage1 txt_Prize.Text=m_intPrize1 txt_Subsidy.Text=m_intSubsidy1 txt_Total1.Text=m_intWage1+m_intPrize1+m_intSubsidy
20、1 txt_Tax.Text=m_intWage1*0.1 txt_Insure.Text=m_intWage1*0.05 txt_Total2.Text=Val(txt_Tax.Text)+Val(txt_Insure.Text)txt_Acce.Text=Val(txt_Total1.Text)-Val(txt_Total2.Text)img_Pict.Picture=LoadPicture(App.Path+01.wmf)End Sub将赋了值的变量赋值给文本框VB中的内部函数算术表达式3.修改员工信息浏览代码修改员工信息浏览代码4.7 关于变量声明的说明关于变量声明的说明 “工具/选项
21、”菜单下打开“选项”对话框，选定“要求变量声明选项”一般来说，变量先声明再使用，也可以不声明而直接使用变量。建议养一般来说，变量先声明再使用，也可以不声明而直接使用变量。建议养成成“显式声明变量显式声明变量”的习惯。一般建议把的习惯。一般建议把VB的工作环境设置成的工作环境设置成“要求要求变量声明变量声明”的状态，就不允许不声明而直接使用变量。设置为这种状态的状态，就不允许不声明而直接使用变量。设置为这种状态后，如果编程者不小心输错了变量名，程序运行时会自动报错，这样，后，如果编程者不小心输错了变量名，程序运行时会自动报错，这样，很容易找到错误。很容易找到错误。1.设置方法设置方法4.7 关于
22、变量声明的说明关于变量声明的说明 定义的变量：intTemp。编程时误写为intTmp运行时就会出现如图所示的错误2.示例示例4.8 认识认识VBVB的内部函数的内部函数例如：例如：txt_Total2.Text=Val(txt_Tax.Text)+Val(txt_Insure.Text)函数名：函数名：val函数参数：一个参数函数参数：一个参数系统中预先编好的常用函数程序，供用户直接调用。系统中预先编好的常用函数程序，供用户直接调用。1.概念：概念：（1）函数名：系统规定好的，用户要根据预实现的运算功能，选择合适的）函数名：系统规定好的，用户要根据预实现的运算功能，选择合适的函数；函数；（2
23、）函数参数：必须放在一对小括号内紧跟在函数名后，不同函数的参数）函数参数：必须放在一对小括号内紧跟在函数名后，不同函数的参数个数、数据类型不同，调用时要保证和要求的匹配；个数、数据类型不同，调用时要保证和要求的匹配；（3）函数值：函数是数据，每一个函数调用后都应有确切的值，属于某一）函数值：函数是数据，每一个函数调用后都应有确切的值，属于某一数据类型。数据类型。2.调用内部函数要注意的三要素：调用内部函数要注意的三要素：4.8 认识认识VBVB的内部函数的内部函数输入函数名字，输入函数名字，例如输入例如输入inputbox在列表框选择要在列表框选择要查找的内容查找的内容所查找的所查找的函数说明
24、函数说明消息框函数消息框函数 Inputbox（）（）取整函数取整函数 int 随机函数随机函数 rnd 截取子串函数截取子串函数left mid right日期时间函数日期时间函数now date year month day weekday weekdayname 3.本章用到的内部函数：（详细使用请查找本章用到的内部函数：（详细使用请查找MSDN）4.9 VBVB中的算术运算符和字符运算符中的算术运算符和字符运算符 优先顺序从高到低排列为：指数（优先顺序从高到低排列为：指数（）、负数（）、负数（-）、乘除）、乘除（*/）、整除（）、整除（）、求余（）、求余（Mod）、加减（）、加减（+-
25、）例如：例如：13 Mod 4=11.算术运算符算术运算符例如：例如：“奥运奥运”+“北京北京”结果为：结果为：“奥运北京奥运北京”“奥运奥运”&“北京北京”结果为：结果为：“奥运北京奥运北京”2.字符运算符字符运算符 “&”和和“+”4.10 本章容易出错的地方本章容易出错的地方 变量是用来存放常量的（数据）。如果把数据比做商品变量是用来存放常量的（数据）。如果把数据比做商品,因为商品因为商品有不同的种类有不同的种类,所以数据也有不同的类型。变量相当于存放商所以数据也有不同的类型。变量相当于存放商品的包装合。品的包装合。1.对数据类型没有理解对数据类型没有理解,导致变量类型定义错误导致变量类
26、型定义错误如果一个变量在一个窗体中的多个过程中都有用，或者说一个过如果一个变量在一个窗体中的多个过程中都有用，或者说一个过程执行结束后，该变量的值在其它过程中还需要用到，那么这程执行结束后，该变量的值在其它过程中还需要用到，那么这个变量就应该定义为窗体变量。个变量就应该定义为窗体变量。2.对变量的作用域没理解对变量的作用域没理解,把窗体变量定义为过程变量把窗体变量定义为过程变量学习目标学习目标1.1.掌握数组的基本概念和数组的应用方式掌握数组的基本概念和数组的应用方式2.2.掌握一维数组的定义与调用掌握一维数组的定义与调用3.3.掌握二维数组的定义与调用掌握二维数组的定义与调用4.4.掌握控件
27、数组的创建方法掌握控件数组的创建方法学习情境二：功能模块设计学习情境二：功能模块设计任务任务2-1：数据录入：数据录入目目 录录5.1 任务描述与任务分析任务描述与任务分析5.2 数组的概念数组的概念5.3 一维数组的声明一维数组的声明5.4 给一维数组赋值的函数给一维数组赋值的函数Array函数函数5.5 数组的应用数组的应用5.6 用一维数组存放员工工资信息用一维数组存放员工工资信息5.7 控件数组控件数组5.8 控件数组的应用控件数组的应用5.9 在在VB案例中使用控件数组案例中使用控件数组5.10 控件数组的应用控件数组的应用5.11 二维数组二维数组5.12用二维数组存放员工信息用二
28、维数组存放员工信息5.13 本章容易出错的地方本章容易出错的地方5.1 任务描述与任务分析任务描述与任务分析 在前面创建的在前面创建的“员工工资管理系统员工工资管理系统”中，只浏览中，只浏览了四组信息，但变量的定义与赋值已经很繁琐。了四组信息，但变量的定义与赋值已经很繁琐。在实际问题中，往往要浏览更多的信息，如果仍在实际问题中，往往要浏览更多的信息，如果仍然用单变量存放数据，那么变量的定义与赋值将然用单变量存放数据，那么变量的定义与赋值将会更加繁。会更加繁。为了使程序中变量的定义语句得以简化，可通过为了使程序中变量的定义语句得以简化，可通过在程序中定义数组来实现。在程序中定义数组来实现。5.2
29、 数组的概念数组的概念 数组由多个元素组成，各元素在内存中的位置是数组由多个元素组成，各元素在内存中的位置是相互关联的，它们有一个共同的名称，各元素由相互关联的，它们有一个共同的名称，各元素由数字编号标识，标识数组元素的数字称为数组的数字编号标识，标识数组元素的数字称为数组的下标，且下标可用变量来表示。下标，且下标可用变量来表示。数组元素的下标的个数决定数组的维数，有一个数组元素的下标的个数决定数组的维数，有一个下标的数组称为一维数组。下标的数组称为一维数组。5.3 一维数组的声明一维数组的声明Dim/Private/Public 数组名数组名(下标下界下标下界 To 下下标上界标上界)As
30、类型类型如：如：Dim a(1 to 5)As Integer 声明数组声明数组a，有，有5个数组元素，分别为：个数组元素，分别为：a(1),a(2),a(3),a(4),a(5)语句格式：语句格式：5.3 一维数组的声明一维数组的声明1.数组的命名：数组名的选取遵循变量的命名规则。本书约定，以数组的命名：数组名的选取遵循变量的命名规则。本书约定，以Arr作为作为标识数组的前缀。标识数组的前缀。2.数组的作用域：与变量相同，分为过程数组，模块数组和全局数组。数组的作用域：与变量相同，分为过程数组，模块数组和全局数组。3.所有的数组必须声明后才可作用。所有的数组必须声明后才可作用。4.下标：下标
31、：必须为正负整数，且满足：上界必须为正负整数，且满足：上界=下界。下界。下界下界 To可缺省，缺省时默认为可缺省，缺省时默认为0。1.可由可由Option Base n指定缺省值指定缺省值(n的值只可为的值只可为0或或1).如果在通用声明区中加入如果在通用声明区中加入Option Base 1语句后，则所有数组缺省的语句后，则所有数组缺省的下标下界时默认值均为下标下界时默认值均为1。5.数组元素的个数：数组元素的个数取决于数组的下标下界与下标上界，数组元素的个数：数组元素的个数取决于数组的下标下界与下标上界，对于一维数组，数组元素的个数可用公式表示为：下标上界对于一维数组，数组元素的个数可用公
32、式表示为：下标上界-下标下界下标下界+1 语句规则：语句规则：5.3 一维数组的使用一维数组的使用1.数组元素可以和简单变量一样使用，凡是能用简单变量的地方都可数组元素可以和简单变量一样使用，凡是能用简单变量的地方都可以用数组元素，如：赋值符的左边、函数的参数以及各种表达式中都可以用数组元素，如：赋值符的左边、函数的参数以及各种表达式中都可以使用数组元素。以使用数组元素。2.调用数组元素时其下标可用变量表示调用数组元素时其下标可用变量表示 数组的调用：数组的调用：使用数组常见的错误使用数组常见的错误 使用没有定义的数组数组下标越界5.4 给一维数组赋值的函数给一维数组赋值的函数Array函数函
33、数(1)定义变体变量定义变体变量 如：如：Dim Vartest As Variant或：或：Dim Vartest(2)用用Array函数对变量赋值函数对变量赋值 如：如：Vartest=Array(10，23，43，21，34)使用步骤：使用步骤：Aarray函数是专用于为一维数组元素赋值的函数函数是专用于为一维数组元素赋值的函数 5.5 数组的应用数组的应用-引例引例2 21.定义一个模块级数组定义一个模块级数组m_strArrWeek(1 to 7)存放字符存放字符“星期一星期一”至至“星期日星期日”2.一个模块变量一个模块变量I,首先通过函数首先通过函数Weekday(Date,vb
34、Monday)对对i赋初值赋初值,将将系统的日期对应的星期值赋给变量系统的日期对应的星期值赋给变量i,显示数组中下标为显示数组中下标为i的元素值，即可实的元素值，即可实现首先显示系统当天的星期。现首先显示系统当天的星期。3.在计时器控件的在计时器控件的Timer()事件中，由事件中，由i=i+1使变量使变量i的值自动增加，最后的值自动增加，最后显示数组中下标为显示数组中下标为i的元素值，即可模拟星期的自动变化。的元素值，即可模拟星期的自动变化。设计如图所示的自动显示星设计如图所示的自动显示星期的电子日历期的电子日历分析分析:数组的应用数组的应用-引例引例2 2Private Sub Form_
35、Load()m_strArrWeek(1)=星期一星期一 m_strArrWeek(2)=星期二星期二 i=Weekday(Date,vbMonday)lbl_Week.Caption=m_strArrWeek(i)End SubPrivate Sub Timer1_Timer()i=i+1 If i 6 Then i=0 lbl_Week.Caption=m_strArrWeek(i)End Sub 代码编写代码编写:5.6 用一维数组存放员工工资信息用一维数组存放员工工资信息定义通用数组定义通用数组在在Form_load()中编写如下代码中编写如下代码:m_strArrNum(1)=001
36、 m_strArrName(1)=张圳张圳 m_intArrWage(1)=1100 m_intArrPrz(1)=500 m_intArrSud(1)=500 对数组赋值对数组赋值 1.将员工工资的每一组同类的数存入一个数组中将员工工资的每一组同类的数存入一个数组中,则需要则需要5个一组数组个一组数组,分别用于存放编号分别用于存放编号,姓名姓名,标准工资标准工资,奖金奖金,补贴等补贴等2.定义定义5个通用数组个通用数组,在窗体加载事件中为数组赋值在窗体加载事件中为数组赋值.定义数组定义数组说明 本案例中使用数组后,好处在于:1.变量的定义得以简化 2.在各浏览按钮中的主要代码完全一样,为以后
37、的内容奠定了基础.5.6 用一维数组存放员工工资信息用一维数组存放员工工资信息修改各浏览按钮的代码修改各浏览按钮的代码“第一个第一个”按钮按钮 i=1 txt_Num.Text=m_strArrNum(i)txt_Name.Text=m_strArrName(i)txt_Wage.Text=m_intArrWage(i)txt_Prize.Text=m_intArrPrz(i)txt_Subsidy.Text=m_intArrSud(i)其他按钮只需将其他按钮只需将i的赋值改成对应的序号的赋值改成对应的序号,其他语句完全相同其他语句完全相同,可直接复制可直接复制5.7 控件数组控件数组 具有相
38、同名称的多个同类控件的集合。具有相同名称的多个同类控件的集合。控件数组控件数组:l控件控件Index属性属性控件数组的标识控件数组的标识1、对窗体上已经画好的一个控件进行先复制再粘贴；、对窗体上已经画好的一个控件进行先复制再粘贴；2、将窗体已经画好的多个名称不同的控件改名为同一名称、将窗体已经画好的多个名称不同的控件改名为同一名称 3、不管用何种方法，创建控件数组时都将弹出如图所示的提示框，、不管用何种方法，创建控件数组时都将弹出如图所示的提示框，当选当选“是是”时则创建了控件数组。时则创建了控件数组。控件数组的创建控件数组的创建:5.8 控件数组的应用控件数组的应用（引例）（引例）为某商场设
39、计一个号码摇奖器。如图所示，当单击为某商场设计一个号码摇奖器。如图所示，当单击“开始开始”按钮按钮时，每隔时，每隔0.3秒产生秒产生5个一位随机数显示于个一位随机数显示于5个标签中，个标签中，组中，要求产生的组数为组中，要求产生的组数为20-30之间的随机数。之间的随机数。试题描述：试题描述：界面上的界面上的5个标签为一组控件数组，个标签为一组控件数组，3个按钮为一组控件数组。要连续个按钮为一组控件数组。要连续产生随机数，需要时钟控件产生随机数，需要时钟控件,且时钟控件的且时钟控件的Interval值为值为300。要求：要求：5.8 控件数组的应用控件数组的应用（引例）（引例）(1)用通用变量
40、用通用变量t和和 k分别用来存放摇奖总次数和计数已分别用来存放摇奖总次数和计数已摇次数摇次数(2)初始时时钟控件不可用初始时时钟控件不可用,单击单击“开始开始”按钮，产生按钮，产生一个一个20-30之间的随机数赋给之间的随机数赋给t，k=0,激活时钟控件激活时钟控件(3)在时钟的在时钟的timer事件中，产生事件中，产生5个一位的随机数显示个一位的随机数显示在控件数组中，在控件数组中，k=k+1,如果如果kt,则时钟变为不可用。则时钟变为不可用。最后显示的最后显示的5个数即为中奖号码。个数即为中奖号码。解题思路：解题思路：5.8 控件数组的应用控件数组的应用（引例）（引例）Private Su
41、b cmd_Fun_Click(Index As Integer)If Index=0 Then 单击单击“开始开始”按钮按钮 Timer1.Enabled=True t=Int(Rnd()*11)+20 ElseIf Index=1 Then 单击单击“清除清除”按钮按钮 lbl_Num(0).Caption=lbl_Num(1).Caption=“lbl_Num(2).Caption=lbl_Num(3).Caption=lbl_Num(4).Caption=Else 单击单击”结束结束”按钮按钮 End End IfEnd Sub 说明:由一个选择结构实现了在一个事件过程代码块中包含三个
42、按钮的单击事件.代码编写代码编写（1）控件数组编写代码）控件数组编写代码由于控件数组中的各控件由于控件数组中的各控件具有同一个名称，所以各具有同一个名称，所以各控件具有相同的事件名称，控件具有相同的事件名称，若若3个按钮的名称为个按钮的名称为cmd_fun,则则3个按钮的单个按钮的单击事件代码块均为：击事件代码块均为：Private Sub _ cmd_Fun_Click(Index As Integer)End Sub 由由Index值来区分事件发生值来区分事件发生在哪一个按钮上在哪一个按钮上.代码如下代码如下:5.8 控件数组的应用控件数组的应用（引例）（引例）Private Sub Ti
43、mer1_Timer()lbl_Num(0).Caption=Int(Rnd*10)lbl_Num(1).Caption=Int(Rnd*10)lbl_Num(2).Caption=Int(Rnd*10)lbl_Num(3).Caption=Int(Rnd*10)lbl_Num(4).Caption=Int(Rnd*10)k=k+1 If k t Then k=0 Timer1.Enabled=False End IfEnd Sub说明:lbl_Num为标簦控件数组的名称.每过0.3秒执行一次,产生5个随机数显示在控件数组中,计数变量k=k+1,再判断kt是否成立,若成立,时钟控件变为不可用
44、代码编写代码编写（2）时钟控件的）时钟控件的Timer事件代码事件代码5.9 在在VB案例中使用控件数组案例中使用控件数组 在在VB案例中主界面上创建控件数组案例中主界面上创建控件数组1.将各文本框的名称依次改为将各文本框的名称依次改为:txt_Wageinfo,则所有文本框组成为控件数组则所有文本框组成为控件数组.2.将四个按钮的名称依次改为将四个按钮的名称依次改为:cmd_Brs 编写浏览按钮代码编写浏览按钮代码Private Sub cmd_Brs_Click(Index As)i=index+1 txt_WageInfo(0).Text=m_strArrNum(i)txt_WageIn
45、fo(1).Text=m_strArrName(i)txt_WageInfo(2).Text=m_intArrWage(i)txt_WageInfo(3).Text=m_intArrPrz(i)txt_WageInfo(4).Text=m_intArrSud(i)End sub说明:程序中的语句i=index+1 表示当前所浏览的员工序号与按钮控件数组的下标的关系,如”第一个”按钮的Index值为0,浏览的为第1 组数据.这样一来,这一组代码即可代码前面章节中的四段代码,程序得到了极大的简化.5.10 5.10 控件数组的应用控件数组的应用(课堂实训课堂实训1)1)如图所示的界面，界面上有四个
46、标如图所示的界面，界面上有四个标签框，组成控件数组，两个按钮签框，组成控件数组，两个按钮分别为分别为“输入输入”，“抽奖抽奖”组成组成控件数组，单击控件数组，单击“输入输入”按钮时按钮时依次弹出四个对话框，用户分别依次弹出四个对话框，用户分别输入四个姓名输入四个姓名,单击单击”抽奖抽奖”按钮按钮时时,显示获奖结果显示获奖结果1.任务描述：任务描述：定义通用一维数组定义通用一维数组m_name(0 to 3)存存放输入的数据放输入的数据,单击单击”抽奖抽奖”按钮时按钮时,将数组各元素的值与字符串将数组各元素的值与字符串”,谢谢谢谢参予参予”连接后显示在标签控件数组连接后显示在标签控件数组中中,再
47、产生一个再产生一个03的随机数的随机数i,在控件在控件数组中下标为数组中下标为i的元素中显示的元素中显示”恭喜恭喜xxx,你中奖了你中奖了”2.任务分析任务分析:5.10 5.10 数组的应用数组的应用(课堂实训课堂实训1)1)dim m_name(0 to 3)Private cmd_fun(index as Integer)select case index case 0 m_name(0)=inputbox(“请输入第请输入第1 个姓名个姓名”)m_name(1)=inputbox(“请输入第请输入第2 个姓名个姓名”)m_name(2)=inputbox(“请输入第请输入第3 个姓名个
48、姓名”)m_name(3)=inputbox(“请输入第请输入第4个姓名个姓名”)Case 1 lbl_name(0)=m_name(0)&“谢谢参予谢谢参予”lbl_name(1)=m_name(1)&“谢谢参予谢谢参予”lbl_name(2)=m_name(2)&“谢谢参予谢谢参予”lbl_name(3)=m_name(3)&“谢谢参予谢谢参予”j=int(3*rnd)lbl_name(j)=“恭喜你恭喜你”&m_name(i)&“,你中奖了你中奖了”End Select End Sub 3.实现代码实现代码5.10 5.10 数组的应用数组的应用(课堂实训课堂实训2)2)解题分析解题分析
49、:赌运气赌运气,界面设计如图所示界面设计如图所示,单击单击”开始开始”按钮时按钮时,产生产生3一位随机一位随机数显示在标签中数显示在标签中.当三个数中没当三个数中没有有7时时,在文本框中显示在文本框中显示:“You are UnLucky”,当三个数中有当三个数中有一个或一个以上的一个或一个以上的7时时,在文本在文本框中显示框中显示”You are Lucky”1.任务描述：任务描述：三个随机数存放在一维数组中三个随机数存放在一维数组中,三个三个标签为控件数组标签为控件数组,由选择结构实现文由选择结构实现文本框中的显示内容本框中的显示内容.2.任务分析任务分析:5.10 5.10 数组的应用数
50、组的应用(课堂实训课堂实训2)2)Private cmd_start()dim a(2)%a(0)=int(10*rnd)a(1)=int(10*rnd)a(3)=int(10*rnd)lbl_num(0)=a(0)lbl_num(0)=a(0)lbl_num(0)=a(0)if a(0)=7 or a(1)=7 or a(2)=7 then txt_ts.Text=“You are Lucky”Else txt_ts.Text=“You are UnLucky”End ifEnd sub 3.实现代码实现代码其中：下界其中：下界1与上界与上界1,下界下界2与上界与上界2分别满足一维数组中与下
