Проверить есть ли одинаковые цифры в числе - VB

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

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

1)Программа которая проверяет есть ли одинаковые цифры в числе. 2)И как закончить ввод числа нулем? Буду очень благодарен

Решение задачи: «Проверить есть ли одинаковые цифры в числе»

textual
Листинг программы
Function chkN(ByVal n&) As Boolean
Dim b(0 To 9) As Boolean, d&
Do While n <> 0 And Not chkN
    d = n Mod 10
    n = n \ 10
    chkN = b(d)
    b(d) = True
Loop
End Function

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


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

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

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