?? code220a.txt
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -