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

温馨提示:答案为网友推荐,仅供参考
相似回答