Найти все трехзначные числа, сумма цифр которых равна A - VB
Формулировка задачи:
Найти все трехзначные числа,сумма цифр которых равна A,а само число делится на B.A и В задаются.
Вот что получилось,но вылазит ошибка run-time error 13 type is mismatch
Листинг программы
- Private Sub Command1_Click()
- Picture1.Cls
- a = Val(Text1)
- b = Val(Text2)
- For x = 100 To 999
- Dim c As Integer
- Dim d As Integer
- Dim f As Integer
- c = Int(Strings.Mid(a, 1, 1))
- d = Int(Strings.Mid(a, 2, 1))
- f = Int(Strings.Mid(a, 3, 1))
- If (c + d + f = a) And ((c + d + f) Mod b = 0) Then Picture1.Print x
- Next x
- End Sub
Решение задачи: «Найти все трехзначные числа, сумма цифр которых равна 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д