Программа для visual basic - VB

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

Даны натуральные числа n, a1…..an. Найти: a. Наименьшее из чётных чисел, входящих в последовательность a1…..an. b. Наибольшее из нечётных и количество чётных чисел, входящих в последовательность a1…..an. помогите пожалуйста программу составить в Visual Basic!!!

Решение задачи: «Программа для visual basic»

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

                            evcount=0
max = a(1)
for i = 2 to n
   if a(i) mod 2 = 1 and max < a(i) then max = a(i)
   if a(i) mod 2 = 0 then evcount=evcount+1
next i
msgbox max
msgbox evcount
                        