Даны три разных числа. Найти среди них произведение и количество отрицательных - VB
Формулировка задачи:
Пожалуйста помогите!!!
Даны три разных числа. Найти среди них произведение и количество отрицательных.
Решение задачи: «Даны три разных числа. Найти среди них произведение и количество отрицательных»
textual
Листинг программы
a = InputBox("a=")
b = InputBox("b=")
c = InputBox("c=")
MsgBox "Произведение трёх чисел = " & a * b * c & vbLf & "Из них отрицательных: " & -(a < 0) - (b < 0) - (c < 0)