С помощью VBA найти все натуральные числа, не превосходящие заданного числа N и равные...

Question

С помощью VBA найти все натуральные числа, не превосходящие заданного числа N и равные сумме кубов своих цифр

Answer 1

Sub Zadanie()
    n = CInt(InputBox("n ="))

    for i = 1 to n
        t = i
        s = 0
        Do While t > 0
            s = s + (t mod 10)^3
            t = t \ 10
        Loop
        if i=s then MsgBox i
    next
End Sub

Comments

ввод и вывод оформляйте как вам надо