Private Sub Form_Click() '点击窗体开始运行
Dim n As Integer, i As Integer, s As Double
n = Val(InputBox("请输入一个大于1的整数n"))
s = 1
For i = 2 To n
s = s * i
Next
MsgBox n & "!的值为" & s
End Sub
dim n as integer
dim x as long
x=1
for i=1 to n
x=x*i
next
msgbox x
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024