A-A+

下列过程的功能是用来计算并输出S=1+1/2+1/3+……+1/100的值请完善程序。 F

2022-08-12 20:23:26 问答库阅读 197 次

问题详情

下列过程的功能是用来计算并输出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 SumF=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项之和，在For-Next循环中每次循环都增加1/i。