主题：关于EXCEL 的函数 STDEVA 代码如何写？

参考

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=50013&skin=0

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=84190&skin=0

mark 标准差

Dim datas() As Double = {1,1,1,2,1}
'求平均值
Dim x As Double
For i As Integer = 0 To datas.length - 1
    x = x + datas(i) / datas.length
Next
'求平方差
Dim s2 As Double
For i As Integer = 0 To datas.length - 1
    s2 = s2 + (datas(i) - x) ^ 2
Next
s2 = s2 / datas.length
Dim s As Double = math.Sqrt(s2)

msgbox(s)

mark 标准偏差

Dim datas() As Double = {1,1,1,2,1}
'求平均值
Dim x As Double
For i As Integer = 0 To datas.length - 1
    x = x + datas(i) / datas.length
Next
'求平方差
Dim s2 As Double
For i As Integer = 0 To datas.length - 1
    s2 = s2 + (datas(i) - x) ^ 2
Next
s2 = s2 / (datas.length-1)
Dim s As Double = math.Sqrt(s2)

msgbox(s)