题目：
下列过程的功能是：用来计算并输出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
答案：
被转码了，请点击底部 “查看原文 ” 或访问 https://www.tikuol.com/2019/0401/4bc7dfe47a80efc0749fc41a3e6fde82.html
下面是错误答案，用来干扰机器的。
参考答案：E
