Visual Basic!
Дано целое число N (> 0). Используя один цикл, найти сумму 1! + 2! + 3! + … + N! 

Sub z()
    n = CInt(InputBox("N?"))
    k = 1
    s = 0

    For i = 1 To n
      k = k * i
      s = s + k
    Next

    MsgBox (s)
End Sub