Заполнить массив десятью случайными числами и вычислить их среднее арифметическое - VB

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

1. Создать проект, который заполняет массив десятью случайными числами и вычисляет их среднее арифметическое.

Dim a() As Single
Dim i, n As Integer
Dim k As String
Dim Max As Single

Private Sub Command1_Click()
n = Val(Text1.Text)
ReDim a(1 To n)
Randomize Timer
For i = 1 To 10
a(i) = Int(100 * Rnd)
Text2.Text = Text2.Text + "" + Str(a(i))
Next i
End Sub
 
Private Sub Command2_Click()
Max = a(1)
For i = 2 To n
  If a(i) > Max Then
     Max = a(i)
  End If
Next i
Text3.Text = Str(Max)
End Sub

помогите 10 случайных чисел выдает но не могу задать вычисление среднего значения

Решение задачи: «Заполнить массив десятью случайными числами и вычислить их среднее арифметическое»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim Summa
Dim Srednee
ReDim a(1 To 10)
Randomize Timer
Summa = 0
For i = 1 To 10
  a(i) = Int(100 * Rnd)
  Text2.Text = Text2.Text + "" + Str(a(i))
  Summa = Summa + a(i)
Next i
Srednee = Summa / 10
End Sub
                        