VisualBasic程序设计实用教程教学课件作者周晓宏vb05在程序中使用数组.课件(335KB).ppt

第5章 在程序设计使用数组 师生共勉 人生有一道难题，那就是如何使一寸光阴等于一寸生命 目录 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用二维数组存放员工信息 5.13 本章容易出错的地方 5.14 课堂实训与课后练习 师生共勉 人生有一道难题，那就是如何使一寸光阴等于一寸生命 5.1 问题引入和问题分析 在前面创建的“员工工资管理系统”中，只浏览了四组信息，但变量的定义与赋值已经很繁琐。在实际问题中，往往要浏览更多的信息，如果仍然用单变量存放数据，那么变量的定义与赋值将会更加繁。 为了使程序中变量的定义语句得以简化，可通过在程序中定义数组来实现。 5.2 数组的概念 数组由多个元素组成，各元素在内存中的位置是相互关联的，它们有一个共同的名称，各元素由数字编号标识，标识数组元素的数字称为数组的下标，且下标可用变量来表示。 数组元素的下标的个数决定数组的维数，有一个下标的数组称为一维数组。 5.3 一维数组的声明 Dim[/Private/Public] 数组名([下标下界 To ]下标上界) [As 类型] 如：Dim a(1 to 5) As Integer 声明数组a，有5个数组元素，分别为：a(1),a(2),a(3),a(4),a(5) 语句格式： 5.3 一维数组的声明 数组的命名：数组名的选取遵循变量的命名规则。本书约定，以Arr作为标识数组的前缀。 数组的作用域：与变量相同，分为过程数组，模块数组和全局数组。3. 所有的数组必须声明后才可作用。 4. 下标： 必须为正负整数，且满足：上界=下界。 [下界 To]可缺省，缺省时默认为0。 可由Option Base n指定缺省值(n的值只可为0或1). 如果在通用声明区中加入Option Base 1语句后，则所有数组缺省的下标下界时默认值均为1。 5. 数组元素的个数：数组元素的个数取决于数组的下标下界与下标上界，对于一维数组，数组元素的个数可用公式表示为：下标上界 - 下标下界 + 1 语句规则： 5.3 一维数组的使用 1.数组元素可以和简单变量一样使用，凡是能用简单变量的地方都可以用数组元素，如：赋值符的左边、函数的参数以及各种表达式中都可以使用数组元素。 2.调用数组元素时其下标可用变量表示 数组的调用： 使用数组常见的错误 使用没有定义的数组 数组下标越界 5.4 给一维数组赋值的函数——Array函数 (1) 定义变体变量 如：Dim Vartest As Variant或：Dim Vartest (2) 用Array函数对变量赋值 如：Vartest = Array(10，23，43，21，34) 使用步骤： Aarray函数是专用于为一维数组元素赋值的函数 5.5 数组的应用-引例2 1. 定义一个模块级数组m_strArrWeek(1 to 7) 存放字符“星期一”至“星期日”2.一个模块变量I,首先通过函数Weekday(Date, vbMonday)对i赋初值,将系统的日期对应的星期值赋给变量i,显示数组中下标为i的元素值，即可实现首先显示系统当天的星期。3.在计时器控件的Timer()事件中，由i=i + 1使变量i的值自动增加，最后显示数组中下标为i的元素值，即可模拟星期的自动变化。 设计如图所示的自动显示星期的电子日历 分析: 数组的应用-引例2 Private Sub Form_Load() m_strArrWeek(1) = 星期一 m_strArrWeek(2) = 星期二 … i = Weekday(Date, vbMonday) lbl_Week.Caption = m_strArrWeek(i) End Sub Private 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 m_strArrName(1) = 张圳 m_intArrWage(1) = 1100 m_intArrP