n=val(text1.text)
sum=0
for i = 1 to n
sum=sum+i
next i
你在文本框1里面输入n的值，然后执行上述代码 就可以了 sum 就是最终结果
Private Sub Form_click()
Dim n As Double, s As Double
n = Val(InputBox("输入一个数"))
s = 1
For i = 1 To n
s = s * i
Next
MsgBox s
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024