要编程实现1+3+5+……+100的值，请填空完整。

Private Sub command1_Click()

    Dim n As Integer, i As Integer, s As Double

    n = 100

    s = 0

    For i = 1 To n

        

    Next i

    Print s

End Sub