![[填空题] 下列过程的功能是：用来计算并输出S=1+1/2+1/3+…+1/100的值，请完善下列程序。 Furiction SumD (n As Integer)As Singles = 1i =](http://www.mshxw.com/aiimages/31/254628.png "[填空题] 下列过程的功能是：用来计算并输出S=1+1/2+1/3+…+1/100的值，请完善下列程序。 Furiction SumD (n As Integer)As Singles = 1i =")
[填空题] 下列过程的功能是：用来计算并输出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 【12】
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时就结束循环。问题解析:
解析无
