><html> ><head> ><title> >ASP.NET Mathematical Sample ></title> ></head> ><body> ><form method="GET" action="math.aspx"> > <input type="text" name="value1"> ><select name="operator"> > <option value="add">+ > <option value="subtract">- > <option value="multiply">x > <option value="divide">/ > </select> > <input type="text" name="value2"> > <input type="submit" value="Get Result"> ></form> ></body> ></html> >>
><%@Import Namespace="System.Decimal" ><script language="VB" runat="server"> >Sub Page_Load(Source as Object, E As EventArgs) >Dim decValue1 As Decimal >Dim decValue2 As Decimal >Dim strOperator As String >Dim decResult As Decimal >decValue1 = Request.QueryString("value1") >decValue2 = Request.QueryString("value2") >strOperator = Request.QueryString("operator") > >Select Case strOperator >Case "multiply" >decResult = MultiplyValues(decValue1, decValue2) >Case "divide" >decResult = DivideValues(decValue1, decValue2) >Case "add" >decResult = AddValues(decValue1, decValue2) >Case "subtract" >decResult = SubtractValues(decValue1, decValue2) >End Select > >Response.Write("The result of your calculation is: " & _ >decResult) >End Sub > >Function MultiplyValues(decValue1 As Decimal, decValue2 As _ >Decimal) > >Dim decResult As Decimal >decResult = Multiply(decValue1, decValue2) >Return decResult > >End Function > >Function DivideValues(decValue1 As Decimal, decValue2 As _ >Decimal) > >Dim decResult As Decimal >decResult = Divide(decValue1, decValue2) >Return decResult > >End Function > >Function AddValues(decValue1 As Decimal, decValue2 As _ >Decimal) > >Dim decResult As Decimal >decResult = Add(decValue1, decValue2) >Return decResult > >End Function > >Function SubtractValues(decValue1 As Decimal, decValue2 As _ >Decimal) > >Dim decResult As Decimal >decResult = Subtract(decValue1, decValue2) >Return decResult > >End Function ></script> >>