Шпоры по информатике3 / Вычисление суммы цифр

Вычесление суммы ряда

Private Sub Command1_Click()

Label1.Caption = "Введите число 0 < d < 1000, сумму цифр которого надо подсчитать"

Text1 = d

End Sub

Private Sub Command2_Click()

d = Text1

If d >= 100 And d <= 1000 Then

c = d Mod 10

x = d Mod 100

b = (x - c) / 10

a = (d - x) / 100

s = a + b + c

End If

If d >= 10 And d <= 100 Then

b = d Mod 10

a = (d - b) / 10

s = a + b

End If

If d >= 0 And d <= 10 Then s = d

If d > 1000 Or d < 0 Then Label3.Caption = "Число не удовлетворяет условиям 0 < d < 1000"

Picture1.Print s

End Sub

Private Sub Command3_Click()

Label1.Caption = "Введите новое число 0 < d < 1000, сумму цифр которого надо подсчитать"

Label3.Caption = ""

Text1 = d

Picture1.Cls

End Sub

Private Sub Command4_Click()

End

End Sub