随机数产生程序

sybhit

大虾门看看这段程序哪里出错了

随机的产生1，2，3这三个数字，赋予100个数组中，要求，100个数中有20个1，30个2，怎么不对，1的数目对，而2 的数目总是不对
*dim,mm,array,100,1
*set,a,0
*set,b,0
*set,c,0
*set,d,20
*set,d1,30
num=3
*set,flag,1
*dowhile,flag
*do,i,1,100
randnum=nint(rand(1,num))
*set,mm(i,1),randnum
*if,mm(i,1),eq,1,then
  *set,a,a+1
  *elseif,mm(i,1),eq,2
  *set,b,b+1
   *else
   *set,c,c+1
*endif
*enddo
*if,a,NE,d,AND,b,NE,d,then
*set,a,0
*set,b,0
*set,c,0
*else
*set,flag,0
*endif
*enddo

[ 本帖最后由 kadeli 于 2007-5-8 16:14 编辑 ]

kadeli

http://www.simwe.com/forum/viewt ... &extra=page%3D1

michael_chn

服了由阿
服了由阿
服了由阿