Проверить, есть ли в записи числа 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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