《Visual_Basic程序设计》第章-邵洁主编-第四版.pptVIP

从小到大排列算法表示： For I = 1 To n–1 for j = 1 to n-I if a(j) a(j+1) then t = a(j) a(j）= a(j+1) a(j+1)=t end if next j Next I 原始数据：8 6 9 3 2 7 第一轮 6 8 3 2 7 9 第二轮 6 3 2 7 8 9 第三轮 3 2 6 7 8 9 第四轮 2 3 6 7 8 9 第五轮 2 3 6 7 8 9 Visual Basic 程序设计 4.数组元素的插入和删除 进行数组元素的插入或删除时，首先要定位，然后进行数组元素的顺序移动。 (1)插入 将一个数k插入到有序数组a(n)中，使插入后的数组仍然有序。 插入算法: ①先确定k在数组中的位置j ②将a(j)～a(n)顺序向后 移动一个位置 ③将k置入a(j)中 Visual Basic 程序设计 Dim i%, j% ReDim Preserve iA(10) 保留ia()中的原数据 For j = 1 To 9 If k iA(j) Then Exit For 插入位置定位 Next j For i = 9 To j Step -1 iA(i + 1) = iA(i) 数据移动 Next i iA(j) = k For i = 1 To 10 Picture2.Print iA(i); Next i Visual Basic 程序设计 (2) 删除 从上例运算结果的10个元素中删除元素13。 删除算法： ①先确定要删除的元素k在数组中的位置j ②将a(j+1)～a(n)顺序向前移动一个位置 ③用ReDim将数组的体积减少1 Visual Basic 程序设计 5.顺序查找 基本思路：从第一个元素开始逐一比较，直到末尾 实现的方法可以有多种，例如算法表示：假设x为待查数，数 组A中总共有n个数。 For i=1 to n If a(i)=x Then Exit For End If Next i If i=n Then Print X;Space(2);”被找到！” Else Print X;Space(2);”未找到！” End If Visual Basic 程序设计 1.静态数组声明下标出现变量 n = InputBox(输入数组的上界) Dim a(1 To n) As Integer 2.数组下标越界 引用的下标比数组声明时的下标范围大或小。 Dim a(1 To 30) As Long, i% a(1) = 1: a(2) = 1 For i = 3 To 30 a(i) = a(i - 2) + a(i - 1) Next I 5.6 常见错误 Visual Basic 程序设计 3.数组维数错 数组声明时的维数与引用数组元素时的维数不一致。 Dim a(3, 5) As Long a(I)=10 4.Aarry函数使用问题 只能对Variant 的变量或动态数组赋值。 5.获得数组的上界、下界 UBound 、Lbound函数 Visual Basic 程序设计 Visual Basic 程序设计 5.1 数组的概念 5.2 数组的基本操作 5.3 动态数组 5.4 控件数组 5.5 常用算法（二） 5.6 常见错误 第5章 数组 Visual Basic 程序设计 ☆ 数组元素是带有下标的变量，其一般形式为： 数组名（下标1 [，下标2，……]） 如： A(2) B(2+2,1) C(1*2,3,1) A(2) =(A(0) A(1