Является ли 6 значное число, счастливым билетом - VB
Формулировка задачи:
Добрый всем день! Прошу помочь написать код на VB для данной задачи, возможно она простая, но не для меня!=)
В переменной intNumber (тип Integer ) находится номер трамвайного билетика (будем считать номер шестизначным числом). Необходимо определить является ли билет счастливым или нет.
Для решения задачи используйте только математические операции. При необходимости, объявите и используйте дополнительные переменные. Опишите каждую объявленную переменную.
Решение задачи: «Является ли 6 значное число, счастливым билетом»
textual
Листинг программы
Public Sub a() N = 564456 MsgBox IIf(N Mod 10 + (N Mod 100 - N Mod 10) / 10 + (N Mod 1000 - N Mod 100) / 100 = (N Mod 10000 - N Mod 1000) / 1000 + (N Mod 100000 - N Mod 10000) / 10000 + (N Mod 1000000 - N Mod 100000) / 100000, "счастливый", "несчастный") End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д