thisform.List1.clear
DIMENSION m(1,10)
FOR i=1 TO 77
FOR i=1 TO 35
thisform.List1.additem(ALLTRIM(STR(i)))
ENDFOR
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
thisform.list1.clear   
ENDFOR
thisform.timer1.Enabled=.F.

不是这里的错误，反应找不到变量。

思路是1.向thisform.List1加入35个数
2.从thisform.List1随机取一个数
3.从thisform.List1删去这个数
4，再从thisform.List1随机取一个数
5.再从thisform.List1删去这个数

连续5次取得五个数

我又重新改了一下还不行，挂起说问题
thisform.List1.clear
DIMENSION m(1,10)
FOR i=1 TO 77
FOR i=1 TO 35
thisform.List1.additem(ALLTRIM(STR(i,2)))
ENDFOR
FOR j=1 TO 5
m(1,1)=INT(RAND()*thisform.List1.ListCount+1)
c(i,j)=thisform.List1.list(ALLTRIM(STR(m(1,1))))
thisform.List1.removeitem(ALLTRIM(STR(m(1,1))))
ENDFOR
thisform.list1.clear   
ENDFOR
thisform.timer1.Enabled=.F.

改成k了，还是找不到变量

在timer下启动
thisform.List1.clear    清空列表框
DIMENSION m(1,10)       声明变量
FOR i=1 TO 77          取77组数
FOR i=1 TO 35
thisform.List1.additem(ALLTRIM(STR(i)))
ENDFOR             给列表框注入1---35共35个整数
FOR j=1 TO 5       准备取五个随机数
m(1,1)=INT(RAND()*thisform.List1.ListCount+1) 随机选取一个数(1到列表框的列数）赋给 m(1,1)
c(i,j)=thisform.List1.list(m(1,1))        将列表框中的第m(1,1）列数赋给c（i，j），c（i，j）在开始按钮下已声明。

thisform.List1.removeitem(m(1,1))        将列表框中的第m(1,1）列数清空
ENDFOR
thisform.list1.clear   取完五个数后将列表框全部清空。  
ENDFOR
thisform.timer1.Enabled=.F.取完77组数后timer停止


[ 本帖最后由 jinanshui 于 2013-7-9 08:07 编辑 ]

在表单的开始按钮下定义了

各位版主，大侠帮帮忙啊