Vectores en Visual Basic (Una ayudita)

[thegodinez]

Mira lo he hecho en visual basic y lo he hecho con los siguientes elementos:

Herramientas

• 3 ListBox
• 2 TextBox
• 4 Botones
  

Nombres

ListBox1 - VectorA
ListBox2 - VectorB
ListBox3 - VectorC Resultados
NumeroMayor - NumeroMayor
Posicion - Posicion
Button1 - Llenar
Button2 - Suma - Enabled=False
Button3 - NumeroMayor - Enabled=False
Button4 - Limpiar

Llenar

Código:

        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        '
        For Indice = 0 To TamañoVectores - 1
            ValoresAleatorios = CInt(Rnd() * 10)
            ListBox1.Items.Add(ValoresAleatorios)
        Next
        '
        For Indice = 0 To TamañoVectores - 1
            ValoresAleatorios = CInt(Rnd() * 10)
            ListBox2.Items.Add(ValoresAleatorios)
        Next
        Button2.Enabled = True

Sumar

Código:

        ListBox3.Items.Clear()
        For Indice = 0 To TamañoVectores - 1
            ValorSuma = Val(ListBox1.Items(Indice)) + Val(ListBox2.Items(Indice))
            ListBox3.Items.Add(ValorSuma)
        Next
        Button3.Enabled = True

Numero Mayor

Código:

        NumeroMayorCalculo = ListBox3.Items(0)
        For Indice = 1 To TamañoVectores - 1
            If (NumeroMayorCalculo) < (ListBox3.Items(Indice)) Then
                NumeroMayorCalculo = ListBox3.Items(Indice)
                IndiceMayorCalculo = Indice
            End If
        Next
        NumeroMayor.Text = NumeroMayorCalculo
        Posicion.Text = IndiceMayorCalculo + 1

Limpiar

Código:

        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        ListBox3.Items.Clear()
        NumeroMayor.Clear()
        Posicion.Clear()
        Button2.Enabled = False
        Button3.Enabled = False

Ahora los botones Sumar y NumeroMayor, deben de estar con su propiedad Enabled=False, por el simple hecho de que Sumar no pueda sumar si los ListBox1 y ListBox2 no se encuentran llenos y NumeroMayor no puede calcular el número mayor si Sumar no ha sumado. Espero te sirva, saludos :D