code220a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 27 行

Public Sub Selection_Sort(ByRef SortArray() As Integer)
  Dim Temp As Integer, Current As Integer, J As Integer

  For Current = 0 To UBound(SortArray)
    For J = Current + 1 To UBound(SortArray)
      If SortArray(Current) > SortArray(J) Then
        Temp = SortArray(Current)
        SortArray(Current) = SortArray(J)
        SortArray(J) = Temp
      End If
   Next J
  Next Current
End Sub

Public Sub Main()
  Dim Values(30) As Integer, I As Integer

  Randomize
  For I = 0 To UBound(Values)
    Values(I) = CInt(Rnd * 100)
  Next
  Selection_Sort Values
  For I = 0 To UBound(Values)
    Debug.Print Values(I)
  Next
End Sub