常用排序算法之选择排序与冒泡排序

 

' 选择,冒泡排序
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)