Найти сумму цифр заданного четырехзначного числа - 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