欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

诸位大侠,看看thisform.timer1停不下来。错在哪儿呢

更新时间: 2014-01-05 02:27:42 责任编辑: Author_N1

 

各位大侠,看看thisform.timer1停不下来。错在哪儿呢?
各位大侠,看看thisform.timer1停不下来。错在哪儿呢?
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按钮启动的,

--参考方法--
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 02:27:42
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/10083/
本文WWW.DOC100.NET DOC100.NET版权所有。