Calculadora Programación II visual basic

Public Class Form1

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Me.Close()

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        TxtValor1.Clear()

        TxtValor2.Clear()

        TxtResultado.Clear()

    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TxtResultado.Text = Val(TxtValor1.Text) + Val(TxtValor2.Text)

    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TxtResultado.Text = Val(TxtValor1.Text) - Val(TxtValor2.Text)

    End Sub

    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TxtResultado.Text = Val(TxtValor1.Text) * Val(TxtValor2.Text)

    End Sub

    Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TxtResultado.Text = Val(TxtValor1.Text) / Val(TxtValor2.Text)

    End Sub

    Private Sub Button7_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        TxtResultado.Text = Val(TxtValor1.Text) ^ Val(TxtValor2.Text)

    End Sub

    Private Sub Button8_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        TxtResultado.Text = Val(TxtValor1.Text) Mod Val(TxtValor2.Text)

    End Sub

    Private Sub Button9_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        TxtResultado.Text = Val(TxtValor1.Text) * 10 ^ Val(TxtValor2.Text)

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        TxtValor1.Text = TxtResultado.Text

    End Sub

End Class


Click aquí para descargar