VB中编写函数fun(n),计算s=1+1/2!+1/3!+....+1/n!怎么写代码。求帮忙补空。Functionfun（ByValnAsInteger）AsSingleDimi,tAsInteger:DimsAsSingleFori=1To填空t=t*is+=填空Nextfun=填空EndFunction

Question

VB 中编写函数fun(n),计算s=1+1/2!+1/3!+....+1/n!怎么写代码。求帮忙补空。Function fun（ByVal n As Integer） As Single Dim i,t As Integer:Dim s As Single For i=1 To 填空 t=t*i s+= 填空 Next fun= 填空 End Function

Answer 1

楼主 把 VB 和 c 混了 看看这个 Function fun(ByVal n As Integer) As Single Dim i, t As Integer Dim s As Single t = 1 For i = 1 To n t = t * i s = s + 1 / t Next i fun = s End Function 注意，调用 是 n不...