Является ли 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.25 из 5
Похожие ответы