Найти количество четырехзначных чисел, которые в 600 раз больше суммы своих цифр - VB
Формулировка задачи:
Сколько существует четырехзначных чисел,которые в 600 раз больше суммы своих цифр?
Решение задачи: «Найти количество четырехзначных чисел, которые в 600 раз больше суммы своих цифр»
textual
Листинг программы
- Option Explicit
- Const r = 90
- Dim WithEvents cb As CommandButton, WithEvents lb As ListBox, i&, j&, d#
- Private Sub cb_Click()
- Dim s$
- lb.Clear
- For i = 1000 To 9999
- d = 0
- For j = 1 To 4: d = d + Mid$(i, j, 1): Next
- ' d = Fix(i / d)
- d = i / d ' Не округляем .....
- If d = 600 Then lb.AddItem i: s = s & vbLf & i
- Next
- lb.ToolTipText = "Результатов: " & lb.ListCount
- With Clipboard
- .Clear
- .SetText s
- End With
- End Sub
- Private Sub Form_Load()
- i = r: j = r
- Set lb = Controls.Add("vb.ListBox", "lb"): With lb
- .Move i, j, .Width * 2, .Height * 4: j = j + .Height + r
- .Visible = 1
- End With
- Set cb = Controls.Add("vb.CommandButton", "cb"): With cb
- .Move i, j, .Width * 2
- .Caption = "Вычислить"
- .Visible = 1
- End With
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д