用vb求数字的方差，要在文本框中输入输出。我做的编译通过了，但是不对。

Question

Private Sub Command1_Click()
If Len(Text1) = 0 Then Exit Sub
If InStr(Text1, ",") < 2 Then Exit SubDim a, sumn#, i#, j#
a = Split(Text1, ",")For i = 0 To UBound(a)
If IsNumeric(Val(a(i))) Then
sumn = sumn + Val(a(i))
j = j + 1
End If
Next
Text2.Text = sumn / (UBound(a) + 1)
End SubPrivate Sub Command2_Click()
If Len(Text1) = 0 Then Exit Sub
If InStr(Text1, ",") < 2 Then Exit Sub
Dim a, i#, j#, sumn#, sum#, B#
a = Split(Text1, ",")
For i = o To UBound(a)
If IsNumeric(Val(a(i))) Then
    For i = 0 To UBound(a)
    If IsNumeric(Val(a(i))) Then
    sumn = sumn + Val(a(i))
    j = j + 1
    End If
    Next
    B = sum / (UBound(a) + 1)
sum = sum + (Val(a(i)) - B) ^ 2
j = j + 1
End If
Next
Text3.Text = sum / (UBound(a) + 1)
End SubPrivate Sub Text1_Change()
Text1.FontSize = 24
End SubPrivate Sub Text2_Change()
Text2.FontSize = 24
End SubPrivate Sub Text3_Change()
Text3.FontSize = 24
End Sub请各位大虾看看

Answer 1

建议好好学习学习。
Private Sub Command2_Click() 
If Len(Text1) = 0 Then Exit Sub
If InStr(Text1, ",") < 2 Then Exit Sub
Dim a, i, j, sumn#, sum#, B#
a = Split(Text1, ",")
For j = 0 To UBound(a)
    If IsNumeric(Val(a(j))) Then
        sumn = sumn + Val(a(j))
    End If
Next
B = sumn / (UBound(a) + 1)
For i = 0 To UBound(a)
    If IsNumeric(Val(a(i))) Then
        sum = sum + (Val(a(i)) - B) ^ 2
    End If
Next
Text3.Text = sum / (UBound(a) + 1) 
End Sub