任务四应用过程数组循环拓展功能.pptVIP

数组－排序问题 (选学) [例] 用冒泡法完成10个随机数的升序排序 Const N = 10 : Dim D(N) As Integer, I%, J%, T% Randomize() For I = 1 To N D(I) = Rnd * 100: Debug.write (D(I) “,”) Next I Debug.writeline(“”) For I = N - 1 To 1 Step -1 大数逐个沉底 For J = 1 To I If D(J) D(J + 1) Then T = D(J): D(J) = D(J + 1): D(J + 1) = T End If Next J Next I For I = 1 To N 输出排序结果 Debug.write (D(I) “,”) Next I 最大的数成为第N个元素(沉底)： I = N - 1 For J = 1 To N-1 这里N-1等价I If D(J) D(J + 1) Then T = D(J): D(J) = D(J + 1): D(J + 1) = T End If Next J 数组－动态数组 1. 在VB.NET中,所有数组都是变长的,也就是说所有数组都是动态数组. 2.声明一个数组时可以指定它的长度,但这个长度只是初始长度,可以使用ReDim语句来修改它. 3.使用ReDim语句重新定义一个数组时,不能改变数组的维数,也不能改变数组的类型. 4.使用ReDim语句重新定义一个数组时,数组原有的值会丢失.但可以在ReDim语句中使用Preserve关键字来保持这些值. 5.如果在ReDim语句中使用Preserve关键字,那么只能改变最后一维的长度. 例: Dim B(4) As Integer For I = 0 To 4 B(I) = I Next I ReDim PreServe B(6) 数组－二维数组 (选学) 1. 二维数组的定义(声明) 二维数组由行和列组成，有两个下标 定义格式： Dim 数组名( 下标1 ，下标2 ) As 数据类型 或 Dim 数组名( ，) As 数据类型 = { 值 } 例如，Dim Data( 5，9) As Integer 注意: ⑴下界默认为0 例如， Dim Salary(30,10) As Decimal 31行11列 ⑵二维数组有行、列两维，通常需使用二重循环引用 数组－二维数组 (选学) 二维数组中的数据按行存储，其引用与一维数组相似。 Dim A(2, 3) As Integer, I%, J%, C% For I = 0 To 2 For J = 0 To 3 数组赋值 A(I, J) = C : C = C + 1 Next J Next I For I = 0 To 2 输出数组 For J = 0 To 3 Debug.Write( A(I, J) “ “) Next J Debug.Writeline(“”) 另起一行打印 Next I A(0,0)=0 A(0,1)=1 A(0,2)=2 A(0,3)=3 A(1,0)=4 A(1,1)=5 A(1,2)=6 A(1,3)=7 A(2,0)=8 A(2,1)=9 A(2,2)=10 A(2,3)=11 数组－二维数组 (选学) 2. 二维数组应用举例 － [例] Dim D%(9, 9), I%, J% For I = 1 To 9 For J = 1 To 9 If I = J Or I = 10 - J Then D(I, J) = 1 Else D(I, J) = 5 End If Next J Next I For I = 1 To 9 For J = 1 To 9 Debug.Write( D(I, J) “ “) Next J