Заполнение массива - VB (60693)

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

Нужно вывести среднее значение одномерного массива размером 20 элементов, заполненного случайными числами из отрезка [-20,20] Помогите плз

Решение задачи: «Заполнение массива»

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

                            Private Sub Command1_Click()
Dim a() As Double
Dim i As Integer
Dim j As Integer
Dim sr As Double
Dim sum As Double
Dim n As Integer
 
sum = 0
n = 5 'ГЄГ®Г«-ГўГ® ГЅГ«ГҐГҐГ¬Г*ГІГ®Гў Г¬Г*Г±Г±ГЁГўГ*
ReDim a(1 To n)
For i = 1 To n
a(i) = Int(Rnd * 40 - 20)
 
Print a(i);
sum = sum + a(i)
Next i
Print
sr = sum / n
Print "Srednee "; sr
End Sub
                        