factorial.vbs

来自「这是c#高级编程的配套源码」· VBS 代码 · 共 11 行

Option Explicit 

Dim objFactorial
Dim lngResult 
Dim lngInputValue 

Set objFactorial=CreateObject("CSharpFactorial.Factorial")
lngInputValue=InputBox("Number?")
lngResult=objFactorial.ComputeFactorial(CLng(lngInputValue))
Call MsgBox(lngResult)