OPERACION FACTORIAL

ESTE EJERCICIO ES PARA REALIZAR UNA OPERACION FACTORIAL

Nota: Este ejercicio esta realizado con un ciclo for next para optimizar de una manera efectiva este proceso.........

PUBLIC SUB Main()
DIM nombre, res AS String
DIM f, l, i AS Integer
f = 1
FOR i = 2 TO 5
f = f * i
NEXT
PRINT "el factorial de 5 es ", f

PRINT "Ingrese nombre "
INPUT nombre
l = Len(nombre)
PRINT "\n"
PRINT "El resultado es:"
FOR i = 1 TO l
res = Mid(nombre, i, 1)
PRINT res
NEXT

nota: esperando que con estas instrucciones le sirva de guia para practica y desarrollo de un gran proyecto a medida que vas practicando y conociendo mas del programa y desarrollando la logica....