VB计算n个整数的阶乘和
VB计算n个整数的阶乘和
日期:2017-06-22 20:51:32 人气:2
Private Sub Command1_Click()
Dim n As Integer
n = InputBox("n=")
For i = 1 To n
s = s + fac(i)
Next i
Print "1!+2!+...+"; Str(n); "!="; s
End Sub
Function fac(n)
f = 1
For i = 2 To n
f = f * i
Next i
fac = f
End Function