填空完成程序，编程计算1+1/2+1/3+1/4+...+1/99+1/100，单击窗体后，在窗体上显示结果。注：请不要更改源程序结构，并在横线位置填写正确的代码。

Private Sub Form_Click()

  Dim s As Single

  Dim i As Integer

    s =

    For i = 1 ToStep 1

        s =

    Next i

  Print "s="; s

End Sub