home *** CD-ROM | disk | FTP | other *** search
/ PC User 2001 August / APC_Aug2001_CD2.iso / features / devtools / files / lb202win.exe / LB202W.EXE / GLBLARRY.BAS < prev    next >
Encoding:
BASIC Source File  |  2000-03-03  |  334 b   |  17 lines
  1. 'fill and display an array with a random quantity of
  2. 'numbers
  3. dim numbers(100)
  4. count = fillRandomly()
  5. for x = 1 to count
  6.     print numbers(x)
  7. next x
  8. end
  9.  
  10. function fillRandomly()
  11.     fillRandomly = int(rnd(1)*100)+1
  12.     for x = 1 to fillRandomly
  13.         numbers(x) = int(rnd(1)*fillRandomly)+1
  14.     next x
  15. end function
  16.  
  17.