Имеется 3 числа : A ,B ,C. Найти количество нулей. как написать в бейсике?

Question

Имеется 3 числа : A ,B ,C. Найти количество нулей.
как написать в бейсике?

Comments

ты какой класс?

---

ты какой класс?

---

надо найти количество нулей в числах,которые введешь с клавиатуры.То есть должна быть написать программа,которая будет подсчитывать количество нулей в веденных нами числах

---

во всех трех

---

во всех трех ВМЕСТЕ

---

ОК

Answer 1

Sub aaa()
    a = InputBox("Введите число А")
    b = InputBox("Введите число B")
    c = InputBox("Введите число C")
    s = a + b + c
    k = 0
    For i = 1 To Len(s)
        If Mid(s, i, 1) = "0" Then k = k + 1
    Next i
    MsgBox "Общее количество нулей равно" + Str(k)
End Sub

Comments

СПАСИБО