本文介绍了一个使用VBA编写的简单程序，该程序通过循环计算并返回用户输入整数的阶乘。用户需要通过弹出的输入框提供一个整数n，程序将计算从1到n的所有整数的乘积。
Private Sub Command1_Click()
Dim n As Integer
Dim sum As Integer
Dim t As Integer
t = 1
sum = 0
n = InputBox("请输入n:", "数据输入")
For i = 1 To n
t = i * n
sum = sum + t
Next i
Print "N的阶乘为：" & sum
End Sub
Dim n As Integer
Dim sum As Integer
Dim t As Integer
t = 1
sum = 0
n = InputBox("请输入n:", "数据输入")
For i = 1 To n
t = i * n
sum = sum + t
Next i
Print "N的阶乘为：" & sum
End Sub
扫一扫
3132
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
