'
选择,冒泡排序
Option Explicit
Dim Result, I
Dim TestData( 100 )
const N = 100
Randomize
For I = 0 To N - 1
TestData(I) = ROUND ( RND () * 32768 )
Next
' 选择排序
Sub SSort(byRef Array , low, hi)
Dim t, i, j, pos
For i = hi To low + 1 Step - 1
pos = i
For j = i - 1 To low Step - 1
If Array (pos) < Array (j) Then
pos = j
End IF
Next
t = Array (i)
Array (i) = Array (pos)
Array (pos) = t
Next
End Sub
' 冒泡排序
Sub BubbleSort(byRef Array , low, hi)
Dim t, i, j
For i = hi - 1 To low Step - 1
For j = low To i
If Array (j) > Array (j + 1 ) Then
t = Array (j)
Array (j) = Array (j + 1 )
Array (j + 1 ) = t
End IF
Next
Next
End Sub
BubbleSort TestData, 0 , N - 1
For I = 0 To N - 1
Result = Result & TestData(I) & VbTab
Next
MsgBox (Result)
Option Explicit
Dim Result, I
Dim TestData( 100 )
const N = 100
Randomize
For I = 0 To N - 1
TestData(I) = ROUND ( RND () * 32768 )
Next
' 选择排序
Sub SSort(byRef Array , low, hi)
Dim t, i, j, pos
For i = hi To low + 1 Step - 1
pos = i
For j = i - 1 To low Step - 1
If Array (pos) < Array (j) Then
pos = j
End IF
Next
t = Array (i)
Array (i) = Array (pos)
Array (pos) = t
Next
End Sub
' 冒泡排序
Sub BubbleSort(byRef Array , low, hi)
Dim t, i, j
For i = hi - 1 To low Step - 1
For j = low To i
If Array (j) > Array (j + 1 ) Then
t = Array (j)
Array (j) = Array (j + 1 )
Array (j + 1 ) = t
End IF
Next
Next
End Sub
BubbleSort TestData, 0 , N - 1
For I = 0 To N - 1
Result = Result & TestData(I) & VbTab
Next
MsgBox (Result)