Дано натуральное число, определить входит ли число 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д