下面程序完成的功能是计算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

臭氧层是指大气层的平流层中臭氧浓度相对较高的部分，它的主要作用是（）。

A.吸收红外线

B.吸收紫外线

C.反射紫外线

D.散射紫外线