Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim Numpers(15) As Integer
- Dim y As Byte = Numpers.Count - 2
- For i = 1 To y + 1
- Console.WriteLine("Please Enter The Numper " & i & " : ")
- Numpers(i) = Val(Console.ReadLine())
- Next
- Console.WriteLine(" ")
- Console.WriteLine("*******************")
- Console.WriteLine("*******************")
- Console.WriteLine(" ")
- Dim Value As Integer
- For i = 1 To y
- For x = 1 To y
- If Numpers(i) > Numpers(x + i) Then
- Value = Numpers(i)
- Numpers(i) = Numpers(x + i)
- Numpers(x + i) = Value
- End If
- Next
- y = y - 1
- Next
- y = Numpers.Count - 2
- For i = 1 To y + 1
- Console.WriteLine(Numpers(i))
- Next
- Console.ReadKey()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement