数组C(I,J)未定义

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

各位版主，大侠帮帮忙啊

thisform.List1.clear
DIMENSION m(1,10)
FOR k=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.