Дано натуральное число N. Найти наименьшее число - VB
Формулировка задачи:
помогите в решении задачи
Дано натуральное число N. Найти наименьшее число М (N< М< 2N), которое делится на сумму цифр числа N (без остатка). Если такого числа нет, то вывести слово «нет». Пример. N = 12 345, М= 12 360. Число 12 360 делится на число 15 — сумму цифр числа N.
Решение задачи: «Дано натуральное число N. Найти наименьшее число»
textual
Листинг программы
Private Sub Command1_Click()
Dim M As Integer, N, sum As Byte
N = InputBox("N")
M = 0
For M = N + 1 To 2 * N - 1
For j = 1 To Len(N)
sum = sum + Mid(N, j, 1)
Next j
If M Mod sum = 0 Then MsgBox M: Exit Sub
sum = 0
Next M
If M = 0 Then MsgBox "НЕТ"
End Sub