第8章数组的使用

第8章数组的使用内容摘要：

next I 冒泡排序 的思想是： 1．将第一个元素和第二个元素比较，如果第一个元素大于第二个元素，则将第一个元素和第二个元素交换； 2．比较第二个元素和第三个元素，以此类推，直到第 n1个元素和第 n个元素； 3．对前 n1个元素重复进行第 1步和第 2步； 4．重复第 3步直到形成一个递增的数组。 下面是实现 冒泡排序的通用程序段 ：为了通用性更强，这里给出含有 n个元素的数组的排序程序代码： For I = n1 to 1 step –1 For j=1 to I If S（ j） S(j+1) then Temp =S(j) S(j)=s(j+1) S(j+1) = Temp End If Next j Next I 数组的复制 “复制数组”是指将整个数组的内容复制到另一个数组中。 只要复制的目标数组不属于固定大小的数组，就可以顺利地完成数组的复制。 例如： Dim a（ 2） Dim b（ 3） Dim obj（） c = Array（ 10， 11， 12， 13） d = Array（‘ a’，‘ b’，‘ c’，‘ d’，‘ e’） b = c ‘这一句是错误的，因为 b是一个固定大小的数组 a = c ‘错误， a的大小固定，且数组元素个数也不等 obj = c ‘正确 c = d ‘正确，因为此处 c的大小不固定 但是下面程序段是正确的： for I=0 to 3 b（ I） =d（ I） next I 动态数组的使用 在声明中不给出数组的大小（省略数组声明中括号中的下标），当要使用它的时候，随时可以用 ReDim语句来重新定义该数组的大小。 使用动态数组的优点在于用户可以根据自己的需要来有效地利用存储空间，在程序执行到 ReDim语句时分配存储空间，而静态数组是在程序编译时就分配存储空间。 声明动态数组的方法：使用 Dim， Private或 Public语句声明一个不写下标的数组，然后在后面需要的时候再用 ReDim语句来指出数组的大小。 语句的形式如下： Dim sa（） [AS 类型 ] …… ReDim sa（下标 1[，下标 2，下标 3……] ） [AS 类型 ] 其中：下标 I可以是常量，也可以是有了确定值的变量。 例如： Dim sa（） AS Integer Private Sub Form_click() ReDim sa（ 4,8） …… End Sub 二维数组 二维数组就是有两个下标的数组，用来表示一些分组的元素。 它的定义方法如下所示： Dim 数组名（下标 1，下标 2） [AS 类型 ] 对于其中的每一个下标，都可以采用下界 To 上界的格式来定义，从而使得数组的存放符合人。