[填空题] 下列过程的功能是：用来计算并输出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时就结束循环。