Visual Basic

[Rina456]

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

ответ вывести MSGBox-ом...

[EducatedFool]

Sub Задача()
    НаименьшееЧётное = 99999999: НаибольшееНечетное = 0: КоличествоЧётных = 0

    n = InputBox("Введите N")
    For i = 1 To n
        a = InputBox("Введите A(" & i & ")")
        If a \ 2 = a / 2 Then    ' A - чётное
            КоличествоЧётных = КоличествоЧётных + 1
            If a < НаименьшееЧётное Then НаименьшееЧётное = a
        Else    ' A - нечётное
            If a > НаибольшееНечетное Then НаибольшееНечетное = a
        End If
    Next
    If НаименьшееЧётное < 99999999 Then MsgBox НаименьшееЧётное, , "НаименьшееЧётное"
    If НаибольшееНечетное > 0 Then MsgBox НаибольшееНечетное, , "НаибольшееНечетное"
    MsgBox КоличествоЧётных, , "КоличествоЧётных"
End Sub

[Алира]

Visual Basic (Exsel)
Если не трудно, можете помочь?
нужно в VBA решить функцию методом половинного деления
*объясните, что делаю не так? С программой работать только начали - так что могу нести бред

Function f(x)
f(x) = tan(x) - (tan(x)^3)/3 + (tan(x)^5)/5 - 1/3
end function

sub aaa
a=0: b=0.8: e=0.0001
do
x=(a+b)/2
if f(x)=0 then print "x=", x, "koren": end
if f(x)*f(a)<0 then b=x
if f(x)*f(a)>0 then a=x
loop while abs(x-a)>=e
print x
end sub

*заранее спасибо