' 陣列處理框架 Public Class Application ' 定義陣列變數 Private Shared myArray(10) As Integer ' 初始陣列內容 Private Shared Sub InitArray() Dim myRandomNumber As New Random() Dim i As Integer For i = 1 To UBound(Me.myArray) Me.myArray(i) = myRandomNumber.Next(1, 100) Next End Sub ' 查詢陣列內容 Private Shared Sub ListArray() Dim i As Integer For i = 1 To UBound(Me.myArray) System.Console.WriteLine("{0:00}:{1:000}", i, Me.myArray(i)) Next End Sub ' 對調陣列元素內容 Private Shared Sub SwapArray(i As Integer, j As Integer) Dim tempValue As Integer tempValue = Me.myArray(i) Me.myArray(i) = Me.myArray(j) Me.myArray(j) = tempValue End Sub ' 處理陣列內容 - 潛水排序法 Private Shared Sub ProcessArray() Dim i, j, minValuePos As Integer Dim tempValue As Integer For i = 1 To UBound(Me.myArray) - 1 tempValue = Me.myArray(i) minValuePos = i ' 找最小值及其陣列位置 For j = i + 1 To UBound(Me.myArray) If tempValue > Me.myArray(j) Then tempValue = Me.myArray(j) minValuePos = j End If Next If i <> minValuePos Then Call Me.SwapArray(i, minValuePos) End If Next End Sub ' 主程式 Public Shared Sub Main() ' 排序前 Call Me.InitArray() Call Me.ListArray() ' 排序後 Call Me.ProcessArray() Call Me.ListArray() End Sub End Class