Function Sum1(ByVal n As Intger) As Double
Dim i As Integer
Sum1=0
for i =1 to n
Sum1=Sum1+ 1/i
next i
End Function
private function MyFunc(byval n as intger) as double
dim i as integer
for i =1 to n
MyFunc=Myfunc+ 1/i
next i
end function
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024