<script runat="server"> Sub submit(sender As Object, e As EventArgs) lbl3.Text="Grade on Assignment 1: " & txt1.Text lbl4.Text="Grade on Assignment 2: " & txt2.Text lbl5.Text="Grade on Assignment 3: " & txt3.Text lbl6.Text="Grade on Midterm: " & txt4.Text lbl7.Text="Grade on Final: " & txt5.Text lbl8.Text="Weighted Average: " & txt7.Text txt1.Text="" End Sub </script> <html> <body><form runat="server"> Enter your grades for the following assessments: <p>Assignment 1: <asp:TextBox id="txt1" runat="server" /></p> <p>Assignment 2: <asp:TextBox id="txt2" runat="server" /></p> <p>Assignment 3: <asp:TextBox id="txt3" runat="server" /></p> <p>Midterm: <asp:TextBox id="txt4" runat="server" /></p> <p>Final: <asp:TextBox id="txt5" runat="server" /></p> <asp:Button OnClick="submit" Text="Submit" runat="server" /> <p><asp:Label id="lbl1" runat="server" /></p> <p><asp:Label id="lbl2" runat="server" /></p> <p><asp:Label id="lbl3" runat="server" /></p> <p><asp:Label id="lbl4" runat="server" /></p> <p><asp:Label id="lbl5" runat="server" /></p> </form></body> </html>
<% Response.Write(result) %>
<% Dim A,B,C, result A = request.form("txt1") B = request.form("txt2") C = request.form("txt3") D = request.form("txt4") E = request.form("txt5") 'Use CInt() to convert A,B, C to integer type result = CInt(A)*.10+CInt(B)*.10+CInt(C)*.10+CInt(D)*.30+CInt(E)*.40 'Use CDbl() to convert result to double type %> <p>Your calculated grade is <% Response.Write (result) %></P>
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)