第8章數(shù)組的使用-文庫吧資料
2024-10-06 15:42本頁面
【正文】 分配存儲空間。只要復制的目標數(shù)組不屬于固定大小的數(shù)組，就可以順利地完成數(shù)組的復制。 原始數(shù)組 8 6 9 2 3 A(1) a(2) a(3) a(4) a(5) 第一遍交換 9 6 8 2 3 A(1) a(2) a(3) a(4) a(5) 第二遍交換 9 8 6 2 3 A(1) a(2) a(3) a(4) a(5) 第三遍交換 9 8 6 2 3 A(1) a(2) a(3) a(4) a(5) 第四遍交換 9 8 6 3 2 選擇法的算法程序通用代碼 for I=1 to n1 imin = I for j=I+1 to n if s(j) s(imin) then imin=j next j temp = s(imin) s(imin) = s(I) s(I) = temp next I 冒泡排序 的思想是： 1．將第一個元素和第二個元素比較，如果第一個元素大于第二個元素，則將第一個元素和第二個元素交換； 2．比較第二個元素和第三個元素，以此類推，直到第 n1個元素和第 n個元素； 3．對前 n1個元素重復進行第 1步和第 2步； 4．重復第 3步直到形成一個遞增的數(shù)組。 選擇法排序：對一組數(shù)組中的 n個數(shù)，用選擇法按照遞減的順序排列。排序的方法有很多種，常用的有選擇法，冒泡法，插入法以及合并排序等等，其中最簡單的是選擇法。 s(i) amp。 s(i) amp。 , Next = LTrim(Left(p, Len(p) – 1)) End Sub 求最大值、最小值和平均值 求最大 、 最小以及平均值由“ 確定 ” 按鈕 Command2 的Click事件代碼完成： Private Sub Command2_Click() Dim n As Integer, m As Integer, s As Single min = 100: max = 10: s = 0 For i = 1 To 10 If a(i) n Then max = a(i) If a(i) m Then min = a(i) s = s + a(i) Next = max = min = s / 10 End Sub “重置”按鈕 Command1的 Click事件代碼： Private Sub Command1_Click() Form_Load = = = End Sub 最后是“關閉”按鈕 Command3的Click事件代碼： Private Sub Command3_Click() Unload Me End Sub 交換數(shù)組中各元素 交換的要求就是
教學課件相關推薦
鄂ICP備17016276號-1