VB程序设计课件第5章.ppt

VisualBasic程序设计

VisualBasicProgramming说明：①ReDim语句中的下标可以是常量，也可以是有了确定值的变量。 ②在过程中可以多次使用ReDim语句来改变数组的大小。 ③每次使用Redim语句都会使原来数组中的值丢失，即数组中的内容全部被重新初始化。 ?用Preserve选项，则在对数组重新说明时，将会保留数组中原来的数据。但该参数只能改变最后一维的大小，前面维的大小不能改变。例如：DimsArray()AsSingleSubForm_click()……ReDimsArray(4,8)……EndSub在窗体级声明了数组sArray为动态数组，在Form_click()事件函数中重新指明该数组的大小是5行9列。Dima()asInteger

N=4

redima(n)

N=9

redima(n)

n=10

redima(n,n)Dimatt()asInteger

I=2:J=2

redimatt(I,j)

j=j+1

redimpreserveatt(I,j)例51、动态数组例题：P972、例：Redim语句的使用。输入若干学生的成绩到一维数组，计算平均分和高于平均分的人数，并将平均分和高于平均分的人数放在该一维数组的最后。例61、如何实现学生数的动态变化？可考虑用动态数组，其元素数表示学生数。2、怎样结束学生成绩的输入？可用一个特殊值（如：-99）表示结束输入。3、如何实现在保留原来数据的前提下，将平均分和高于平均分的人数追加到数组的后面？Dima()asInteger

Doscore=InputBox(成绩为：+Str(i))Ifscore-99Then i=i+1 ReDimPreservea(i) a(I)=scoreelse ExitDoEndIfLoop基本概念：由一组具有名称和相同类型的控件组成，数组中的每一控件共享同样的事件过程。当建立控件数组时，系统给每个元素赋一个唯一的索引号（Index），通过属性窗口的Index属性，可以知道该控件的下标是多少，第1个下标是0。例如：一个控件数组有三个option按钮，不论单击哪一个，都会调用同一个Click事件过程。建立的方法：1、创建同名控件。2、复制现存控件。5.4控件数组例8例75.5程序示例常用算法排序算法选择法直接排序法冒泡法查找算法顺序查找折半查找素数的求法定义法筛选法一、常用的排序算法1：选择排序法（比较排序法）基本过程（以降序为例）：将第一个元素顺序与其后面的元素比较，比第一个大则进行交换，第一轮完毕后，最大的元素被挪到了第一个位置，第二轮从第二个元素开始重复上面的过程，结束后得到第二个最大的元素，如此下去经过N-1轮的比较，可将N个数排好举例原始数据：1，2，3，5，4要求：降序第一轮比较：1235421354312545123451234第一轮结束，找到最大值5第二轮比较：51234521345312454123第二轮结束，找到第二最大值4第三轮结果：54312第四轮结果：54321算法表示：(N为排序的维数,OP为操作，升序为“”)fori=1toN-1 ‘外层循环N-1次f