thisform.List1.clear
DIMENSION c(77,5)
DIMENSION m(1,10)
m(1,1)=35
FOR i=1 TO 77
FOR k=1 TO 35
thisform.List1.additem(ALLTRIM(STR(k,2)))
ENDFOR
FOR j=1 TO 5
c(i,j)= INT(m(1,1)*RAND()+1)
thisform.List1.RemoveListItem(c(i,j))
m(1,1)=m(1,1)-1
ENDFOR
thisform.list1.clear   
ENDFOR
thisform.timer1.Enabled=.F.


thisform.List1.RemoveListItem(c(i,j))
回复下标超界
怎么回事？

请版主说的详细一些，我百思不得其解

真难，版主大侠怎么改呢？

谢谢，我是模仿VB中的一个程序来取不同的随机数
第一步，给列表框注入1-35共35个整数
第二步 从列表框中循环随机取出5个不同的整数
      原来思路是：FOR j=1 TO 5
m(1,1)=INT(RAND()*thisform.List1.ListCount+1)
c(i,j)=thisform.List1.list(m(1,1))
thisform.List1.removeitem(m(1,1))
ENDFOR
说发现不了变量.
第三步,执行上述步骤若干次

老师我的表述不清楚
1.我想从数组c(1),c(2),c(3)........c(a)......c(35)共35个整数中随机取5个不同整数，为保证不同，我不想采用一般的遍历法（相同的再重新取），而是想取一个随机整数a（介于1-35）对应从c(1),c(2),c(3)........c(a)......c(35)拿出c(a)，
而原来的数组只余下c(1),c(2),c(3)........c(a-1)，c(a+1)，............c(35)（共34个数）仍保持原来顺序，
然后取一个随机整数b（介于1-34）对应从c(1),c(2),c(3)........c(a-1)，c(a+1)，............c(35)中拿出c(b)（在新顺序中第b个），
只余下c(1),c(2),c(3)........c(b-1)，c(b+1)，............c(35)（共33个数）仍保持原来顺序
以此类推得到数组d（5），其中d（1）=c（a），d（2）=c（b），d（3）=c（c），d（4）=c（d），d（5）=c（e），
2.将以上过程执行n次得到n个数组d（n，5）

综合以上考虑，想到用列表框。由于是个菜鸟，作乱了
老师，谢谢您，这样如果能实现，感觉到取随机数比较广泛一些。

[ 本帖最后由 jinanshui 于 2013-7-11 16:25 编辑 ]

谢谢老师，我仔细学习。

谢谢