钱建民的回答：

Dim n, i, j As Integer, S, Si As Long

Do While .T.

   n = InputBox("请输入小于13的数", "n=", 0)
   If n >= 13 Then
      MsgBox ("请重新输入小于13的数据")

   Else

      Exit Do

   End If

Enddo

S = 0

For i = 1 To n

    Si = 1

    For j = 2 To i

        Si = Si * j

    Next
    S = S + Si

Next
Print "S = 1！+2！+3！+···+n! = "; Format(S)

刘军的回答：

Dim n, i, j As Integer, S, Si As Long

Do While .T.

   n = InputBox("请输入小于13的数", "n=", 0)
   If n >= 13 Then
      MsgBox ("请重新输入小于13的数据")

   Else

      Exit Do

   End If

Enddo

S = 0

For i = 1 To n

    Si = 1

    For j = 2 To i

        Si = Si * j

    Next
    S = S + Si

Next
Print "S = 1！+2！+3！+···+n! = "; Format(S)

尘埃的回答：

dim a,b,c as integer

inputbox("请输入你的数字",a)

 

for a to 1

b=a-1

    for b to 1

   c+=b*(b-1)

next

next

 

704135103的回答：

Private Sub Form_Click() s# = 1 n% = Val(InputBox("请输入n", "提示")) For i = 1 To n s = s * i Next Print n & "的阶乘是：" & s End Sub

'Revive的回答：

Private Sub Command1_Click() Dim x As Integer, s As Long, y As Integer, sum As Long x = InputBox("请输入小于13的数据", "输入数据", 0) s = 1 sum = 0

If x >= 13 Then MsgBox ("请重新输入小于13的数据") End If

For i = 1 To x  s = s * i          '计算阶乘的算法  sum = sum + s        累加求和的算法   Next i Print sum End Sub