Autor
Bueno amigoa aqui les dejo la forma de ordenar un vector en Visual Basic.Net
Espero Que Les Sirva
Module Module1
Sub Main()
Dim i, j, aux As Integer
Dim n As Integer
Console.Write("Ingresa Limite Del Vector: ")
n = Console.ReadLine()
n -= 1
Dim mat(n) As Integer
For i = 0 To n Step 1
Console.Write("Ingresa elemento " & i + 1 & " : ")
mat(i) = Console.ReadLine()
Next
Console.WriteLine()
Console.WriteLine("Vector Original")
Console.WriteLine()
For i = 0 To n Step 1
Console.Write("[" & mat(i) & "] ")
Next
For i = 0 To n Step 1
For j = 0 To n - 1 Step 1
If mat(j) > mat(i) Then
aux = mat(j)
mat(j) = mat(i)
mat(i) = aux
End If
Next
Next
Console.WriteLine()
Console.WriteLine("Vector Ordenado")
Console.WriteLine()
For i = 0 To n Step 1
Console.Write("[" & mat(i) & "] ")
Next
Console.ReadLine()
End Sub
End Module
|
 |
Bienvenido(a), Visitante. Por favor Ingresar o Registrarse ¿Perdiste tu email de activación?. |
En línea
