vb程序设计 编写程序,计算2!+4!+6!+8!+……的值,把结果显示出来。

要求:计算直到最后一项的值大于60000为止

Private Sub Form_Load()
Dim sum&, n&, i%
n = 1
Do While sum < 60000
    i = i + 2
    n = n * i * (i - 1)
    sum = sum + n
Loop
MsgBox "到" & i & "! 为止和为" & sum
End Sub

温馨提示:答案为网友推荐,仅供参考