Процедура для нахождения суммы цифр - VB
Формулировка задачи:
Помогите решить:
Из заданного числа вычли сумму его его цифр. Из результата вновь вычли сумму его цифр и т.д. Сколько таких действий надо произвести, чтобы получился нуль
Решение задачи: «Процедура для нахождения суммы цифр»
textual
Листинг программы
Private Sub Command1_Click()
Dim ras As Integer, sum As Integer, a As Double, temp As Double
a = Val(InputBox("Введите число : ", , 12345))
temp = a
sum = 0
Do Until temp = 0
sum = sum + temp Mod 10
temp = temp \ 10
Loop
Print "Сумма цифр числа " & a & " = " & sum
temp = a
Do Until temp <= 0
temp = temp - sum
ras = ras + 1
Loop
Print sum & " можно вычесть из " & a & " " & ras & _
" раз(а), "; "остаток = " & temp
End Sub