下列过程的功能是：用来计算并输出S=1+1/2+1/3+…+1/100的值。请完善下
题型：填空题
问题：
下列过程的功能是：用来计算并输出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