Console.readline

Module Module1

Sub Main()

Dim n As Integer

Dim i As Integer

Dim aux As Integer

Console.WriteLine(" Ingrese el tamaño del vector")

n = CInt(Console.ReadLine()) - 1

Dim num(n) As Integer

Dim aux1(n) As Integer

Dim e As Integer

Dim aux2 As Integer

Dim max As Integer

Dim cont As Integer

For i = 0 To n

Console.WriteLine("Ingrese un numero")

num(i) = CInt(Console.ReadLine())

Next

For i = 0 To n - 1

For e = 0 To n - (i + 1)

If num(e) < num(e + 1) Then

aux = num(e)

num(e) = num(e + 1)

num(e + 1) = aux

End If

Next

Next

Console.WriteLine("------------------------------------------------")

For i = 0 To n

Console.WriteLine(num(n - i))

Next

Dim mat(n, 1)

Console.ReadLine()

End Sub

End Module

...