startmathproj

Option Strict On

Option Explicit On

Module startmath

Sub Main()

Dim intNum1 as Double

Dim strNum1 as String

Dim intNum2 as Double

Dim strNum2 as String

Dim intRslt as Double

Do While intNum1 < 100

System.Console.Write("Enter the first number: ")

strNum1 = System.Console.ReadLine()

System.Console.Write("Enter the second number: ")

strNum2 = System.Console.ReadLine()

intNum1 = System.Convert.ToDouble(strNum1)

intNum2 = System.Convert.ToDouble(strNum2)

intRslt = System.Math.Sqrt(intNum1)

intRslt = intRslt * intNum2

System.Console.Write("The result of the calculation is: ")

System.Console.WriteLine(intRslt.ToString())

Loop

End Sub

End Module