PROJECT 18
The data file for this program is table 7.9 on page 374
You will find it listed below
Notice that the data is in one column!



Dim sr as IO.StreamReader=IO.File.OpenText("d:\temp\distance.txt")
should read:   
Dim sr as IO.StreamReader = IO.File.OpenText("c:\temp\distance.txt")   

                                                                     A sample run follows:
                                                   
 
  Data for the program follows:
   0
   2054
   802
   738
   2054
   0
    2787
    2706
    802
    2786
    0
    100
    738
    2706
    100
    0