Mini-Exercise #3 -- Answer
	Print out the contents of the array of weights
			Dim i As Integer  i = 0 Do While i <20   Print weights(i)    i = i +1 Loop