[医药]VB教学课件第6章数组【医药版】.ppt

第六章 数组 第一节 数组的概念 第一节 数组的概念 第一节 数组的概念 第一节 数组的概念 第一节 数组的概念 第一节 数组的概念 第二节 数组的基本操作 第二节 数组的基本操作 第二节 数组的基本操作 第二节 数组的基本操作 第二节 数组的基本操作 第二节 数组的基本操作 第二节 数组的基本操作 第二节 数组的基本操作 例6-2： 生成一个如下形式的矩阵（见图），并按矩阵元素的排列次序将矩阵输出到图片框或文本框（同时输出也可）。 运行结果： 第二节 数组的基本操作 第二节 数组的基本操作 第二节 数组的基本操作 第二节 数组的基本操作 第二节 数组的基本操作 第二节 数组的基本操作 第三节 动态数组 第三节 动态数组 第三节 动态数组 第三节 动态数组 第三节 动态数组 第三节 动态数组 第三节 动态数组 第四节 控件数组 第四节 控件数组 第四节 控件数组 6.4.2 建立控件数组 控件数组的建立有三种方法： 1）创建同名控件 2）复制现存控件 3）运用代码产生控件数组 通过Load方法添加其余的若干个元素，也可以通过Unload方法删除某个添加的元素。 调用形式： Load 控件数组名(表达式) Unload 控件数组名(表达式) 第四节 控件数组 例6-10 在程序运行时，通过Load语句创建名为Tl的控件数组。运行结果： 第三节 动态数组 第二节 数组的基本操作 数组排序（选择法） 例6-5.8 对已知存放在数组中的n个数，用选择法按递增顺序排序。 (1) 从n个数的序列中选出最小的数(递增)，与第1个数交换位置； (2) 除第1个数外，其余n-1个数再按(1)的方法选出次小的数，与第2个数交换位置； (3) 重复(1)n-1遍，最后构成递增序列。 排序（冒泡法） 例6-5.9 选择法排序在每一轮排序时找最小(递增次序)数的下标，出了内循环(一轮排序结束)，再交换最小数的位置；而冒泡法排序在每一轮排序时只要将第一个与其它几个比较，只要次序不对，就交换，出了内循环，最小数已冒出。排序进行的过程见下表。 (2) 删除 要找到欲删除的元素的位置k；然后从k+1到n个位置开始向前移动；最后将数组元素减1。 第三节 动态数组 例：求一个班级中学生数学成绩的平均值并输出大于平均分的成绩. Dim mark(1 to 32) as single Open app.path “\” “math.dat” for input as #1 Do while not eof(1) i=i+1 Input #1,a(i) Loop Close #1 sum=0 For i=1 to 32 sum=sum+mark(i) Next I avg = sum/32 For i=1 to 32 if mark(i)avg then print mark(i) Next i 赋值 求平均值 输出大于平均分的成绩 Dim mark!(1 to 32) 静态数组的缺陷 当实际元素个数少，浪费空间 当实际元素个数多，不够用，程序出错 元素个数可动态变化的数组 动态数组 在声明数组时未给出数组的大小(省略括号中的下标)，当要使用它时，随时用ReDim语句重新指出数组的维数以及大小(以方便为数组元素分配存储空间)。 形式如下：ReDim 数组名(下标[，下标2…]) [As 类型] 动态数组：声明的时候没有指出数组中元素的个数（数组中元素的个数是动态变化的）。 例 ：Sub Form_Load( ) Dim x( ) As Single 例 求若干个学生的平均分。 … n =Inputbox(“输入n”） ReDim x(n) … End Sub 练习 6.3动态数组 说明： （1）静态数组（元素个数固定）在程序编译（声明）时分配存储单元，动态数组（元素个数不固定）只有在运行（Redim语句）时分配存储单元。 （2) 当数组中元素个数可以确定的时候，则使用ReDim语句来重新定义这个数组；在过程中可多次使用ReDim来改变数组的大小和维数，但一般不改变动态数组的数据类型。 ReDim 中的下标可以是常量，也可以是有了确定值的变量。 (3)每次ReDim将会使原动态数组中的内容清零或清空。可以在ReDim语句后加Preserve参数来保留数组中的数据。使用Preserve只能改变最后一维的大小，前面几维大小和维数不能改变，不用 Preserve 时前