下面的程序是求100以内奇数和s的值，请将程序补充完整。

Private Sub Command1_Click( )

    Dim s As Single

    Dim i As Single

    s = _

    For i = 1 To 100 Step

       

    Next

    Print

End Sub