Эта функция вычисляет Среднее любого числа ненулевых значений:
''' <summary>Calcula el Promedio de los Valores ingresados.
''' Sólo tiene en cuenta los Valores mayores que 0.</summary>
''' <param name="diasValores">Valores a Calcular</param>
Function PromedioValores(ByVal ParamArray diasValores() As Integer)
'Esta funcion calcula el promedio de los valores ingresados como parametro
Dim result As Double = 0
If diasValores.Length <= 0 Then Exit Function
Dim cant As Integer = 0
For i As Integer = 0 To UBound(diasValores, 1)
If diasValores(i) > 0 Then
cant = cant + 1
result += diasValores(i)
End If
Next i
If result > 0 Then
result = result / cant
End If
Return result
End Function
Использование:
Me.TextBox1.Text = PromedioValores(10, 0, 0, 15, 0, 12, 12, 0)