Нахождение суммы цифр числа - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д