PUBLIC SUB Button1_Click()
Textbox3.text=(Textbox1.text) + (Textbox2.text)
END
PUBLIC SUB Button2_Click()
Textbox3.text=(Textbox1.text) – (Textbox2.text)
END
PUBLIC SUB Button3_Click()
Textbox3.text=(Textbox1.text) * (Textbox2.text)
END
PUBLIC SUB Button4_Click()
Textbox3.text=(Textbox1.text) / (Textbox2.text)
END
PUBLIC SUB Button5_Click()
Textbox3.text=(Textbox1.text) ^ (Textbox2.text)
END
No hay comentarios:
Publicar un comentario