问答题

下面程序完成的功能是计算S=1-1/2+1/3-1/4+…+1/99-1/100的值，并在窗体上输出结果。要求将程序横线上的内容补充完整。
窗件事件如下：
Private Sub Form_Click()
Dim i As Integer, s As Single
s=0
______
Do While(i＜=50)
s=______
i=i+1
______
Print"s="s
End Sub