VB 计算textboxk中数值的标准差

VB 计算textboxk中数值的标准差
在TEXT7中,己计算出如下内容：
1出现的次数为:6
2出现的次数为:11
3出现的次数为:6
4出现的次数为:8
5出现的次数为:4
6出现的次数为:5
7出现的次数为:2
8出现的次数为:0
9出现的次数为:5
10出现的次数为:0
11出现的次数为:2
12出现的次数为:0
13出现的次数为:0
14出现的次数为:9
现要显示出这些数字（1~14）的标准差,而且有些数字的出现次数为零啊,最好有代码.
现有代码如下：并且己计算出平均数.
Dim 元素数组
Dim 频次(14) As Integer
元素数组 = Split(Text7,",") '注意这里引号内的逗号要和你输入的逗号一致
For i = 0 To UBound(元素数组)
X = Val(元素数组(i))
Select Case X
Case 1 To 14
频次(X) = 频次(X) + 1
End Select
Next i
For i = 1 To 14
Text7 = Text7 & i & "出现的次数为:" & 频次(i) & vbCrLf
Next i
'计算平均数：
Dim s1 As Single,s2 As Single
For i = 1 To 14
s1 = s1 + 频次(i) * i
s2 = s2 + 频次(i)
Next
Text7 = Text7 & "出现数值平均数为：" & (s1 / s2) & vbCrLf