第7 8讲 数组与自定义类型.pptVIP

代码实现 递增排序 15 8 4 13 6 10 4 8 15 13 6 10 4 6 15 13 8 10 4 6 8 13 15 10 递增排序 4 6 8 13 15 10 4 6 8 10 15 13 4 6 8 10 13 15 7.4 常用算法举例 3、查找 查找是在数组中根据指定内容，找出与其相同的元素。常用的方法有顺序查找和二分法查找。 例7-8 给定一组数15、8、4 、13、6、10、17、1，从键盘输入一个数，用顺序查找法找出该数在数组中的位置。 15 8 4 13 6 10 x 13 p false P为flase表示未找到；p为true表示找到 待查找的数 15 8 4 13 6 10 x 13 p false 找到，将p值改为true p true 最终根据变量p的值来判断是否找到 代码实现 Dim x%,m%,n%,i%,p as boolean a=array(15,8,4,13,6,10,17,1) m=Lbound(a) n=Ubound(a) For i=m to n Print a(i); Next i print x=val(inputbox(“enter a data”)) p=flase For i=m to n If x=a(i) then p=true:exit for Next i If p then Msgbox “在” i “位置找到” else Msgbox “未找到” End if 7.4 常用算法举例 4、插入或删除数组元素 在数组中插入元素的过程是： (1) 输入插入的位置及要插入的数； (2) 增加数组元素个数； (3) 将待插入位置以后的数逐一后移一位，腾出插入位置； (4) 在插入位置上插入数。 例7-9 已知一组数15,8,4,13,6,10,17,1，插入一个数到数组指定位置。 15 8 4 13 6 10 4 n 17 x 在第n个位置插入数据x 15 8 4 13 13 6 10 15 8 4 13 6 10 17 x 15 8 4 17 13 6 10 n l u 代码实现 Dim a(),n%,x%,l%,u% a=array(15,8,4,13,9,10) n=val(inputbox(”输入插入位置”)) x=val(inputbox(”输入插入的数”)) Redim preserve a(l to u+1) l=Lbound(a) u=Ubound(a) For i=u to n step -1 a(i+1)=a(i) Next i a(n)=x For i=l to u+1 Print a(i); Next i 7.4 常用算法举例 课后练习已知一组数15,8,4,13,6,10,17,1, 从数组中删除指定的数。 (1) 输入要删除的数； (2) 在数组中找到要删除的数的位置k，如果数组中没有要删除的数，输出提示信息； (3) 将k以后的每一个元素前移一位，覆盖要删除的数； (4) 减少数组元素的个数，完成删除。 Dim a(),n%,x%,l%,u%,p as boolean,k% a=array(15,8,4,13,6,10,17,1) l=Lbound(a) u=Ubound(a) x=val(inputbox(”输入要删除的数”)) p=false For i=l to u If x=a(i) then p=true:k=i Exit for End if Next i If p=false then Msgbox “未找到要删除的数” else For i=k+1 to u a(i-1)=a(i) Next i Redim preserve a(l to u-1) For i=l to u-1 Print a(i); Next i 7.4 常用算法举例 5、矩阵运算 常见的矩阵运算包括矩阵的加、减、乘、除、转置等，程序设计中一般用二维数组来描述矩阵。 例如：有一个5行5列的二维数组，其元素值是随机产生的，请将其转置后输出，并求出了两条对角线上各元素之和。 7.5 控件数组 1、基本概念 控件数组由一组同类控件组成，它们共用一个控件名，具有相同的属性，系统给每个控件数组元素赋予惟一的一个索引号（类似于数组元素的下标），第1个控件数组元素的索引号为0，第2个控件数组元素的索引号为1，依次类推。 控件数组中的元素具有共同的事件过程。 7.5 控件数组 2、建立控件数组的方法 （1）设计时建立 （2）在程序运行时建立（自学） 3、应用举例 例7-14 输入两个数，根据不同的运算符计算相应的运算结果。 7.6自定义数据类型 学号 姓名 性别