Дано натуральное число, определить входит ли число a в число b - VB

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

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

Нашел код, скажите пожалуйста, что тут делает :
И найти сколько раз повторяется число "a" в числе "с"

Решение задачи: «Дано натуральное число, определить входит ли число a в число b»

textual
Листинг программы
Function AinB(a&, ByVal b&) As Long
        'возвращает число вхождений числа а в число b
Dim m&  'm - модуль числа а - мин. число кратное 10, которое >a
m = 10
While m <= a
    m = m * 10
Wend
While b
    If b Mod m = a Then
        AinB = AinB + 1
        b = b \ m
    Else
        b = b \ 10
    End If
Wend
End Function

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

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