常用排序算法之插入排序与希尔排序

' 插入排序
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  ISort(byRef  Array , low, hi)
Dim  i, j, t
For  i  =  low + 1   To  hi
   t  =   Array (i)
   j  =  i  -   1
    Do
     If  j  <  low  Then  
      Exit   Do
     End   If
     If   Array (j)  >  t  Then
      Array (j + 1 )  =   Array (j)
     j  =  j  -   1
     Else
      Exit   Do
     End   If
    Loop
    Array (j + 1 )  =  t
Next
End Sub

ISort 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  SortWithStep(byRef  Array , low, hi, stp)
Dim  s, i, j, t
For  s  =   0   To  stp - 1
     For  i  =  s + low + stp  To  hi Step stp
           t  =   Array (i)
           j  =  i - stp
            Do
                 If  j  <  s + low  Then  
                      Exit   Do
                 End   If
                 If   Array (j)  >  t  Then
                      Array (j + stp)  =   Array (j)
                     j  =  j  -  stp
                 Else
                      Exit   Do
                 End   If
            Loop
            Array (j + stp)  =  t
     Next
Next
End Sub

' 希尔排序
Sub  ShellSort(byRef  Array , low, hi)
Dim  Step
Step  =   Int ((hi - low + 1 ) / 2 )  +   1
Do
    SortWithStep  Array , low, hi, Step
     If  Step  <   1   Then  
         Exit   Do
     Else
        Step  =   Int (Step / 2 )
     End   If
Loop
End Sub

ShellSort TestData,  0 , N  -   1

For  I  =   0   To  N  -   1
Result  =  Result  &  TestData(I)  &  VbTab
Next

MsgBox (Result)