Otra vez VIsual BAsic 6.0

[nationalstar]

Hola amigo bakunos Como ya lo explique en un post anterior necesito calcular la desviacion estandar o tipica, en un programa que ya calcula la sumatoria, promedio, el valo mas alto y el mas bajo y el numero de elementos introducidos solo me falta la desviasion tipica necesito que me ayuden porfa que lo tengo que entregar mañana y todavia no he terminado esa parte se los agradezco de antemano

 

[registro500]

Hola amigo aca la desviacion tipica en VB, tendras que adaptarlo a tu proyecto..... suerte.

Private Sub Command1_Click()
   Dim vec(0 To 6) As Double
   Dim N As Integer
   Dim Suma As Double
   Dim Promedio As Double
   Dim Varianza As Double
   Dim DesviacionTipica As Double
   
   
   N = 7
   vec(0) = 1
   vec(1) = 2
   vec(2) = 2
   vec(3) = 3
   vec(4) = 3
   vec(5) = 3
   vec(6) = 4
   
'Calculando el promedio
Suma = 0
For I = 0 To N - 1
    Suma = Suma + vec(I)
Next I

Promedio = Suma / N

'Calculado la varianza
Suma = 0
For I = 0 To N - 1
    Suma = Suma + (vec(I) - Promedio) ^ 2
Next I

Varianza = Suma / N

'calculando la Desviacion Tipica

DesviacionTipica = Sqr(Varianza)

Text1.Text = DesviacionTipica

   
End Sub

 

[CompuDoc]

Hola amigo aca la desviacion tipica en VB, tendras que adaptarlo a tu proyecto..... suerte.

Mas bien, copy/paste a tu proyecto.