Помогите пожалуйста решить - VB

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

1 Задание
В одномерном числовом массиве состоящем из k элементов заменить все отрицательные числа нулями и подсчитать их количество. Вывести массив на экран.
2 Задание
В одномерном числовом массиве, состоящем из M строк, подсчитать количество элементов, кратных B. Вывести их на экран

Решение задачи: «Помогите пожалуйста решить»

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

                            <font color="00AA00">'допустим, мы уже прочипали всё что нам нада. вотон цикл</font>
<font color="blue">for</font> i = <font color="darkblue"><b>1</b></font> <font color="blue">to</font> m
<font color="blue">if</font> a(i) <font color="blue">mod</font> b = <font color="darkblue"><b>0</b></font> <font color="blue">then</font> <font color="00AA00">'если остаток от деления равен 0 тогда</font>
count = count + <font color="darkblue"><b>1</b></font> <font color="00AA00">'счетчик увеличивается</font>
<font color="blue">print</font> a(i) & <font color="teal">" "</font> <font color="00AA00">'печатаем на форме</font>
<font color="blue">end</font> <font color="blue">if</font> 
<font color="blue">next</font>

                        