第05节 数组(6学时).pptVIP

Private sub form_click( ) Static s(3) as Integer End sub 与前述的静态变量类似，静态数组的特点是，在调用过程时，它的各个元素会继承上次退出该过程时对应元素的值。 数组函数和数组语句 Lbound函数:返回数组某维的维下界值。 Lbound(数组名，[维数]) 例:Lbound(A,1) Ubound函数 Ubound(数组名,[维数]) 例:Ubound(B,2) Erase语句 重新初始化固定大小数组的各元素,或者释放动态数组的存储空间。 For Each -Next语句 为数组中的每个元素重复执行一组语句。 重复执行某些操作直到完成指定的循环次数， vb跟踪必须处理的元素的总数,处理每一个元素，并在到达数组或集合末尾时自动停止循环。 4、利用Array函数可以把一个数据集赋值给一个Variant变量，再将该Variant变量创建成一个一维数组。 变体变量名=Array([数据列表]) Option Base 1private sub form_click( ) dim a as variant , I as integer , b(4) as variant  a=array(5,4,3,2,1) print a(1);a(2)；a(3)；a(4)；a(5) a=array(1.5！，2.3！,3.6！,4.1！) ‘!为单精度类型 print a(1)；a(2)；a(3)；a(4) a=“no array” print a B=array(1,2,3,4,5,6) ’错误语句why?end sub 基本概念：由一组具有名称和相同类型的控件组成，数组中的每一控件共享同样的事件过程。当建立控件数组时，系统给每个元素赋一个唯一的索引号（Index），通过属性窗口的Index属性，可以知道该控件的下标是多少，第1个下标是0。 例如：一个控件数组有三个option按钮，不论单击哪一个，都会调用同一个Click事件过程。 建立的方法：1、创建同名控件。2、复制现存控件。 排序算法 选择法 直接排序法 冒泡法 查找算法 顺序查找 折半查找 素数的求法 定义法 筛选法 例5-12 有15名学生按照已有的编号顺序围成一圈，1~3报数，凡报到3者出圈，并给他一个新的编号。最先出圈者新的编号为1，第二个出圈者新的编号为2，依次类推，直到所有的学生都重新编号。 例5 1、动态数组例题：P97 2、例： Redim语句的使用。 输入若干学生的成绩到一维数组，计算平均分和高于平均分的人数，并将平均分和高于平均分的人数放在该一维数组的最后。 例6 1、如何实现学生数的动态变化？可考虑用动态数组，其元素数表示学生数。 2、怎样结束学生成绩的输入？可用一个特殊值（如：-99）表示结束输入。 3、如何实现在保留原来数据的前提下，将平均分和高于平均分的人数追加到数组的后面？ Dim a( ) as IntegerDo score = InputBox(成绩为： + Str(i)) If score -99 Then i = i + 1 ReDim Preserve a(i) a(I)=score else Exit Do End If Loop 5.4 控件数组 例8 例7 5.4.3使用控件数组 1、ｌｏａｄ　 　格式如下：load object(index) 功能：向控件数组添加控件 说明：object是指在控件数组中添加的控件名称，index 是控件在数组中的索引值 注：加载新元素到控件数组时，不会自动把visible,index,tabindex属性设置复制到控件数组的新元素，所以在程序中用设置 1、unload　 　格式如下：unload object(index) 功能：删除用load语句产生的对象数组元素 例100 5.5 程序示例 常用算法 一、 常用的排序算法 1：选择排序法（比较排序法） 基本过程（以降序为例）：将第一个元素顺序与其后面的元素比较，比第一个大则进行交换，第一轮完毕后，最大的元素被挪到了第一个位置，第二轮从第二个元素开始重复上面的过程，结束后得到第二个最大的元素，如此下去经过 N-1 轮的比较，可将 N 个数排好 举例 原始数据： 1，2，3，5，4 要求：降序 第 一 轮 比 较 ： 1 2 3 5 4 2 1 3