Найти сумму цифр заданного четырехзначного числа - VB
Формулировка задачи:
Здравствуйте! Помогите, пожалуйста, написать программу на VB
Задание: Найти сумму цифр заданного четырехзначного числа.
Решение задачи: «Найти сумму цифр заданного четырехзначного числа»
textual
Листинг программы
Function SumN(ByVal N As Long) As Integer While N SumN = SumN + N Mod 10 N = N \ 10 Wend End Function Sub SumN_Example() MsgBox SumN(InputBox("Введите число-")) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д