高一数学求解 编写程序,输入正整数n,计算它的阶乘 n!(n!=n×(nሢ1)×···×3×2×

2024-12-02 04:40:49
推荐回答(2个)
回答(1):

n=val(text1.text)
sum=0
for i = 1 to n
sum=sum+i
next i

你在文本框1里面输入n的值,然后执行上述代码 就可以了 sum 就是最终结果

回答(2):

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