Buscar

Email Elinv.
Búsqueda personalizada

viernes, 8 de abril de 2011

Sumar datos contenidos en un Listbox por Elinv.

/*
*
Código desarrollado por Elinv.

* http://www.bragadomas.com/forodeprogramacion/index.php
*
http://www.bragadomas.com
*
http://www.bragadomas.com.ar
*
http://luispedromendez.blogspot.com/
*
http://elinv-elinv.blogspot.com/?expref=next-blog
*/


 
Private Sub Command1_Click()
Dim i As Integer
Dim total As Long
total = 0
For i = 0 To List1.ListCount - 1
total = total + Val(List1.List(i))
Next i
Text1.Text = total
End Sub
 
Private Sub Form_Load()
Dim i As Integer
Randomize Timer
For i = 1 To 10
List1.AddItem Int((5000 * Rnd) + 1000)
Next i
Command1.Caption = "Sumar"
Text1.Text = ""
Text1.Alignment = 2
End Sub
 

No hay comentarios:

Publicar un comentario en la entrada

Dejanos la consulta sobre tu código, y con gusto a la mayor brevedad posible te responderemos...