Question

vb编程计算1+1/2!+1/3!+1/4!+1/5!的值

Answer 1

Private Sub Command1_Click()
n=inputbox("请输入n：")
Dim a As integer
a = 1
Dim sum As Double
For i = 1 To n
For j = 1 To i
a = a * j
Next
sum = sum + 1 / a
a = 1
Next
Print sum
End Sub

Answer 2

Private Sub Command1_Click
Dim s As Integer, i As Integer, c As Integer
s=0
c=1
For i =1 To 5
c=c*i
s=s+i/c
Next i