Найти среднее арифметическое из квадратов заданной последовательности

Public Class Form1
    Dim Sim(10) As Double
    Dim x As Integer
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        For x As Integer = 1 To 10
            TextBox1.Text = TextBox1.Text & Sim(x) & vbCrLf
        Next x
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.Text = ""
        For x As Integer = 1 To 10
            Sim(x) = x
        Next x
    End Sub
End Class

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Dim A(), i, n, sum As Integer, r As New Random
        n = 10 'размер массива
        ReDim A(n - 1)
        TextBox1.Text = ""
        For i = 0 To n - 1
            A(i) = r.Next(1, 10)
            TextBox1.Text &= "A(" & i & ") = " & A(i) & vbCrLf
            sum += (A(i)) ^ 2 'сумма квадратов
        Next i
        TextBox1.Text &= "Среднеe арифметическое квадратов " & sum / n
    End Sub
 
 
End Class