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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/23 03:27:14
【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

【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