• Domingo 22 de Diciembre de 2024, 16:09
« anterior próximo »
Páginas: [1]

Autor Tema:  Sumar  (Leído 1102 veces)

CAMELPC

  • Nuevo Miembro
  • *
  • Mensajes: 10
    • Ver Perfil
Sumar
« en: Sábado 24 de Febrero de 2007, 16:26 »
0
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

  • Miembro activo
  • **
  • Mensajes: 77
  • Nacionalidad: mx
    • Ver Perfil
Re: Sumar
« Respuesta #1 en: Sábado 24 de Febrero de 2007, 18:22 »
0
Aquí está una solución:

Código: Text
  1.  
  2. Private Function suma() As Integer
  3.     Dim i As Integer
  4.     For i = 0 To List1.ListCount - 1
  5.         suma = suma + List1.List(i)
  6.     Next i
  7. End Function
  8.  
  9.  
Páginas: [1]
« anterior próximo »