С помощью функции 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д