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

2）通过InputBox函数如果数组元素的值无法预先确定，需要在运行时通过键盘输入，可通过InputBox函数赋值 3）使用Array函数格式：数组名=Array(?数组元素值表)Array函数可对变体类型的一维动态数组赋值数组元素的个数由数组元素值表中数据个数决定，数组下标下界可由LBound函数得到，下标上界可由UBound函数得到。 Dim score(1 To 30) For i = 1 To 30score(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 nprint a(i，j);next jprint Next i …… 二维数组 数组应用总结： 实现多数据成批输入和输出（矩阵输出） 简单统计 分数段 统计字母个数 最大、最小元素位置 排序问题：对有n 个数的序列，使其构成数组；使数组下标按一定规律变化，分别取到各个元素；分别比较两个数字（数组元素a(i)与a(j)）的大小关系，满足一定条件后，交换位置，最后实现有序输出。 比较交换法(升序)若有n个数，第一轮时，取数组的第1个元素，分别与其后的第2，3，……n 个元素比较，只要后面的数比第一个数小，就和第一个数组元素交换位置，第一轮比较完成后，数组中的第一个元素就是整个数组中最小的；直到n-1轮。 For i = 1 To 7For j = i + 1 To 8If a(i) a(j) Thent = a(i): a(i) = a(j): a(j) = tEnd If Next j 选择法在比较交换的基础上，比较完第i轮后，通过找到最小元素的下标，使最小元素和第I个数组元素实现一次交换，可以大大降低交换数据的次数，最多只交换n-1次。 For i = 1 To 7k = iFor j = i + 1 To 8If a(k) a(j) Thenk = jNext j t=a(i):a(i)=a(k):a(k)=t Next i 冒泡法若有n个数，将相邻的两数比较，每一轮比较时，若有m 个数，只要比较m-1次，一轮比较完成后，最大的数可以找到，并放在数组的最后一个元素中；下一轮比较时，需比较的数的总数数减少一个；直到剩下两个数作比较完成 For n = 8 To 2 Step -1For i = 1 To n - 1If a(i) a(i + 1) Thent = a(i): a(i) = a(i + 1): a(i + 1) = tEnd IfNext i 查找 顺序查找 二分法查找（限于有序数组） 数组元素移位、插入、删除 通过数组元素的下标，找到位置，再做相应变换 控件数组由同一类型控件构成，共用一个控件名称，具有相同属性，并共用同一个事件过程。各控件元素通过索引号（下标）来区别。 一 建立： 在设计时建立 使创建的多个控件同名，具有不同索引值（index） 对已创建的控件复制，粘贴，创建控件数组 2 在程序运行的时创建 先建立控件数组的第一个元素，设置其Index属性为0 在编程中通过Load 方法添加其余的若干个元素，用Unload 方法删除某个添加的元素。(注意，动态添加的控件默认visible为false) 新添的控件数组元素通过Left和top属性值，确定它在窗体上的具体位置。 用户定义类型 可构造包含多个数据项的属性集合，就是自定义类型。 学号 姓名 高数 英语 计算机 平均 1001 Tt1 96 87 69 84 1002 Tt2 69 96 89 84.67 1003 Tt3 87 86 78 83.67 1004 Tt4 69 78 68 71.67 建立和使用： 定义数据类型： Type 用户类型名 字段名1 As 类型名1 … …… 字段名n As 类型名n