填空题 下列过程的功能是：用来计算并输出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