Public Class Form1
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button1.Click
TextBox3.Text =
Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button2.Click
TextBox6.Text =
TextBox4.Text - TextBox5.Text
End Sub
Private Sub
Button3_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button3.Click
TextBox9.Text =
TextBox7.Text * TextBox8.Text
End Sub
Private Sub
Button4_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button4.Click
TextBox12.Text
= TextBox10.Text / TextBox11.Text
End Sub
Private Sub
Button6_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button6.Click
TextBox1.Text =
""
TextBox2.Text = ""
TextBox3.Text =
""
TextBox4.Text =
""
TextBox5.Text =
""
TextBox6.Text =
""
TextBox7.Text =
""
TextBox8.Text =
""
TextBox9.Text =
""
TextBox10.Text
= ""
TextBox11.Text
= ""
TextBox12.Text
= ""
End Sub
Private Sub
Button7_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button7.Click
End
End Sub
Private Sub
Button5_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button5.Click
Form2.Show()
Me.Hide()
End Sub
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
End Sub
End Class
Sem comentários:
Enviar um comentário