123 Eng

Engineering the engineers™


Latest Jobs   Forum Map

 


Home

Source Codes

Engineering Colleges

BE Students

Training  Reports (updated)

Seminar Reports (updated

Placement Papers (updated)

Forums

   Computer Science / IT

   Electronics

   Electrical

   Mechanical

   Chemical

   Civil

   CAT / MBA

   GMAT / Foreign MBA

Latest Jobs

Engineering Jobs / Technical Jobs

Management Jobs

Sitemap

About-Us

Terms of use

Displaying  Source Code(s)  
 

 
ExchangeSort Function

--------------------------------------------------------------------------------

Description : The ExchangeSort function sorts an array alphabetically (A - Z) or numerically (low to high). ExchangeSort expects an array as input

<%
Private Function ExchangeSort(ByVal unsortedarray)
Dim Front, Back, I, Temp, Arrsize, Excom, Exswap
Arrsize = UBound( unsortedarray )
For Front = 0 To Arrsize
For Back = Front To Arrsize
Excom = Excom + 1
If unsortedarray(Front) > unsortedarray(Back) Then
Temp = unsortedarray(Front)
unsortedarray(Front) = unsortedarray(Back)
unsortedarray(Back) = Temp
Exswap = Exswap + 1
End If
Next
Next
ExchangeSort = unsortedarray
End Function
%>

 

 

Contribute content or training reports / feedback / Comments
job placement papers
All rights reserved copyright 123ENG