Para realizar las sumas de los cuadrados de los números naturales consecutivos, lo primero a realizar es las creaciones de los formularios, en la presente publicación dejaremos los formularios correspondientes a crear.
Una vez creado los formularios nos dirigimos al codificado del botón donde insertaremos el siguiente código.
Private Sub CommandButton1_Click()
Dim num As Integer
num = Val(TextBox1)
For i = 1 To num
respuesta = respuesta + i ^ 2
Next
TextBox2 = respuesta
End Sub
Nota: No modificar nada del formulario.
No hay comentarios.:
Publicar un comentario