SELECT 2
ZAP
RAND(-1)
voprMax = 20  && 
    voprMin = 1  && 
    FOR n=1 to zach_kol1
        DO WHILE .t.
            tmp_bilet1=INT((voprMax - voprMin + 1) * RAND() + voprMin)
               IF AT(STR(tmp_bilet1),zach_str)=0
                   zach_str=zach_str+' '+STR(tmp_bilet1)
                   EXIT
               ENDIF 
           ENDDO 
            SELECT 2
            INSERT INTO exzamen select * from bilet where n_bil=tmp_bilet1 .and. n_vopr=13
        ENDFOR
    Wait clear
SELECT 2

select 0.000 as randfield, * from bilet into cursor temp readwrite
select temp
scan
  replace randfield with rand() && в цикле, а не через replace for или update, чтобы каждой записи присваивался свой rand()
endscan
select * from temp order by randfield into cursor examen

CLEAR
zach_kol1 = 20
zach_str = ""

RAND(-1)  
voprMax = 20  &&   
voprMin = 1  &&   

FOR n=1 to zach_kol1  
    DO WHILE .t.  && выходить по ESC !
        tmp_bilet1=INT((voprMax - voprMin + 1) * RAND() + voprMin)  
        IF AT(STR(tmp_bilet1),zach_str)=0  
            zach_str=zach_str+' '+STR(tmp_bilet1)  
            EXIT  
        ENDIF   
    ENDDO   
    ? tmp_bilet1  && INSERT INTO exzamen select * from bilet where n_bil=tmp_bilet1 .and. n_vopr=13  
ENDFOR  

CLEAR

voprMax = 20  &&   
voprMin = 1  &&   

RELEASE A
DIMENSION A[1]

RAND(-1) 
m.i = 0
FOR m.n=voprMin TO voprMax
    m.i = m.i+1
    DIMENSION A[m.i, 2]
    A[m.i, 1] = m.n  && генерируем нужные выходные неповторяющиеся числа
    A[m.i, 2] = RAND()
ENDFOR
=ASORT(A, 2)  && собственно "перемешивание" по случайному числу RAND() во 2м столбце

FOR m.i=1 TO ALEN(A,1)
    ? A[m.i,1]  && посмотреть результат перемешивания
ENDFOR

SELECT bilet.*, RAND() rnd FROM bilet ORDER BY rnd

clear  
  create cursor tmp1 (f1 i)  
    
  for i = 1 to 100  
      insert into tmp1 values (0)  
  next  
    
  rand(-1)  
    
  for i = 1 to 10  
      select * from tmp1 where rand() < 0.5 into cursor tmp2  
      ?reccount()  
  next