Проверить есть ли одинаковые цифры в числе - 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