exercise2.aspx

来自「asp入门到精通的源代码」· ASPX 代码 · 共 41 行

ASPX
41
字号
 <HTML>
 <HEAD>

 <script language="VB" 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>

 </HEAD>
 <BODY bgcolor="#CCCCCC">

 <font size="5">Sam's Teach Yourself ASP.NET in 21 Days: Day 2, Exercise 2</font><hr><p>

 <form runat="server">

 Number 1: <asp:textbox id="tbNumber1" runat=server/><br>
 Number 2: <asp:textbox id="tbNumber2" runat=server/><p>
 <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/><p>
 <asp:label id="lblMessage" font-size="20pt" runat=server/>

 </form>

 </BODY>
 </HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?