Imports System
Class StatsCalculator
Public Shared Sub Main()
Dim numbers As Double() = {3.4, 1.8, 4.3, 5.0, 6.2}
Dim mean As Double = CalculateMean(numbers)
Dim stddev As Double = CalculateStandardDeviation(numbers, mean)
Console.WriteLine($"Mean: {mean}")
Console.WriteLine($"Standard Deviation: {stddev}")
End Sub
Private Shared Function CalculateMean(ByVal data As Double()) As Double
If data.Length = 0 Then Return 0.0
Dim sum As Double = 0.0
For Each value As Double In data
sum += value
Next
Return sum / data.Length
End Function
Private Shared Function CalculateStandardDeviation(ByVal data As Double(), ByVal mean As Double) As Double
If data.Length < 2 Then Return 0.0
Dim sumOfSquaredDifferences As Double = 0.0
For Each value As Double In data
Dim diff As Double = value - mean
sumOfSquaredDifferences += diff * diff
Next
Dim variance As Double = sumOfSquaredDifferences / (data.Length - 1)
Return Math.Sqrt(variance)
End Function
End Class
' run:
'
' Mean: 4.14
' Standard Deviation: 1.6607227342335025
'
