![[填空题] 下列过程的功能是：用来计算并输出S=1+1/2+1/3+…+1/100的值。请完善程序。 Function SumF(n As Integer)As Single s=0 For i](http://www.mshxw.com/aiimages/31/252126.png "[填空题] 下列过程的功能是：用来计算并输出S=1+1/2+1/3+…+1/100的值。请完善程序。 Function SumF(n As Integer)As Single s=0 For i")
[填空题] 下列过程的功能是：用来计算并输出S=1+1/2+1/3+…+1/100的值。请完善程序。
Function SumF(n As Integer)As Single
s=0
For i=1 To n
s=______
Next i
SuraF=s
End Function
Private Sub Form_Click( )
Sum1=SumF(100)
Print
Print "sum1=" :sum1
End Sub
参考答案：
s+1/i问题解析:
从公式可以看出，第一项为1/1，第二项为1/2，第三项为1/3，…，第n项为1/n。也就是说，分母每次增加1，而分子始终为1。为求前n项之和，在ForNext循环中每次循环都增加1/n。
