Red de conocimiento informático - Problemas con los teléfonos móviles - Preguntas sobre la aplicación VB, necesidad urgente, envíeme los pasos de programación, por favor

Preguntas sobre la aplicación VB, necesidad urgente, envíeme los pasos de programación, por favor

Subcomando privado1_Click()

atenuar i mientras, Sumar mientras

Para i = 1 To Val(InputBox("Entero de entrada N"))

Suma = Suma + i ^ 2

Texto1.Texto = Suma

Fin Sub