标题:不用循环能解决吗
只看楼主
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:0 
回复 29楼 fdqzy
应该不是变量数目的问题
检查一下变量使用有无冲突,如25楼提到的变量kdxtj就有冲突。
随便定义60个变量测试:
程序代码:
PRIVATE m1,m2,m3,m4,m5,m6,m7,m8,m9,m10,;
    m11,m12,m13,m14,m15,m16,m17,m18,m19,m20,;
    m21,m22,m23,m24,m25,m26,m27,m28,m29,m30,;
    m31,m32,m33,m34,m35,m36,m37,m38,m39,m40,;
    m41,m42,m43,m44,m45,m46,m47,m48,m49,m50,;
    m51,m52,m53,m54,m55,m56,m57,m58,m59,m60
FOR i=1 TO 60
    _vfp.SetVar("m"+TRANSFORM(i),0) 
ENDFOR
fun()
fun1()
printvar(1,30)
printvar(31,60)
RETURN

FUNCTION fun()
    FOR i=1 TO 30
        EXECSCRIPT("m"+TRANSFORM(i)+"="+TRANSFORM(i))
    ENDFOR
ENDFUNC

FUNCTION fun1()
    FOR i=31 TO 60
        EXECSCRIPT("m"+TRANSFORM(i)+"="+TRANSFORM(i))
    ENDFOR
ENDFUNC  

FUNCTION printvar(n,m)
    FOR i=n TO m
        ? "m"+TRANSFORM(i), EVALUATE("m"+TRANSFORM(i))
    ENDFOR
    WAIT 
ENDFUNC
2020-09-26 09:31
fdqzy
Rank: 1
等 级:新手上路
帖 子:354
专家分:0
注 册:2016-8-15
得分:0 
以下是引用吹水佬在2020-9-26 09:31:31的发言:

应该不是变量数目的问题
检查一下变量使用有无冲突,如25楼提到的变量kdxtj就有冲突。
随便定义60个变量测试:
PRIVATE m1,m2,m3,m4,m5,m6,m7,m8,m9,m10,;
    m11,m12,m13,m14,m15,m16,m17,m18,m19,m20,;
    m21,m22,m23,m24,m25,m26,m27,m28,m29,m30,;
    m31,m32,m33,m34,m35,m36,m37,m38,m39,m40,;
    m41,m42,m43,m44,m45,m46,m47,m48,m49,m50,;
    m51,m52,m53,m54,m55,m56,m57,m58,m59,m60
FOR i=1 TO 60
    _vfp.SetVar("m"+TRANSFORM(i),0)
ENDFOR
fun()
fun1()
printvar(1,30)
printvar(31,60)
RETURN

FUNCTION fun()
    FOR i=1 TO 30
        EXECSCRIPT("m"+TRANSFORM(i)+"="+TRANSFORM(i))
    ENDFOR
ENDFUNC

FUNCTION fun1()
    FOR i=31 TO 60
        EXECSCRIPT("m"+TRANSFORM(i)+"="+TRANSFORM(i))
    ENDFOR
ENDFUNC  

FUNCTION printvar(n,m)
    FOR i=n TO m
        ? "m"+TRANSFORM(i), EVALUATE("m"+TRANSFORM(i))
    ENDFOR
    WAIT
ENDFUNC

谢谢!是我粗心大意,就是25楼提到的重复初始化问题。
2020-09-26 14:34



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-503244-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.283039 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved