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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы