Declaración de bucle Do anidado de bucle de asignación de programación VB

DoLoop no se puede utilizar para estas dos preguntas

La primera pregunta: Dim?N?As?Integer,?K?As?Integer,?J?As?Integer

K?=?1

N?=?InputBox("Ingrese N=")

For.i =?1 To?N'?Bucle desde 1 a N

K?=?K?*?i'?Calcular factorial

J?=?J?+?K?'?Calcular suma acumulada de factorial

¿Siguiente? "S?=?"?&?J'?Imprime los resultados de la operación como una tabla

Segunda pregunta: For?i?=?1?To?7' se repite 7 veces, lo que indica que el triángulo consta de 7 filas Composición

Print?Space(7?-?i);'Genere 7-i espacios, centrando el * en la i-ésima línea

For?j?= ?1? A?2?*?i?-?1'?Imprimir el número de números especificado *Imprimir?"*";'?Imprimir los números * en la tabla

Siguiente?j Imprimir' ?Imprimir una línea en blanco

¿Página siguiente?