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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/04 03:17:43

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

用VB程序写出计算s=1!+2!+3!+…+50!的值.
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 Sub