Private Sub Command1_Click()MsgBox "sd=" & sd(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) End SubFunction sd(ParamArray x()) As Double Dim n As Long, s1 As Double, s2 As Double, i As Long n = UBound(x) For i = 0 To n s1 = s1 + x(i) s2 = s2 + x(i) ^ 2 Next sd = s2 - (s1 / n) ^ 2 sd = sd / (n - 1) sd = Sqr(sd) End Function
End SubFunction sd(ParamArray x()) As Double
Dim n As Long, s1 As Double, s2 As Double, i As Long
n = UBound(x)
For i = 0 To n
s1 = s1 + x(i)
s2 = s2 + x(i) ^ 2
Next
sd = s2 - (s1 / n) ^ 2
sd = sd / (n - 1)
sd = Sqr(sd)
End Function