非空白文本框的平均值

Question

我平均需要五個TextBox，但有可能其中一些可能為空。 如果是這樣，則應僅考慮填充的TextBoxes。 我有一些代碼可以找到這些總和，但無法成功找到平均值：

 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