第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