[求助]一个随机排序的问题
现在有个问题,一个选好系统中
先输入20家单位的名称
现在要求先对这20家单位随机排个顺序
并分配一个序号(这个序号是随机产生的)
望大侠门能早点给个指点
2005-08-10 10:46
2005-08-10 11:21
ds=20 &&删除随机数表 sele bp_sjs zap sw=int(ds/10) gw=ds-sw*10
r=0 do while r<=ds s=int(rand()*10) if s<=sw ss=int(rand()*10) if ss<=9 .and. (s*10+ss)<=ds sele bp_sjs locat for 随机数=s*10+ss if eof() append blank repl 随机数 with s*10+ss r=r+1 endif endif endif enddo sele bp_sjs dele for 随机数=0 pack &&生成随机数表结束
2005-08-24 18:35
