Cómo calcular la desviación estándar usando VB
Subcomando privado1_Click()
Hacer
a = Val(InputBox("a", a))
Si a = 0 Entonces
Else
b = b a
c = c 1
Finalizar si
Bucle hasta a = 0 b = b / cText1 .Text = b
End Sub finaliza la carga de datos después de ingresar "0". Private Sub Command2_Click()
Hacer
a = Val(InputBox("a", a))
Si a = 0 Entonces
Else
b = b Fix((Text1.Text - a) ^ 2 * 1000) / cText1.1000
c = c 1
Fin If
Bucle hasta a = 0
b = b
Imprimir a, b
b = b / c
Imprimir Sqr(b), c
Fin Subponer otro botón para obtener la desviación estándar.