С помощью функции 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