vb编程求n的阶乘

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