Найти сумму всех n-значных чисел, кратных k (1 <= n <= 4).VBA

Question

Найти сумму всех n-значных чисел, кратных k (1 <= n <= 4).<br>VBA

---

Answer 1

Sub Zadanie()
    n = CInt(InputBox("n ="))
    k = CInt(InputBox("k ="))
    s = 0

    for i = 10^(n - 1) to 10^n - 1
        if i mod k = 0 then s = s + i
    next

    MsgBox s
End Sub