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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы