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 编辑 ]

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.继续运行，不停止。
谢谢，帮忙，我是个菜鸟。

我正在看

好的，谢谢

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

做for s=1 to 1，有不满足的，看到显示，timer1不停下


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

玩大乐透彩票的，我将近五期期的大乐透号码（1-35中的五个）除以5，看余数是几，余数是0,1,2,3,4的分别有几个，
构成h（5，5）数组，例如h（1,5）分别为0,1,1,1,2
然后我随机抽取产生六组号码（每组内部不相同）构成数组ArrayName[6,5]，再把他们除以5看余数0,1,2,3,4的分别有几个构成数组pp[6,5]，将pp[5,5]与h[5,5]对比完全一一对应相同，则输出ArrayName[6,5]，有一个不同则返回重新随机抽取，直到完全一一对应相同为止，选取5组情况很多，不容易满足，但是一组对应相同pp[1,5]与h[1,5]应该比较容易满足，但是
一组是表单上出现ArrayName[6,5]，但停不下来，我怀疑我那里错了，特地请教大虾，望不吝赐教，谢谢。
见笑。

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