Sub CalculateVarianceAndStandardDeviation()
' データの配列
Dim data() As Double = {2, 4, 6, 8, 10}
' 平均値を計算
Dim average As Double = data.Average()
' 各データの差の二乗の合計を計算
Dim sumOfSquaredDifferences As Double = 0
For Each value In data
sumOfSquaredDifferences += Math.Pow(value - average, 2)
Next
' 分散を計算
Dim variance As Double = sumOfSquaredDifferences / data.Length
' 標準偏差を計算
Dim standardDeviation As Double = Math.Sqrt(variance)
' 結果を表示
TextBox6.Text = "分散: " & variance
TextBox7.text = "標準偏差: " & standardDeviation
End Sub