当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > math.vbs 自然数n的n次方的的和或积的级数

VBScript
VBS教程:函数-TimeSerial 函数
VBS教程:函数-Timer 函数
VBS教程:函数-Time 函数
VBS教程:函数-Tan 函数
VBS教程:函数-StrReverse 函数
VBS教程:函数-String 函数
VBS教程:函数-StrComp 函数
VBS教程:函数-Sqr 函数
VBS教程:函数-Split 函数
VBS教程:函数-Space 函数
VBS教程:函数-Sin 函数
VBS教程:函数-Sgn 函数
VBS教程:函数-SetLocale 函数
VBS教程:函数-Second 函数
VBS教程:函数-ScriptEngineMinorVersion 函数
VBS教程:函数-ScriptEngineMajorVersion 函数
VBS教程:函数-Mid 函数
VBS教程:函数-数学函数
VBS教程:函数-LTrim、RTrim 和 Trim 函数
VBS教程:函数-Log 函数

VBScript 中的 math.vbs 自然数n的n次方的的和或积的级数


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-11   浏览: 162 ::
收藏到网摘: n/a

复制代码 代码如下:

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