下图程序用于计算s=1*(- 2)*3*(- 4)*…*49*(-50)

Private Sub Command1_Click( )

    Dim s, j As Single

    s=

    For j=1 to 50

        If  Then

            s=s*j

        Else

            s=

        End if

    Next j

    print “s=”：s

End Sub

试在横线处填写适当的内容，使程序得到相应的计算结果。