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

Формулировка задачи:

Добрый день! Вот задали по VB пару заданий все получалось а вот с массивами замкнулся не могли бы вы мне помочь. Текст задания

"Массив С заполнен случайным набором целых чисел, найти среднее арифметическое из квадратов данной последовательности"

Правда самому даже задание не совсем понятно но прока что набросал очень мало

                    Листинг программы
                
 
                        
                          
                    
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

Вывел с большим трудом в TextBox1 содержание массива от 1 до 10 вот и все, помогите по заданию всего то два осталось )))))

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
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