Sorting Program

[amyblueeyes]

How Do I make a program that lets you type in some random data height weight age and name then click sort by age , sort by name ( alphabetically) ... dot dot dot without a external text file data base also this is my basic code except wiht 20 names now

Private Sub Command1_Click()
Dim number(1 To 5) As Integer
Dim counter, temp As Integer

number(1) = 2
number(2) = 4
number(3) = 6
number(4) = 12
number(5) = 9

Print "this is the original list"
Print number(1)
Print number(2)
Print number(3)
Print number(4)
Print number(5)

For Index = 1 To 3
For counter = 1 To 4
If number(counter) > number(counter + 1) Then
temp = number(counter)
number(counter) = number(counter + 1)
number(counter + 1) = temp
End If
Next counter
Next Index

Print "This is the sorted list"
Print number(1)
Print number(2)
Print number(3)
Print number(4)
Print number(5)

End Sub

[jcfowl]

This was code from someone elses algorithm that I modified
slightly. It performs the quicksort algorithm through
recursion.

Private Sub Quicksort(ByRef p_Array(), ByVal inLow As Long, ByVal inHi As Long)
 
   Dim pivot
   Dim tmpSwap
   Dim tmpLow  As Long
   Dim tmpHi   As Long
    
   tmpLow = inLow
   tmpHi = inHi
    
   pivot = p_Array((inLow + inHi) \ 2)
  
   While (tmpLow <= tmpHi)
  
      While (p_Array(tmpLow) < pivot And tmpLow < inHi)
         tmpLow = tmpLow + 1
      Wend
      
      While (pivot < p_Array(tmpHi) And tmpHi > inLow)
         tmpHi = tmpHi - 1
      Wend
 
      If (tmpLow <= tmpHi) Then
         tmpSwap = p_Array(tmpLow)
         p_Array(tmpLow) = p_Array(tmpHi)
         p_Array(tmpHi) = tmpSwap
         tmpLow = tmpLow + 1
         tmpHi = tmpHi - 1
      End If
   
   Wend
  
   If (inLow < tmpHi) Then Quicksort p_Array, inLow, tmpHi
   If (tmpLow < inHi) Then Quicksort p_Array, tmpLow, inHi
 
End Sub

[amyblueeyes]

I cant use that quick sort I have to use bubble sort Its a requirment

[amyblueeyes]

Ha now I am at the top of the list