Red de conocimiento informático - Problemas con los teléfonos móviles - ¡Programa principal de VB factorial, división y suma! ! ! ¡urgente! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !

¡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

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