Лабораторная работа, чтобы сдать зачет. - VB

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

Всем привет! Люди, помогите пожалуйста сделать лабораторную работу. Выручите студента.
И так перейдем собственно к лабораторной.
Нужно сделать задания в Excell + VBA. Сам я программирую на php и С++. Но тут застрял, ниже в картине задание.
Помогите чем сможете, в понедельник сдавать!

Решение задачи: «Лабораторная работа, чтобы сдать зачет.»

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

                            <font color="blue">Sub</font> Chage()

    <font color="blue">Dim</font> n <font color="blue">As</font> <font color="blue">Integer</font>, A(), Ind(), i <font color="blue">As</font> <font color="blue">Integer</font>, c <font color="blue">As</font> <font color="blue">Integer</font>
    Cells.Clear
 n = InputBox(<font color="teal">"Введите размер массива:"</font>)
    <font color="blue">ReDim</font> A(<font color="darkblue"><b>1</b></font> <font color="blue">To</font> n)
    <font color="blue">For</font> i = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> n
    
     A(i) = Int(Rnd * <font color="darkblue"><b>50</b></font> + <font color="darkblue"><b>10</b></font>)
     
Cells(<font color="darkblue"><b>1</b></font>, i).Value = A(i)
     <font color="blue">Next</font>
 
c = <font color="darkblue"><b>0</b></font>

Cells.Clear

<font color="blue">For</font> i = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> n
<font color="blue">If</font> A(i) <font color="blue">Mod</font> <font color="darkblue"><b>2</b></font> = <font color="darkblue"><b>0</b></font> <font color="blue">Then</font>
c = c + <font color="darkblue"><b>1</b></font>
Cells(<font color="darkblue"><b>1</b></font>, i).Value = A(i)

<font color="blue">End</font> <font color="blue">If</font>
<font color="blue">Next</font>
                        