LOCAL t,q,p,n,f
DIMENSION d(5)
DIMENSION ArrayName[6,5]
DIMENSION  pq(5)
t=0
DO WHILE t=0
t=1
FOR k=1 to 6
        FOR m = 1 To 35   
      c(m)=m
    NEXT
        FOR i = 1 To 5     
        f= Int(Rand() *(36-i))+1
        d(i) = c(f)
        q=c(f)
        
        FOR p=f TO 35-i
        n=c(p+1)
        c(p)=n
        NEXT
        c(36-i)=q
    NEXT
       endfor
           NEXT   
ArrayName[k,1]=d(1)
    ArrayName[k,2]=d(2)
    ArrayName[k,3]=d(3)
    ArrayName[k,4]=d(4)
    ArrayName[k,5]=d(5)
t=1
for s=1 to 1
    for j=1 to 5
        if ABS(ArrayName(s,j)-h(s,j))>0
            t=0
            exit
        endif
    ENDFOR
    IF t=0
        exit
        endif
    ENDFOR
ENDDO
  ?? ArrayName[6,1],'@',ArrayName[6,2],'@',ArrayName[6,3],'@',ArrayName[6,4],'@',ArrayName[6,5] FONT 'Courier',44
  thisform.timer1.enabled= .f.
不起作用，明明已经符合条件了，停不下来，我错了嘛
 thisform.timer1.enabled= .t.是在cmd按钮启动的，

不用给程序作注释，真是佩服楼主好记性！

设置断点，看哪出问题

楼主是代码高手，注释不说，这个层次不细看，也看不明白

LOCAL t,q,p,n,f
DIMENSION d(5)
DIMENSION ArrayName[6,5]
DIMENSION  pq(5)
t=0
DO WHILE t=0
t=1
FOR k=1 to 6
        FOR m = 1 To 35   
      c(m)=m
    NEXT                    数组C（35）取数
        FOR i = 1 To 5     
        f= Int(Rand() *(36-i))+1
        d(i) = c(f)
        q=c(f)
        
        FOR p=f TO 35-i
        n=c(p+1)
        c(p)=n
        NEXT
        c(36-i)=q
    NEXT
       endfor      
           NEXT   ？？？？这里错该删除，源程序没有
ArrayName[k,1]=d(1)
    ArrayName[k,2]=d(2)
    ArrayName[k,3]=d(3)
    ArrayName[k,4]=d(4)
    ArrayName[k,5]=d(5)
t=1
for s=1 to 1        这里原来是1---5，为了验证停不下来，取作1---1
    for j=1 to 5
        if ABS(ArrayName(s,j)-h(s,j))>0         只要有一组对应数据不相等，t=0---回到do  while
            t=0
            exit
        endif
    ENDFOR
    IF t=0
        exit
        endif
    ENDFOR
ENDDO
  ?? ArrayName[6,1],'@',ArrayName[6,2],'@',ArrayName[6,3],'@',ArrayName[6,4],'@',ArrayName[6,5] FONT 'Courier',44
  thisform.timer1.enabled= .f.
不起作用，明明已经符合条件了，停不下来，我错了嘛
thisform.timer1.enabled= .t.是在cmd按钮启动的，

大家已经说出自己的看法，楼主还要一意孤行

我是一个半路出家的和尚，38岁因工作需要才拾起20年前在大学学的一点basic，让大家见笑了，请原谅。我再整理一下。

[ 本帖最后由 jinanshui 于 2013-8-4 11:37 编辑 ]

这是在哪儿找的程序？干什么用啊？程序有问题：      
      c(m)=m    && c(m)数组没有定义

           NEXT   ？？？？这里错该删除，源程序没有 删除，不能加。

for s=1 to 1   我抑郁的是，这里原来是for s=1 to 5 ，为了验证该做for s=1 to 1看到显示，timer1不停下
    for j=1 to 5
        if ABS(ArrayName(s,j)-h(s,j))>0
            t=0
            exit
        endif
    ENDFOR
    IF t=0
        exit
        endif
    ENDFOR
ENDDO
  ?? ArrayName[6,1],'@',ArrayName[6,2],'@',ArrayName[6,3],'@',ArrayName[6,4],'@',ArrayName[6,5] FONT 'Courier',44，这里显示了，并且出了很多组，timer1不停下
  thisform.timer1.enabled= .f.继续运行，不停止。
谢谢，帮忙，我是个菜鸟。