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

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

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

Сколько существует четырехзначных чисел,которые в 600 раз больше суммы своих цифр?

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

textual
Листинг программы
  1. Option Explicit
  2. Const r = 90
  3. Dim WithEvents cb As CommandButton, WithEvents lb As ListBox, i&, j&, d#
  4.  
  5. Private Sub cb_Click()
  6.     Dim s$
  7.     lb.Clear
  8.     For i = 1000 To 9999
  9.         d = 0
  10.         For j = 1 To 4: d = d + Mid$(i, j, 1): Next
  11.        
  12.        
  13.        
  14.        
  15.        
  16. '        d = Fix(i / d)
  17.       d = i / d ' Не округляем .....
  18.      
  19.        
  20.        
  21.        
  22.         If d = 600 Then lb.AddItem i: s = s & vbLf & i
  23.     Next
  24.     lb.ToolTipText = "Результатов: " & lb.ListCount
  25.     With Clipboard
  26.         .Clear
  27.         .SetText s
  28.     End With
  29.    
  30. End Sub
  31.  
  32. Private Sub Form_Load()
  33.     i = r: j = r
  34.     Set lb = Controls.Add("vb.ListBox", "lb"): With lb
  35.         .Move i, j, .Width * 2, .Height * 4: j = j + .Height + r
  36.         .Visible = 1
  37.     End With
  38.     Set cb = Controls.Add("vb.CommandButton", "cb"): With cb
  39.         .Move i, j, .Width * 2
  40.         .Caption = "Вычислить"
  41.         .Visible = 1
  42.     End With
  43. End Sub

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


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

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

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

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

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

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