Total Visual SourceBook

Total Visual SourceBook CD and Printed Manual

Microsoft Access/ Office 2016, 2013, 2010, and 2007 Version
is Shipping!

New features in Total Visual SourceBook for Access, Office 2007 and VB6

Supports Access/Office 2016, 2013, 2010 and 2007, and Visual Basic 6.0!

Separate version for Access/Office 2003, 2002, and 2000.

Separate version for:
Access 97/95


View all FMS products for Microsoft AccessAll Our Microsoft Access Products

SourceBook Info:

Why SourceBook?

 

"The code is exactly how I would like to write code and the algorithms used are very efficient and well-documented."

Van T. Dinh, Microsoft MVP

 

 

 

Microsoft Access, Office/VBA, VB6 Modules royalty-free source code libraryMicrosoft Access Modules royalty-free source code libraryMicrosoft Access VBA and VB6 Module Library Free trial of Total Visual SourceBook for Microsoft Access, Office, VB6 and VBA

Module: Sort in Category General VBA/VB6 : Searching and Sorting from Total Visual SourceBook

Sort a array using a BubbleSort, QuickSort, or ShellSort algorithms in VBA and VB6.

Procedure List

Procedure Name

Type

Description

(Declarations) Declarations Declarations and private variables for the modSort module
BubbleSortVariantArray Procedure Sort a variant array using the bubble sort algorithm.
QuickSortVariantArray Procedure Sort a variant array using the quick sort algorithm. This function uses a recursive algorithm. For large data sets you may run out of stack space.
ShellSortVariantArray Procedure Sort a variant array using the shell sort algorithm.

Example Code for Using Module: Sort

Private Sub Example_modSort()
  ' Comments: Example of using the modSort module to sort an array in VBA and VB6.
  '           See the sorting information in the Immediate Window

  Dim avarIn() As Variant
  Dim intCounter As Integer

  Randomize Timer

  ' Create array
  ReDim avarIn(1000)
  For intCounter = 0 To 1000
    avarIn(intCounter) = Int((1000) * Rnd + 1)
  Next intCounter

  ' Example of BubbleSortVariantArray, sorted in ascending order
  BubbleSortVariantArray avarIn, True

  Debug.Print "First ten ascending for BubbleSortVariantArray"
  For intCounter = 0 To 10
    Debug.Print avarIn(intCounter)
  Next intCounter

  ' Example of BubbleSortVariantArray, sorted in descending order
  BubbleSortVariantArray avarIn, False

  Debug.Print "First ten descending for BubbleSortVariantArray"
  For intCounter = 0 To 10
    Debug.Print avarIn(intCounter)
  Next intCounter

  ' Example of QuickSortVariantArray
  QuickSortVariantArray avarIn, LBound(avarIn), UBound(avarIn)

  Debug.Print "First ten for QuickSortVariantArray"
  For intCounter = 0 To 10
    Debug.Print avarIn(intCounter)
  Next intCounter

  ' Example of ShellSortVariantArray
  ShellSortVariantArray avarIn

  Debug.Print "First ten for ShellSortVariantArray"
  For intCounter = 0 To 10
    Debug.Print avarIn(intCounter)
  Next intCounter

End Sub

Microsoft Access Module LibraryOverview of Total Visual SourceBook

The source code in Total Visual SourceBook includes modules and classes for Microsoft Access, Visual Basic 6 (VB6), and Visual Basic for Applications (VBA) developers. Easily add this professionally written, tested, and documented royalty-free code into your applications to simplify your application development efforts.

Additional Resources