math.vbs 自然數(shù)n的n次方的的和或積的級數(shù)

    通項為自然數(shù)n的n次方的的和或積的級數(shù)，求和或積的表達式。
    代碼如下:
    dim n,m
    n=inputbox("input a number:","recursion")
    m=factorial ( n )
    if n<0 then msgbox "must be input a number bigger 0."
    elseif n=0 then msgbox "0"&"!"&"is:"&"0"
    elseif n>0 then msgbox n&"is:"&m
    rem how to done not input and press sure case.
    end if
    Function Factorial (N)
    If N <= 1 Then Factorial = 1
    Else Factorial = Factorial(N - 1)*n^n
    End If
    End Function