Проверить, есть ли в записи числа n цифра m - VB
Формулировка задачи:
Помогите с решением задач, пожалуйста!( а то не пойму как их решить).
Задача 1.
Даны натуральные числа n(n<1000000) и m(m,10). Проверить, есть ли в записи числа n цифра m.
Спасибо заранее.))))
Решение задачи: «Проверить, есть ли в записи числа n цифра m»
textual
Листинг программы
Private Sub Command1_Click() MsgBox Contain(123456789, 5) End Sub Function Contain(n&, m%) As Boolean Contain = False Do While n > 0 If n Mod 10 = m Then Contain = True Exit Do End If n = n \ 10 Loop End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д