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