Найти все трехзначные числа, сумма цифр которых равна A - VB
Формулировка задачи:
Найти все трехзначные числа,сумма цифр которых равна A,а само число делится на B.A и В задаются.
Вот что получилось,но вылазит ошибка run-time error 13 type is mismatch
Решение задачи: «Найти все трехзначные числа, сумма цифр которых равна A»
textual
Листинг программы
Private Sub Command1_Click()
Dim a%, b%, x%, s%
a = Val(InputBox("Введите a"))
b = Val(InputBox("Введите b"))
List1.Clear
For x = 100 To 999
If x Mod b = 0 Then
s = CInt(Mid(x, 1, 1)) + CInt(Mid(x, 2, 1)) + CInt(Mid(x, 3, 1))
If s = a Then List1.AddItem x
End If
Next x
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д