【分析解答题】

下面程序完成的功能是计算S=1-1/2+1/3-1/4+…+1/99-1/100的值，并在窗体上输出结果。要求将程序横线上的内容补充完整。

窗件事件如下：
Private Sub Form_Click()
Dim iAs Integer, sAs Single
s=0
______
Do While(i＜=50)
s=______
i=i+1
______
Print"s="s
End Sub