I needed a way to sort an Array of strings.
Sub bubblesort(arry() As String,limit As Integer)
For i = 0 To limit
Sub bubblemax(x() As String, eff_size As Integer)
For k = 0 To eff_size-1
If x(k) > x(k+1) Then
Call swaparry(x,Cint (k),Cint (k)+1)
By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
Sub swaparry(x() As String, i As Integer, j As Integer)
Dim temp As String