大家好，我是小生，我来为大家解答以上问题。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

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