vb编写程序,求10∑n!n=1

Answer 1

Private Sub Command1_Click()Dim n As Integern = Val(InputBox("亲输入一个大于零的整数", "提示"))Dim Term As LongTerm = 1For i = 1 To nTerm = Term * iNext iPrint TermEnd Sub