Imports System

Imports System.Random

​

Public Module Module1

    Public Sub Main()

        Dim aux As Double

        Dim i, j As Integer

        Dim listaA(10) As Integer

        Dim numeroAleatorio As New Random()

        '' Generas los numeros

        For i = 1 To 10

            listaA(i) = numeroAleatorio.Next(1, 100)

        Next i

        '' Los agregas a listbox

        Console.WriteLine("Numeros generados aleatoriamente - ListBox 1")

        For i = 1 To 10

            Console.WriteLine(listaA(i))

        Next i

​

        '' Ordenas los numeros      

        For i = 1 To listaA.Length - 1

            For j = 0 To listaA.Length - i - 1

                If (listaA(j) > listaA(j + 1)) Then

                    aux = listaA(j + 1)

                    listaA(j + 1) = listaA(j)

                    listaA(j) = aux

                End If

            Next

        Next

        '' Los agregas al otro listbox ya ordenados

        Console.WriteLine("Numeros ordenados - ListBox 2")

        For i = 1 To 10

            Console.WriteLine(listaA(i))

        Next i

    End Sub

End Module