Найти все трехзначные числа, сумма цифр которых равна данному числу - VB

Узнай цену своей работы

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

найти все трехзначные числа, сумма цифр равно данному целому числу.Visual Basic

Решение задачи: «Найти все трехзначные числа, сумма цифр которых равна данному числу»

textual
Листинг программы
  1. Private Sub Command1_Click()
  2.     Dim a%, x%, s%
  3.     Picture1.Cls
  4.     a = Val(Text1)
  5.     For x = 100 To 999
  6.  
  7.             s = CInt(Mid(x, 1, 1)) + CInt(Mid(x, 2, 1)) + CInt(Mid(x, 3, 1))
  8.             If s = a Then Picture1.Print x
  9.    
  10.     Next x
  11. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

14   голосов , оценка 4.286 из 5

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

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

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы