PowerBuilder: Factorial de un número

La función factorial (símbolo: !) sólo quiere decir que se multiplican una serie de números que descienden. Ejemplos: 4! = 4 × 3 × 2 × 1 = 24 7! = 7 × 6 × 5 × 4 × 3 × 2 × 1 = 5040 1! = 1

Diseño:

BOTÓN CALCULAR

Declaramos las variables

integer n,i,fac
n=integer(em_1.text)
fac=1
do while i
i++
fac*=i loop
messagebox("",string(fac))