Visual Basic

Private Sub Command1_Click() Dim a, b As Integer a = txt1.Text b = txt2.Text txt3.Text = a + b txt4.Text = a / b txt5.Text = a - b txt6.Text = a * b txt7.Text = a ^ b End Sub Private Sub Command2_Click() txt1.Text = "" txt2.Text = "" txt3.Text = "" txt4.Text = "" txt5.Text = "" txt6.Text = "" txt7.Text = "" End Sub Private Sub Command3_Click() End End Sub