'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