作业帮 > 综合 > 作业

求vb题代码:求任意个数的阶乘累计和.s=1!+2!+3!+...+n!,n由用户输入.

来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/04/30 01:04:30
求vb题代码:求任意个数的阶乘累计和.s=1!+2!+3!+...+n!,n由用户输入.
求vb题代码:求任意个数的阶乘累计和.s=1!+2!+3!+...+n!,n由用户输入.
一楼的很复杂,给你来个简单的:
Private Sub CommandButton1_Click()
Dim i, s, k
Dim n
aaa: n = InputBox("请输入大于等于1的数字")
If Val(n) >= 1 Then
If Len(n) = 0 Then End
For i = 1 To n
s = s + i * i
Next
MsgBox "从1到" & n & "阶乘累计和为:" & s
Else
k = MsgBox("你输入数据不符合标准,请重输入:", vbOKCancel, vbInformation, "提示")
If k = vbOK Then
GoTo aaa
Else
End
End If
End If
End Su