mostrar el mayor y menor elemento de un vector

[jesmi89]

hola lo que pasa es que estoy trabajando en este proyecto de visual basic.net, en el cual necesito que lo que me haga es mostrarme el mayor y menor elmento de un vector.
Pero lo unico que consigo es que en el caso de menor me muestre siempre el ultimo elemnto ingresado , en cambio el de mostrar el mayor si me funciona.

Asi que les agradeceria si porfa me pueden dar una ayudita con esto..

Código:

Public Class Form1
    Dim b As Integer
    Dim i As Integer
    Dim c As Integer

    Dim a() As Long
    
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        b = TextBox1.Text
        c = TextBox1.Text

        ReDim a(b)

        For i = 1 To b
            a(i) = InputBox("Ingrese Datos")

            c = a(i)
            TextBox2.Text = TextBox2.Text & "  " & c

            If a(i) > b Then
                b = a(i)
            Else
                If a(i) < c Then
                    c = a(i)

                End If
            End If

        Next

        MsgBox("el mayor es  " & b)
        MsgBox("el menor es  " & c)

    End Sub

End Class

Gracias..

[megaligathor]

Podria ayudarte en lo que dices pero la verdad es no entiendo lo que buscas. A mi parecer quieres sacar el número menor y mayor de una matriz de números y mostrarlos?.

[jesmi89]

Lo que necesito en si, es que me mustre en un mensaje de text el numero mayor y menor de el vector que se ha llenado.

Por ejemplo, digamos que el usuario da como parametro que el vector va a tener un tamaño de cuatro, y que luego este ingresa los iguientes numeros: 2, 8, 25,3

entonces que despues de esto me muestre en un mensaje que el numero mayor es 25 y que el numero menor es 2

Pero esta ultima opcion es la que no me da, ya que al ejecutarlo, siguiendo el mismo ejemplo, lo que muestra es que el valor menor es 3. En lo cual obviamnete hay un error

Entonces, si porfa me pueden ayudar. Es urgente...

Gracias

[Peterpay]

simplemente porq no usas Array.Sort y tomas el priemro y el ultimo elemento del array y listo.

[megaligathor]

Saludos, si tambien puedes usar eso en caso de ser arreglos. Bueno aqui te mando la corrección funcionando.

Código:

Dim b As Integer
        Dim c As Integer
        Dim a() As Long

        b = TextBox1.Text
        c = TextBox1.Text

        ReDim a(b)

        For i As Integer = 0 To b - 1
            a(i) = InputBox("Ingrese Datos")

            TextBox2.Text = TextBox2.Text + "  " + a(i).ToString

            If a(i) < b Then
                b = a(i)
            End If

            If a(i) > c Then
                c = a(i)
            End If

        Next

        MsgBox("el mayor es  " & c)
        MsgBox("el menor es  " & b)

Analizalo. Espero que sea de ayuda

ATTE RealTMegalix