Private Sub Command1_Click()Dim n As Integer, i As Integern = CInt(InputBox("N="))For i = 1 To n
s = s + 1 / fact(i)Next iMsgBox ("s=1!+1/2!+1/3!+1/4!+……+1/" & n & "!=" & s)End SubFunction fact(ByVal n As Integer) As DoubleDim f As Doublef = ...
Private Function ss(byval n as integer) as doubledim i as integerdim t as longdim s as doublet=1s=0for i=1 to n
t=t * i
s=s+(1+1/t)next iss =send functi...