|
<%@ Page Language="VB" %>
<script runat="server">
Sub btAdd_Click(Sender As Object, E As EventArgs)
lblMessage.Text = "The answer is: " & Cint(tbNumber1.Text) + Cint(tbNumber2.Text)
End Sub
Sub btSubtract_Click(Sender As Object, E As EventArgs)
lblMessage.Text = "The answer is: " & Cint(tbNumber1.Text) - Cint(tbNumber2.Text)
End Sub
Sub btMultiply_Click(Sender As Object, E As EventArgs)
lblMessage.Text = "The answer is: " & Cint(tbNumber1.Text) * Cint(tbNumber2.Text)
End Sub
Sub btDivide_Click(Sender As Object, E As EventArgs)
lblMessage.Text = "The answer is: " & Cint(tbNumber1.Text) / Cint(tbNumber2.Text)
End Sub
</script>
<HTML>
<HEAD>
</HEAD>
<BODY>
<form runat="server">
Number 1: <asp:textbox id="tbNumber1" runat=server/><br>
Number 2: <asp:textbox id="tbNumber2" runat=server/>
<asp:button id="btAdd" Text=" + " OnClick="btAdd_Click" runat=server/>
<asp:button id="btSubtract" Text=" - " OnClick="btSubtract_Click" runat=server/>
<asp:button id="btMultiply" Text=" * " OnClick="btMultiply_Click" runat=server/>
<asp:button id="btDivide" Text=" / " OnClick="btDivide_Click" runat=server/>
<asp:label id="lblMessage" font-size="20pt" runat=server/>
</form>
</BODY>
</HTML>
|