Проверить истинность высказывания: "Все цифры данного числа различны" - VB

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

Дано трехзначное число. Проверить истинность высказывания: "Все цифры данного числа различны"


textual

Код к задаче: «Проверить истинность высказывания: "Все цифры данного числа различны" - VB»

Function ChkNum(n as long) As boolean
   S$=Cstr(n)
   L%=len(S$)
   if L%>9 then '::: Принцип Дирихле
      ChkNum=False  
   else
      ChkNum=True
      for i%=1 to L%-1
          if Instr(mid$(S$,2),left$(S,1)) <> 0 then
            ChkNum=False
            Exit For
          Else
            S$=mid$(S$,2)
          End if
      Next i%
End Function
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 3.667 из 5

Источник