توليد اعداد تصادفي در يك محدوده خاص

Int (Rnd * (HighBound - LowerBound)) + LowerBound

 Dim LowerBound, HighBound, Area As Integer
  LowerBound = InputBox("Enter Lower Bound:", "Lower Bound of Area")
  HighBound = InputBox("Enter High Bound:", "High Bound of Area")
  Area = HighBound - LowerBound
   Print Int(Rnd * Area) + LowerBound