lunes, 11 de junio de 2012

Programas Visual Basic (Multiplicacion y Divicion)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        text3.Text = Val(text1.Text) * Val(text2.Text)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        text3.Text = Val(text1.Text) / Val(text2.Text)
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        text1.Text = ""
        text2.Text = ""
        text3.Text = ""
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        End
    End Sub
End Class

Multiplicacion
Multiplicaciòn

No hay comentarios:

Publicar un comentario