【VB】用函数过程求表达式1+1/2+1/3+1/4+…+1/n的和.

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/04 18:38:54

【VB】用函数过程求表达式1+1/2+1/3+1/4+…+1/n的和.
【VB】用函数过程求表达式1+1/2+1/3+1/4+…+1/n的和.

【VB】用函数过程求表达式1+1/2+1/3+1/4+…+1/n的和.
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