¡Programa principal de VB factorial, división y suma! ! ! ¡urgente! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !
1. Función factorial:
Función factorial (n veces más larga) veces más larga
Si n = 1, entonces factorial = 1, de lo contrario factorial = n * factorial (n - 1 )
Finalizar función
2. La respuesta es 259
Subcomando privado 1_Click()
Atenuar i, suma, i1 p>
Para i = 1 a 500000
Si Mod 7 = 0, entonces
Suma = suma + i
Si suma & gt5000 entonces print i1 : Salir Sub
i1 = i
Terminará si...
Entonces
Finalizar conector