Autor Tema: Sumar (Leído 1080 veces)

CAMELPC · « **en:** Sábado 24 de Febrero de 2007, 16:26 »

tengo un monton de numeros metidos en una list box. cada uno en una linea, como puedo sumar todos los registros metidos en ese listbox para hacer un total

mamex

Aquí está una solución:

Código: Text

 
Private Function suma() As Integer
    Dim i As Integer
    For i = 0 To List1.ListCount - 1
        suma = suma + List1.List(i)
    Next i
End Function
 
 

SoloCodigo

Autor Tema: Sumar (Leído 1080 veces)

CAMELPC

Sumar

mamex

Re: Sumar