Процедура для нахождения суммы цифр - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.929 из 5
Похожие ответы