Dim s As Long, nn As Long, i As Integer s = 0: nn = 1 For i = 1 To 10 nn = nn * i s = s + nn Next i MsgBox ("1!+2!+3!+...+10!=" & s)
