平均、分散、標準偏差

    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