第四章数组与自定义数据类型选读.ppt

2）通过InputBox函数 如果数组元素的值无法预先确定，需要在运行时通过键盘输入，可通过InputBox函数赋值 3）使用Array函数 格式：数组名=Array(?数组元素值表) Array函数可对变体类型的一维动态数组赋值 数组元素的个数由数组元素值表中数据个数决定，数组下标下界可由LBound函数得到，下标上界可由UBound函数得到。 Dim score(1 To 30) For i = 1 To 30 score(i) = InputBox(请输入第 i 成绩) Next i 思考:缺点? 4）使用文本框和split函数 格式： 数组变量名=Split（字符串表达式，分隔符） 将文本框中输入的内容用Split函数分离成一个个数据，存放到数组中。 注意：用Split函数赋值的数组的最小下标均从0开始,下标上界可用Ubound函数 说明：只用于对动态字符型数组赋值 且数组下标只能从0开始， option base 1 无效 a = Split(Text1, ,) For i = LBound(a) To UBound(a) Print a(i) Next i 数组元素的输出 通过for…next 循环或循环的嵌套，使用print方法输出，注意控制输出格式。 …… For i=1 to n Print tab(((i-1)mod 5)*8);a(i); Next i …… 一维数组 …… For i=1 to m for j=1 to n print a(i，j); next j print Next i …… 二维数组 数组应用总结： 实现多数据成批输入和输出（矩阵输出） 简单统计 分数段 统计字母个数 最大、最小元素位置 排序问题：对有n 个数的序列，使其构成数组；使数组下标按一定规律变化，分别取到各个元素；分别比较两个数字（数组元素a(i)与a(j)）的大小关系，满足一定条件后，交换位置，最后实现有序输出。 比较交换法(升序) 若有n个数，第一轮时，取数组的第1个元素，分别与其后的第2，3，……n 个元素比较，只要后面的数比第一个数小，就和第一个数组元素交换位置，第一轮比较完成后，数组中的第一个元素就是整个数组中最小的；直到n-1轮。 For i = 1 To 7 For j = i + 1 To 8 If a(i) a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next j 选择法 在比较交换的基础上，比较完第i轮后，通过找到最小元素的下标，使最小元素和第I个数组元素实现一次交换，可以大大降低交换数据的次数，最多只交换n-1次。 For i = 1 To 7 k = i For j = i + 1 To 8 If a(k) a(j) Then k = j Next j t=a(i):a(i)=a(k):a(k)=t Next i 冒泡法 若有n个数，将相邻的两数比较，每一轮比较时，若有m 个数，只要比较m-1次，一轮比较完成后，最大的数可以找到，并放在数组的最后一个元素中；下一轮比较时，需比较的数的总数数减少一个；直到剩下两个数作比较完成 For n = 8 To 2 Step -1 For i = 1 To n - 1 If a(i) a(i + 1) Then t = a(i): a(i) = a(i + 1): a(i + 1) = t End If Next i 查找 顺序查找 二分法查找（限于有序数组） 数组元素移位、插入、删除 通过数组元素的下标，找到位置，再做相应变换 控件数组 由同一类型控件构成，共用一个控件名称，具有相同属性，并共用同一个事件过程。各控件元素通过索引号（下标）来区别。 一 建立： 在设计时建立 使创建的多个控件同名，具有不同索引值（index） 对已创建的控件复制，粘贴，创建控件数组 2 在程序运行的时创建 先建立控件数组的第一个元素，设置其Index属性为0 在编程中通过Load 方法添加其余的若干个元素，用Unload 方法删除某个添加的元素。(注意，动态添加的控件默认v