Programming Fundamentals/Arrays/VB.NET
arrays.vb edit
' 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))
Temp = Convert.ToInt32(Console.ReadLine())
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 edit
Copy and paste the code above into one of the following free online development environments or use your own VB.NET compiler / interpreter / IDE.