随机生成1-N之间的N个不重复数据的方法

作者在 2015-03-17 14:17:43 发布以下内容




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


数据处理问题 | 阅读 1949 次
文章评论,共0条
游客请输入验证码
浏览376917次