Mini-Exercise #2 -- Answer
v Initialize the array weights with values of 100, 200,
300, … 2000
Dim weights(19) As Double
Dim i As Integer
 i = 0
Do While i <20
  weights(i) = (i +1)*100
   i = i +1
Loop