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