编写函数fun，函数的功能是：根据以下公式计算s，计算结果作为函数值返回；n通过形参传入。

不知道你是要什么语言,就用VB写一个吧Function fun(n As Long) Dim s Dim s1 For I = 1 To n s1 = 0 For j = 1 To I s1 = s1 + j Next j s = s + 1 / s1 Next I fun = sEnd Function 结果 fun(11)=1.8333333