Дано натуральное число п. Проверить, будут ли все цифры числа различными. - VB
Формулировка задачи:
Дано натуральное число п. Проверить, будут ли все цифры числа различными.
Решение задачи: «Дано натуральное число п. Проверить, будут ли все цифры числа различными.»
textual
Листинг программы
sub test
dim a(9)as long,i as long,s as string
s=inputbox("Введите число")
for i=1 to len(s)
a(val(mid$(s,i,1)))=a(val(mid$(s,i,1)))+1
if a(val(mid$(s,i,1)))>1 then msgbox "Есть повторы":exit sub
next
msgbox "Нет повторов"
end sub