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

数据处理问题 | 2015-03-17 14:17:43 | 阅读 1326 次 | 评论(0)




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


文章评论,共0条
游客请输入验证码
浏览251805次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...