非空白文本框的平均值

我需要五个文本框的平均值，但有一些可能是空的。 如果是这样，它应该只考虑填充的文本框。 我有一些代码来find这些的总和，但无法find平均值：

Tot = Tot + CDbl(TextBox117.Text) Tot = Tot + CDbl(TextBox118.Text) Tot = Tot + CDbl(TextBox119.Text) Tot = Tot + CDbl(TextBox120.Text) Tot = Tot + CDbl(TextBox121.Text) TextBox70.Text = Tot 

我甚至试图计算盒子的数量，但仍然无法得到结果。

Answer 1

 Dim arr, i As Long, n As Long, t As Double, v arr = Array(TextBox117, TextBox118, TextBox119, TextBox120, TextBox121) n = 0 t = 0 For i = lbound(arr) to ubound(arr) v = Trim(arr(i).Text) If Len(v) > 0 Then t = t + CDbl(v) n = n + 1 End If Next i TextBox70.Text = t TextBox71.Text = t/n 

Answer 2

 Dim divNum As Integer Dim Tot As Double Dim numsAdd(4) As String numsAdd(0) = TextBox1.Text numsAdd(1) = TextBox2.Text numsAdd(2) = TextBox3.Text numsAdd(3) = TextBox4.Text numsAdd(4) = TextBox5.Text divNum = 0 For i = 0 To UBound(numsAdd) If numsAdd(i) <> "" Then Tot = Tot + CDbl(numsAdd(i)) divNum = divNum + 1 End If Next i TextBox6.Text = Tot / divNum