Найти все трехзначные числа, сумма цифр которых равна данному числу - VB
Формулировка задачи:
найти все трехзначные числа, сумма цифр равно данному целому числу.Visual Basic
Решение задачи: «Найти все трехзначные числа, сумма цифр которых равна данному числу»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim a%, x%, s%
- Picture1.Cls
- a = Val(Text1)
- For x = 100 To 999
- s = CInt(Mid(x, 1, 1)) + CInt(Mid(x, 2, 1)) + CInt(Mid(x, 3, 1))
- If s = a Then Picture1.Print x
- Next x
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д