填空题 下列过程的功能是：用来计算并输出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 1
SumD=s
End Function
Private Sub Form_Click 2
sum1=SumD(100)
Print "sum1=" : sum1
End Sub