vb编程求n的阶乘

Dim s As Double, n As Integer
n = Val(InputBox("请输入n值，不要太大哦，否则出错"))
s = 1
Do While n > 1
    s = s * n
    n = n - 1
Loop
MsgBox "这个数的阶乘为" & s

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/fv2xrrx3y72ey2vvje.html