•Dim
rm(4,
4) As
Double
•Private
Sub Form1_Load(...) Handles MyBase.Load
•'Fill
two-dimensional array with intercity mileages
• Dim sr As IO.StreamReader
=
•
IO.File.OpenText("DISTANCE.TXT")
• Dim row, col As
Integer
• For row = 1 To 4
• For col = 1 To 4
• rm(row, col) = CDbl(sr.ReadLine)
• Next
• Next
• sr.Close()
•End
Sub