Visual Basic - Duda sobre la media

Life is soft - evento anual de software empresarial
   
Vista:

Duda sobre la media

Publicado por Laura Rincon Martinez (1 intervención) el 18/11/2009 12:19:59
Estoy calculando la media de numeros que estan en una lista(listbox) pero no me sale bien la media, no se si es por el codigo o porque, ayudadme

Private Sub Btnmedia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnmedia.Click
Dim i As Integer
Dim total As Double
For i = 0 To Lbxnumero.Items.Count - 1 Step 1
total = total + Lbxnumero.Items.Count
Next
txttotal.Text = CInt(Val(total) / Val(Lbxnumero.Items.Count))
txttotal.Text = total
End Sub

Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Duda sobre la media

Publicado por jaime guerrero (361 intervenciones) el 18/11/2009 15:40:20
prueba con esto y ve las diferencias que hay con tu codigo

Private Sub Btnmedia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnmedia.Click
Dim i As Integer
Dim total As Double
For i = 0 To Lbxnumero.Items.Count - 1
total = total + Lbxnumero.Items.value
Next
txttotal.Text = (total / Lbxnumero.Items.Count ).tostring()
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar