Определить произведение цифр натурального числа N. Visual basic

Question

Определить произведение цифр натурального числа N.
Visual basic

Answer 1

Function GetNumberProduct(n)
    if not IsNumeric(n) then
        GetNumberProduct = "Not a valid number"
        Exit Function
    end If

    n = Abs(n)
    Product = 1

    Do While n > 0
        Product = Product * n Mod 10
        n = n \ 10
    Loop

    GetNumberProduct = Product
End Function

n = 1203
MsgBox("Product of digits in " & n & " = " & GetNumberProduct(n))

---
проверялось на vbscript, yно думаю работать и у тебя будет