Medio le e dado con los ejercicios.. me toco ahora calcular la varianza..
Rem calcular la varianza
For i = 0 To 20
If (Val(frmTabla.lstFrecc.List(i))) > 0 Then
varianza = (numvarianza - restavarianza ^ 2 / restavarianza) / numvarianza
restavarianza = (txtvarianza.Text)
End If
Next
Aunq todavia no me muestra el resultado en el formulario..

de repente si han hecho un ejercicio para calcular, promedios, moda, mediana y esas cosas.. serian bueno q me ayudaran por aca..