Elseif and thenac math textbox text math

1:To Convert temperature from degree centigrade to Fahrenheit and Fahrenheit to degree centigrade

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

End Sub

Dim temp2 As Double

c = Convert.ToDouble(txtc.Text)

End Sub

Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

f = Convert.ToDouble(Textf.Text)

temp1 = (f - 32)

End Class

2:To calculate Area, surface Area & volume of a sphere

Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim volume As Double

radius = Convert.ToDouble(txtRadius.Text)

End Sub

End Class

Public Class kgtooundKGtoounces

Inherits System.Web.UI.Page

Dim pound As Double

Dim ounces As Double

IbIInchese.Text = Convert.ToString(ounces)

End Sub

Public Class QuickratioCurrentratio

Inherits System.Web.UI.Page

Dim liability As Double

asset = Convert.ToDouble(Val(txtasset.Text.ToString))

Dim Cash As Double

Dim liability As Double

Marketablesecurities = Convert.ToSingle(Val(TextMarsc.Text.ToString))

tempresult = Convert.ToDouble(Cash + Marketablesecurities)

(Using Pythagoras theorem)

AC = Val(TextBox2.Text)

BC = Val(TextBox3.Text)

AC = Math.Sqrt(BC ^ 2 - AB ^ 2)

TextBox2.Text = Math.Round(AC, 2)

End Sub

6: To calculate Area, surface Area & Volume of cylinder?

Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim surfacearea As Double

Dim volume As Double

IbIvolum.Text = Convert.ToString(volume)

IbIsufaceArea.Text = Convert.ToString(surfacearea)

Code:

Public Class LengtToKmToM_INCH

Dim km As Double

Dim Miles As Double

inches = km * 39370.1

yards = km * 1093.61

End Class

8:To sum of digits of 3 digit number.

Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim thirddigit As Single

firstdigit = Convert.ToSingle(Val(TextBox1.Text.ToString))

End Class

9:To convert Omani Riyal to US Dollar, Pound, & Euro

Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim pund As Double

Dim euro As Double

IbIusd.Text = Convert.ToString(usd)

IbIpound.Text = Convert.ToString(pund)