A-A+

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

2022-08-12 20:18:45 问答库阅读 197 次

问题详情

下列过程的功能是：用来计算并输出S=1+1/2+1/3+…+1/100的值，请完善下列程序。 Furiction SumD (n As Integer)As Single s = 1 i = 1 Do i = i + 1 s = s + 1 / i Loop Until【】 SumD = s End Function Private Sub Form. Click() sum1=SumD(100) Print "sum1="； sum1 End Sub

请帮忙给出正确答案和分析，谢谢！

参考答案

正确答案：i＞＝n
从公式可以看出，第一项为1/1，第二项为1/2，第三项为1/3，…，第n项为1/n。也就是说，分母每次增加1，而分子始终为1，为求前n项之和，在Do-Loop循环中应该用变量i来控制循环，即当i大于等于n时就结束循环。