Programming Fundamentals/Arrays/VB.NET

arrays.vb

' This program uses arrays to display temperature conversion tables
' and temperature as an array subscript to find a given conversion.
'
' References:
'     https://www.mathsisfun.com/temperature-conversion.html
'     https://en.wikibooks.org/wiki/Visual_Basic_.NET

Imports System

Public Module Arrays
Sub Main
Dim C() As Double
Dim F() As Double

C = BuildC(100)
F = BuildF(212)
DisplayArray("C", C)
DisplayArray("F", F)
FindTemperature(C, F)
End Sub

Private Function BuildC(Size As Integer) As Double()
Dim C() As Double
Dim Index As Integer
Dim Value As Double

ReDim C(Size)
For Index = 0 To Size
Value = Index * 9 / 5 + 32
C(Index) = Value
Next

Return C
End Function

Private Function BuildF(Size As Integer) As Double()
Dim F() As Double
Dim Index As Integer
Dim Value As Double

ReDim F(Size)
For Index = 0 To Size
Value = (Index - 32) * 5 / 9
F(Index) = Value
Next

Return F
End Function

Private Sub DisplayArray(Name As String, Array() As Double)
Dim Index As Integer

For Index = 0 To Array.Length - 1
Console.WriteLine(Name & "[" & Index & "] = " & Array(Index))
Next
End Sub

Private Sub FindTemperature(C() As Double, F() As Double)
Dim Temp As Integer
Dim Size As Integer

Size = Minimum(C.Length, F.Length)
Do
Console.WriteLine("Enter a temperature between 0 and " & (Size - 1))
Loop While Temp < 0 Or Temp > Size - 1
Console.WriteLine(Temp & "° Celsius is " & C(Temp) & "° Fahrenheit")
Console.WriteLine(Temp & "° Fahrenheit is " & F(Temp) & "° Celsius")
End Sub

Private Function Minimum(Value1 As Integer, Value2 As Integer) As Integer
Dim Result As Integer

If Value1 < Value2 Then
Result = Value1
Else
Result = Value2
End If

Return Result
End Function
End Module

Try It

Copy and paste the code above into one of the following free online development environments or use your own VB.NET compiler / interpreter / IDE.