VB阶乘1!+3!+…+n!代码（vb阶乘）

大家好，我是小生，我来为大家解答以上问题。VB阶乘1!+3!+…+n!代码，vb阶乘很多人还不知道，现在让我们一起来看看吧！

Private Sub Command1_Click()

Dim n As Integer, m As Double

m = 1

n = Val(Text1.Text)

If n > 170 Then

MsgBox "无法计算，请输入小于等于170的数。"

Text1.SetFocus

Exit Sub

End If

For i = 1 To n

m = m * i

Next

Text2.text = m

End Sub

本文到此讲解完毕了，希望对大家有帮助。

　　免责声明：本文由用户上传，与本网站立场无关。财经信息仅供读者参考，并不构成投资建议。投资者据此操作，风险自担。 如有侵权请联系删除！