问题
填空题
下列过程的功能是：用来计算并输出S=1+1/2+1/3+…+1/100的值。请完善下列程序。
Function 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项之和，在DoLoop循环中应该用变量i来控制循环，即当i大于等于n时就结束循环。