<%@ page language="vb" runat="server" %>
Sub Page_Load()
pi.text = Math.PI
exp.text = Math.E
End Sub
Sub Update(Sender As Object, E As EventArgs)
Dim dblInput As Double = CDbl(input.text)
sqrt_input.text = dblInput
sqrt_result.text = Math.Sqrt(dblInput)
abs_input.text = dblInput
abs_result.text = Math.Abs(dblInput)
log_input.text = dblInput
log_result.text = Math.Log10(dblInput)
End Sub
Pi =
Exponential Constant =
Input =
Square root of
=
Absolute Value of
=
Logarithm of
=