Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Temas - josezamp

#1
Hola gente! Estoy desarrollando un código que tiene el siguiente enunciado:

a) Sumar los elementos de un vector.
b) Devolver si un número ingresado es positivo, negativo o cero.
c) Ordenar los elementos de una matriz en forma ascendente.
Utilizar procedimientos y funciones para realizar los incisos a, b y c. Todos los resultados deben imprimirse en el programa principal.


Por lo que mi código va quedando de la siguiente manera:
Código (vbnet) [Seleccionar]
Module Module1

   Sub Main()
       Dim vector(5, 2) As String ' declaro la matriz
       Dim suma As Integer
       Call valores(vector, suma)
       For i = 1 To 5
           Console.WriteLine("Valor ingresado en el vector {0} = {1} y es {2}", i, vector(i, 1), vector(i, 2))
       Next
       Console.WriteLine("Suma de los valores ingresados: {0}", suma)
       Console.ReadLine()
   End Sub
   Sub valores(ByRef vector, ByRef suma)
       suma = 0
       For i = 1 To 5
           Console.Write("Escriba el valor para el vector {0}º: ", i)
           vector(i, 1) = Console.ReadLine ' ingreso los valores para la matriz
           Select Case vector(i, 1)
               Case Is < 0
                   vector(i, 2) = "menor que cero"
               Case Is > 0
                   vector(i, 2) = "mayor que cero"
               Case Is = 0
                   vector(i, 2) = "igual a cero"
           End Select
       Next
       For i = 1 To 5
           suma = suma + vector(i, 1) ' sumo los elementos del vector
       Next

   End Sub

End Module

Pero no sé qué método utilizar para que el programa ordene la matriz en forma ascendente ¿Algún consejo?
Desde ya, gracias  :)