by Jonny Holmes (1 Submission)
Category: Math/Dates
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Sat 6th March 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Takes inputed numbers (in any order) and sorts them
Dim num(3) As Variant
num(1) = TXTNUMONE
num(2) = txtnumtwo
num(3) = txtnumthree
For i = 1 To 2
For j = i To 3
If num(i) > num(j) Then
temp = num(j)
num(j) = num(i)
num(i) = temp
End If
Next j
Next i
For i = 1 To 3
lstsorted.AddItem num(i)
Next i
TXTNUMONE = ""
txtnumtwo = ""
txtnumthree = ""