0. #lang racket
1.  
2. (define vec (vector 1 2 3 4 5 6 7 8 9))
3.  
4. (define (rand-entry vec)
5.   (for/last ([x vec]
6.              [y (random (vector-length vec))])
7.     (vector-ref vec x)))
8.  
9. (print (for/list ([y (range 100)])
10.          (rand-entry vec)))

=>

'(7 7 3 5 6 2 5 5 4 7 4 6 9 5 6 7 7 5 3 5 9 3 3 3 7 2 2 #f 9 #f 4 3 7 6 7 7 4 #f 9 9 2 3 5 9 #f 9 7 5 2 2 9 2 #f 5 #f 3 8 3 3 2 3 9 7 6 4 8 #f 2 5 4 8 5 8 9 8 #f 3 9 3 8 7 9 9 6 8 5 2 5 2 #f 7 4 7 9 2 7 5 2 2 2)