Números Primos, Par, Impar,Factorial, Pecfectos ( power builder 12.0)

Hallar numero Primo, Par, Impar,Factorial, Pecfectos  en Power builder 12.

1. diseñamos el formulario como la imagen siguiente

2. codigo fuente.

//los variables

integer inicial, final,factorial,r

integer resi,a,conta,primo,bucle,cad,suma,suma1

lb_1.reset()

inicial=integer(sle_numero1.text)

final=integer(sle_numero2.text)

st_total.text=string(lb_1.totalitems())

//Codigo para Impar

if rb_impares.checked=true then

for inicial=1 to final step 2

lb_1.additem(string(inicial))

st_total.text=string(lb_1.totalitems())

next

end if

//Codigo para Par

if rb_pares.checked=true then

for inicial=2 to final step 2

lb_1.additem(string(inicial))

next

end if

//Codigo para Factorial

factorial=1

for r=integer(st_total.text) to 1 step -1

factorial= factorial* r

next

st_factorial.text=string(factorial)

//Codigo para Primos

if rb_primos.checked=true then

for inicial=inicial to final

conta=0

primo=inicial

for bucle=1 to primo

resi=mod(primo,bucle)

if resi =0 then

conta=conta+1

end if

next

if  conta<=2 then

cad=integer(primo)

suma=suma+primo

st_suma.text=string(suma)

lb_1.additem(string(cad))

end if

next

st_factorial.text=string(factorial)

st_total.text=string(lb_1.totalitems())

end if

Espero ayudarles.comenta tu sugerencia o consultas aqui abajo