Programación VB. ¡Ingrese un número entero n y calcule 1! +2! +3! ....+valor y salida a la tabla. Se requieren dos bucles, a saber, for y while.

Dim?n?As?Integer,?sum?As?Long,?jc?As?Long

n ?=?InputBox("Ingrese:")? Si escribe texto1 en el cuadro de texto, el contenido aquí es:?n=val(Text1)

suma?=?0

Para?i?=?1?Para?n

jc?=?1

para?j=1?Para?i

jc ? =?jc?*?j

siguiente?j

suma?=?suma?+?jc

Siguiente?i

Imprimir?suma

mientras:Dim?i?As?Integer,?j?As?Integer

Dim?n?As?InputBox ("Ingrese: ")

suma=0

i=1

¿Mientras?i?<=?n

jc=1

j ?=?1

Mientras?j?<=?i

jc?=?jc?*?j

j?=?j?+ ? 1

Fin

suma?=?suma?+?jc

i?=?i?+?