作业帮 > 数学 > 作业

编写程序计算并输出下面数列前n项的和,当第一次出现和数的绝对值大于500时求和终止.

来源:学生作业帮 编辑:百度作业网作业帮 分类:数学作业 时间:2024/05/05 23:35:32
编写程序计算并输出下面数列前n项的和,当第一次出现和数的绝对值大于500时求和终止.
1*2*3,-2*3*4,3*4*5,-4*5*6,……,(-1)^(n-1)*n*(n+1)*(n+2),……,(其中,^ 表示幂运算)
编写程序计算并输出下面数列前n项的和,当第一次出现和数的绝对值大于500时求和终止.
Private Sub Form_Click()
    Dim n As Integer,s As Integer
    n = 0
    s = 0
    Do While 1
        n = n + 1
        s = s + (-1) ^ (n - 1) * n * (n + 1) * (n + 2)
        Print n,(-1) ^ (n - 1) * n * (n + 1) * (n + 2)
        If Abs(s) > 500 Then
            Exit Do
        End If
    Loop
    Print
    Print "s=",s
End Sub