Заполнить массив натуральными числами от 1 до n - VB

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

Помогите реализовать программу. В массивах полный ноль):

Заполнить массив натуральными числами от 1 до n. Вывести их на экран. Так же вывести сумму всех простых чисел данного массива, среднее арифметическое и медиану. Примечание: Медиана – возможное значение признака, которое делит диапазон на две равные части.

Решение задачи: «Заполнить массив натуральными числами от 1 до n»

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

                            Option Explicit
Dim OldMassive() As Long
Dim NewMassive() As Long
 
Private Sub Command2_Click()
Dim x As Long
For x = 0 To 9 'ГЇГ°Г®Г±ГІГ® Г§Г*ГЇГ®Г«Г*ГҐГ*ГЁГҐ Г¬Г*Г±Г±ГЁГўГ* Г¶ГЁГґГ°Г*Г¬ГЁ
ReDim Preserve OldMassive(x)
OldMassive(x) = x
Next x
NewMassive = OldMassive 'ГЇГ°ГЁГ±Г®ГҐГ*ГЁГҐ Г¬Г*Г±Г±ГЁГўГ®Гў
For x = 0 To UBound(NewMassive) ' Г±Г·ГЁГІГ»ГўГ*Г*ГЁГҐ Г*Г®ГўГ®ГЈГ® Г¬Г*Г±Г±ГЁГўГ* Гў Text1
Text1.Text = Text1.Text & NewMassive(x) & vbCrLf
Next x
End Sub
 
Private Sub Command3_Click()
Dim Sum As Long
Sum = 0
For x = 0 To 9
Sum = Sum + NewMassive(x)
Next x
Text2.Text = Sum
End Sub
 
Private Sub Command4_Click()
Dim Sum As Integer, Srednee As Integer
Sum = 0
For i = 1 To n
Sum = Sum + NewMassive(x)
Next x
Srednee = Sum / 10
Text2.Text = Srednee
End Sub
 
Private Sub Command5_Click()
Text2.Text = NewMassive(n / 2)
End Sub
                        