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

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

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

Найти все трехзначные числа,сумма цифр которых равна A,а само число делится на B.A и В задаются. Вот что получилось,но вылазит ошибка run-time error 13 type is mismatch
Листинг программы
  1. Private Sub Command1_Click()
  2. Picture1.Cls
  3. a = Val(Text1)
  4. b = Val(Text2)
  5. For x = 100 To 999
  6. Dim c As Integer
  7. Dim d As Integer
  8. Dim f As Integer
  9. c = Int(Strings.Mid(a, 1, 1))
  10. d = Int(Strings.Mid(a, 2, 1))
  11. f = Int(Strings.Mid(a, 3, 1))
  12. If (c + d + f = a) And ((c + d + f) Mod b = 0) Then Picture1.Print x
  13. Next x
  14. End Sub

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

textual
Листинг программы
  1. Private Sub Command1_Click()
  2.     Dim a%, b%, x%, s%
  3.     a = Val(InputBox("Введите a"))
  4.     b = Val(InputBox("Введите b"))
  5.     List1.Clear
  6.     For x = 100 To 999
  7.         If x Mod b = 0 Then
  8.             s = CInt(Mid(x, 1, 1)) + CInt(Mid(x, 2, 1)) + CInt(Mid(x, 3, 1))
  9.             If s = a Then List1.AddItem x
  10.         End If
  11.     Next x
  12. End Sub

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


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

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

7   голосов , оценка 4 из 5

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

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

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