Clear
Rand(-1)
lnNum=10 &&生成随机数个数
Dimension nStr[lnNum]
N=0
Do While n<lnNum
   nItem = Ceiling(lnNum*Rand())
   If Ascan(nStr,nItem)=0
       nStr[N+1]=nItem
       N=N+1
   EndIf 
EndDo 
For Each nVar In nStr[lnNum]
    ? nVar
EndFor 

方法二(2015-04-01)

作者：夜来香

Create Cursor aaa (aa I)
For I = 1 To 10000  && 0 to 9999
    Insert Into aaa Values (I)
Next
Index On Rand() To aa
Go Top
Browse