С помощью функции InputBox запрашивается целое число. Найти сумму цифр этого числа. - VB

Узнай цену своей работы

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

Что-то смысла задачи не пойму.

Решение задачи: «С помощью функции InputBox запрашивается целое число. Найти сумму цифр этого числа.»

textual
Листинг программы
Dim InD as Long
Dim OutD as Long
 
OutD=0
IntD=Val(InputBox("Input number"))
Do 
   OutD=OutD+IntD mod 10
   IntD=IntD\10
Loop While IntD>0
OutD=OutD+IntD
msgbox OutD

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


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

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

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