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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/05/15 23:12:36
用VB程序写出计算s=1!+2!+3!+…+50!的值.用VB程序写出计算s=1!+2!+3!+…+50!的值.用VB程序写出计算s=1!+2!+3!+…+50!的值.PrivateSubComman

用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