Question

用VB程序写出计算s=1!+2!+3!+…+50!的值.

Answer 1

Private Sub Command2_Click()

Dim I As Long,S As Long

For I = 1 To 100

If I Mod 2 = 0 Then

S = S - I

Else

S = S + I

End If

Next

Print S

End Su