Все положительные элементы одномерного массива, кратные трем заменить на число 1 - VB

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

Все положительные элементы одномерного массива, кратные трем заменить на число 1. Обнулить все четные отрицательные элементы. Вывести полученный массив на экран. Исходные данные в количества 10 случайных числе вводит сам программист методом прямого присваивания. Оформить проект, используя элементы: флажки, переключатели, полосы прокрутки, меню. Вот условие задачи. я сейчас на экзамене =) кто может, помогите пожалуйста. допустим массив получил:

Dim am(-10 To 10) As Integer, s As Integer
 
Private Sub Command1_Click()
Randomize
s = 0
For i = 0 To 10
am(i) = Fix(Rnd * (10 - (-10) + 1))
Print am(i);
Next

а дальше я не знаю.. помогите, люди

Решение задачи: «Все положительные элементы одномерного массива, кратные трем заменить на число 1»

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

                            Randomize
s = 0
For i = 0 To 10
am(i) = Fix(Rnd * (10 - (-10) + 1))
If (am(i) Mod 3) = 0 Then am(i) = 1
If (am(i) Mod 2) = 0 Then am(i) = 0
Print am(i)
Next
                        