Dim n, i, j As Integer, S, Si As LongDo While .T. n = InputBox("请输入小于13的数", "n=", 0) If n >= 13 Then MsgBox ("请重新输入小于13的数据") Else Exit Do End IfEnddoS = 0For i = 1 To n Si = 1 For j = 2 To i Si = Si * j Next S = S + SiNextPrint "S = 1！+2！+3！+···+n! = "; Format(S)
