Page 103 -

○2 ○3 7 8 第五章 陣列與排序

●步驟九：B(3) 與 B(5)比較，結果 B(3)>B(5) 5

B(1) B(2) B(3) B(4) B(5)
5
○2 ○3 7 8
B(5)
所以二個內容交換(7 與 5 對調)，B(3)已經為第三小值。 7

B(1) B(2) B(3) B(4) B(5)
7
○2 ○3 ○5 8
B(5)
●步驟十：B(4) 與 B(5)比較，結果 B(4)>B(5) ○8

B(1) B(2) B(3) B(4)

○2 ○3 ○5 8

所以二個內容交換(8 與 7 對調)，完成由小到大排序。

B(1) B(2) B(3) B(4)
○2 ○3 ○5 ○7

範例二：寫一程式同時執行氣泡排序及選擇排序。

(一)表單物件說明

物件名稱 屬性 物件樣式

Form1 Text=”排序法練習”
Label1 Text=” 排序數字

Button1 56,83,24,78,36,15,68,41,19,93”
Button2 Font=12pt；AutoSize=False
Label2
TextAlign=MiddleCenter
Text=”由小到大氣泡排序”
Text=”由大到小選擇排序”
Text=””；Font=12pt

AutoSize=False
TextAlign=MiddleCenter
BackColor=Coral

(二)程式碼

Public Class Form1
Private Sub Button1_Click(sender As System.Object, e ………………
Dim B() As Integer = {56, 83, 24, 78, 36, 15, 68, 41, 19, 93}
Dim temp As Integer, op As String
For i = 8 To 0 Step -1
For j = 0 To i
If B(j) > B(j + 1) Then
temp = B(j) : B(j) = B(j + 1) : B(j + 1) = temp

99