作业帮 > 综合 > 作业

计算1-2!+3!-4!+5!-6!并将结果显示在文本框中

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/06/14 16:27:25
计算1-2!+3!-4!+5!-6!并将结果显示在文本框中
Private Sub Command1_Click()
n = InputBox("输入一个整数")
s = 0
For i = 1 To n
p = 1
For j = 1 To i
p = p * j
Next j
If i Mod 2 = 0 Then
s = s - p
Else
s = s + p
End If
Next i
Text1.Text = s
End Sub
任意个数的