Clear ? Factorial(9) &&调用函数 Function Factorial Lparameters nNumber If nNumber <= 0 Return 0 Endif m.n = 1 For i = 1 To nNumber m.n = m.n * i Next Return m.n Endfunc
input "number: " to n && 用户输入一个数 ? jc(n) && 访问用户所输入的数的阶乘的值 Function jc && 自定义函数 Parameter n s = 1 i = 0 Do While i < n i = i + 1 s = s * i EndDo Return s
