EJERCICIO # 3 DEL CICLO FOR

CODIFICACIÓN

PSEUDOCODIGO

Private Sub Boton_dividir_Click()
Dim result As Integer
result = Val(Numero_uno.Text) / Val(Numero_dos.Text)
Numero_resultado.Text = Str(result)
 End Sub

Private Sub Boton_multiplicar_Click()
Dim result As Integer
 result = Val(Numero_uno.Text) * Val(Numero_dos.Text)
Numero_resultado.Text = Str(result)
End Sub

Private Sub Boton_restar_Click()
Dim result As Integer
 result = Val(Numero_uno.Text) - Val(Numero_dos.Text)
 Numero_resultado.Text = Str(result)
End Sub

Private Sub Boton_salir_Click()
 End
End Sub

Private Sub Boton_Sumar_Click()
 Dim result As Integer
 result = Val(Numero_uno.Text) + Val(Numero_dos.Text)
 Numero_resultado.Text = Str(result)
   End Sub