AYUDA CON MEDIA ARITMETICA

[lovemagic]

Hola alguien me puede ayudar con un problema que tengo estoy haciendo un programa EN VISUAL BASIC donde tengo que REPLACEar un media aritmentica como hacerlo el esquema es mas o menos lo siguente.

NOMBRES           PUNTAJE 1          PUNTAJE 2             PUNTAJE 3     PUNTAJE FINAL               
joaquin                         23                           45                              56                        34.55555

osea es el esquema mas o menos ok. donde dice puntaje 1 ingresar un valor y asi sucesivamente ok.

y donde dice puntaje final quiero la media aritmetica.
osea seria asi mas o menos ..23+45+56+/3=...............

muchas gracias de antemano este foro me esta ayudando demasiado asies que muchs gracias a todos........

[ranefi]

Hola lovemagic, buena tarde y bienvenido al foro (no recuerdo si ya te di la bienvenida, jejeje). Aquí te dejo algo de lo que tú quieres

Agregar 1 control ListView (se encuentra en Componentes [CTRL + T]) e REPLACEar el siguiente código

Código:

Sub ConfigList()
    Dim Indices As Integer
   
    With ListView1
        .View = lvwReport
        .AllowColumnReorder = True
        .GridLines = True
        .Width = 9735
        .Height = 5535
       
        For Indices = 1 To 5
            .ColumnHeaders.Add Indices
        Next
       
        .ColumnHeaders(1).Text = "Nombres"
        .ColumnHeaders(1).Alignment = lvwColumnLeft
        .ColumnHeaders(1).Width = 1300
       
        .ColumnHeaders(2).Text = "Puntaje 1"
        .ColumnHeaders(2).Alignment = lvwColumnLeft
        .ColumnHeaders(2).Width = 1500
       
        .ColumnHeaders(3).Text = "Puntaje 2"
        .ColumnHeaders(3).Alignment = lvwColumnLeft
        .ColumnHeaders(3).Width = 1500
       
        .ColumnHeaders(4).Text = "Puntaje 3"
        .ColumnHeaders(4).Alignment = lvwColumnLeft
        .ColumnHeaders(4).Width = 1500
       
        .ColumnHeaders(5).Text = "Puntaje Final"
        .ColumnHeaders(5).Alignment = lvwColumnLeft
        .ColumnHeaders(5).Width = 2000
    End With
End Sub

Private Sub Agregar_Item()
   Dim CochinoList As ListItem
   Dim Nombre As String
   Dim Valor1 As Double
   Dim Valor2 As Double
   Dim Valor3 As Double
   Dim Final As Double
   
   Nombre = "Floripundio"
   Valor1 = 500
   Valor2 = 700
   Valor3 = 1000
   
        Set CochinoList = _
            ListView1.ListItems.Add(, , Nombre)
   
   With CochinoList
        .SubItems(1) = Valor1
        .SubItems(2) = Valor2
        .SubItems(3) = Valor3
        Final = (Valor1 + Valor2 + Valor3) / 3
        .SubItems(4) = Final 
    End With
End Sub

Private Sub Form_Load()
    Me.WindowState = 2
    ConfigList
    Agregar_Item
End Sub

Ya sé que es muy simple y estático este código pero con esto sé que podrás darte una idea; como sea, no vaciles en publicar cualquier duda que tengas. Nos vemos.