Imports System

​

Public Module Program

    Public Const SpeedOfLight = 3 * 10^16

    Function KilogramToJoule(KgInput As Double) As Double

        KilogramToJoule = KgInput * SpeedOfLight ^ 2

    End Function

    Function JouleToLightbulbs(JouleInput As Double) As Double

        JouleToLightbulbs = JouleInput / 360000

    End Function

    Function FahrenheitToCelsius(FahrenheitInput As Double) As Double

        FahrenheitToCelsius = (FahrenheitInput - 32) * 5 / 9

    End Function

    Public Sub Main(args() As string)

        Dim KgInput As Double = 29.5

        Dim JouleResult = KilogramToJoule(KgInput)

        Dim LightbulbResult = JouleToLightbulbs(JouleResult)

        Console.WriteLine(KgInput & "kg <==> " & JouleResult & "J")

        Console.WriteLine(KgInput & "kg powers " & LightbulbResult & " 100W bulbs for 1 hour")

        Dim TempInput As Double = 32

        Dim CelsiusResult = FahrenheitToCelsius(TempInput)

        Console.WriteLine(TempInput & "°F <==> " & Math.Round(CelsiusResult, 4) & "°C")

    End Sub

End Module