Найти количество нечетных чисел среди введенных - VB

Узнай цену своей работы

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

Нужно сделать в VB . Я сделал , но не правильно , выводит только 0. Помогите пожалуйста , буду благодарен. Вот мой код :

Решение задачи: «Найти количество нечетных чисел среди введенных»

textual
Листинг программы
    Dim doub As Double
    doub = 2 ^ 41 - 1
'    MsgBox doub Mod 2
    MsgBox Sgn(InStr(doub / 2, ","))

Оцени полезность:

7   голосов , оценка 3.429 из 5
Похожие ответы