Как найти сумму цифр, образующих число, введенное в TextBox - VB

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

В TextBox вводиться двухзначное число. Как найти сумму цифр, образующих это число?

Решение задачи: «Как найти сумму цифр, образующих число, введенное в TextBox»

textual
                            Листинг программы 
                        

                            Private Sub TextBox1_Change()
If Len(TextBox1) = 2 Then
  Caption = TextBox1 & ": Г‘ГіГ¬Г¬Г* Г¶ГЁГґГ°=" & TextBox1 Mod 10 + TextBox1 \ 10 Mod 10
Else
  Caption = "Г‚ГўГҐГ¤ГЁГІГҐ Г¤ГўГіГ§Г*Г*Г·Г*Г®ГҐ Г·ГЁГ±Г«Г®"
End If
End Sub
                        

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

10 голосов , оценка 3.5 из 5

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