'Kevin Ding

'C to F Table

'3/2/21

​

Imports System

Imports Microsoft.VisualBasic

Public Module Module1

    'Conversion Function

    Function cvrtCToF(byref tempC as double) as double

        dim tempF as double = (9/5) * tempC + 32

        return tempF

    End Function

    Public Sub Main()

        Dim tempC as double = 10

        Do 

            Console.WriteLine(tempC & Chr(176) & "C --> " & cvrtCToF(tempC) & Chr(176) & "F")

            tempC += 5

        Loop Until (tempC = 100)

    End Sub

End Module