Private Sub Command1_Click()
Dim n As Long,x As Single,y As Single,y2 As Single,sum As Single
x = Val(InputBox("请输入一个数值：","输入","0.1"))
n = 1:y = 1:sum = 1
Do
y2 = y :y = y * x / n / (n + 1) :sum = sum + y :n = n + 2
Loop Until Abs(y2 - y) < 0.0000000001
Print sum
End Sub