• Home
 · 
• Math/Dates
 · 
• Takes inputed numbers (in any order) and sorts them

Takes inputed numbers (in any order) and sorts them

Takes inputed numbers (in any order) and sorts them

Rate Takes inputed numbers (in any order) and sorts them

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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 = ""