Нахождение суммы цифр числа - VB

Узнай цену своей работы

Формулировка задачи:

Дано задание: Вводится последовательность целых чисел. Найти сумму цифр каждого числа. На форме расположено 6 TextBox. В трёх из них будут вводится числа. А в трёх других будет выводиться сумма цифр каждого числа. И разумеется CommandButton. Нужно написать код для командной кнопки. Помогите пожалуйста. Буду очень признателен.

Решение задачи: «Нахождение суммы цифр числа»

textual
Листинг программы
Private Sub Command1_Click()
Dim i As Byte, j As Byte, sum
For i = 0 To 2
    sum = 0
    For j = 1 To Len(Text1(i).Text)
        sum = sum + Mid(Text1(i).Text, j, 1)
    Next j
    Text1(i + 3).Text = sum
Next i
End Sub

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


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

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

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