VB suma de factoriales del 1 al 20
Dim i, j como entero
Dim sum, t como doble
suma = 0
Para i = 1 a 20
t = 1
Para j = 1 A i
t = t * j
Siguiente j
suma = t suma
Siguiente i
MsgBox "La suma de los factoriales del 1 al 20 es:" & sum, vbInformation, "Confirmación" Primero debe crear un formulario, crear un botón en el formulario, Luego pegue el código anterior en el procedimiento del botón.