Сколько раз данная цифра а встречается в целом черырехзначном числе - VB
Формулировка задачи:
Сколько раз данная цифра а встречается в целом черырехзначном числе.
Решение задачи: «Сколько раз данная цифра а встречается в целом черырехзначном числе»
textual
Листинг программы
Sub aaa()
a = InputBox("Введите число:")
b = InputBox("Введите цифру:")
MsgBox "Цифра " & b & " встречается в числе " & a & ": " & UBound(Split(a, b)) & " раз"
End Sub