Есть факториал,то
VB.
Dim n as Integer
n=InputBox("Введите n: (n!)")
Dim i as Integer
Dim fak As Long
fak = 1
For i = 1 To n
fak = fak * i ' Вычисляем факториал
Next i
' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
MsgBox(fak)