Option Strict On

​

Imports System

​

Public Module Module1

​

    Public Sub Main()

        Console.WriteLine("F{0} = C{1}", 100, TemperatureToCelsius(100))

        Console.WriteLine("C{0} = F{1}", 100, TemperatureToFahrenheit(100))

    End Sub

    Private Function TemperatureToCelsius(ByVal fahrenheit As Double) As Double

        Return (fahrenheit - 32) * 5 / 9

    End Function

    Private Function TemperatureToFahrenheit(ByVal celsius As Double) As Double

        Return celsius * 9 / 5 + 32

    End Function

End Module

​