(* Random Sample and its Range <<Knox *) 



SimulateRange[numreps_, a_, b_, sampsize_] :=

 Module[{thesample, rangelist, i, newrange}, rangelist = {};

  Do[

   thesample = DrawIntegerSample[a, b, sampsize];

   newrange = Max[thesample] - Min[thesample];

   AppendTo[rangelist, newrange],

   {i, 1, numreps}];

  	rangelist]



SeedRandom[124];

ranges = SimulateRange[100, 1, 50, 10]



Histogram[ranges, 10, ChartStyle -> Cyan]