Vectores Visual Studio

[thegodinez]

Herramientas

• 2 ListBox
• 2 TextBox
• 3 Botones

¿Que es cada cosa?

• ListBox1- Lista que mostrará los valores del vector.
• ListBox2- Lista que mostrará el vector que tiene los números mayores al promedio.
• Promedio - TextBox que mostrará el promedio del ListBox1.
• NumerosMayores - TextBox que contará el número de valores mayores al promedio.
• Boton 1- Llenará el ListBox1 con valores aleatorios.
• Boton 2- Calculara el promedio del ListBox1 y mostrará los valores mayores al promedio en el ListBox2
• Boton 3 - Limpiara los ListBox y los TextBox

Abajo de Form1

Código:

    
        Public Const TamañoVectores As Integer = 10
        Public ValoresAleatorios As Integer

Boton 1 - Llenar

Código:

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

Boton 2 - Promedio

Código:

        ListBox2.Items.Clear()
        Dim AcumuladorPromedio As Double = 0
        Dim NumerosMayoresPromedio As Integer = 0
        For Indice = 0 To TamañoVectores - 1
            AcumuladorPromedio = AcumuladorPromedio + Val(ListBox1.Items(Indice))
        Next
        Promedio.Text = AcumuladorPromedio / TamañoVectores
        For Indice = 0 To TamañoVectores - 1
            If (Val(ListBox1.Items(Indice)) > Val(Promedio.Text)) Then
                ListBox2.Items.Add(ListBox1.Items(Indice))
                NumerosMayoresPromedio = NumerosMayoresPromedio + 1
            End If
        Next
        NumeroMayoresPromedio.Text = NumerosMayoresPromedio

Boton 3 - Limpiar

Código:

        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        Promedio.Clear()
        NumeroMayoresPromedio.Clear()
        Button2.Enabled = False

Resultado


Es similar al trabajo anterior :D