从0000至9999一万组四位数中选出（含1或4或7且任二位数和等0或6或8）的数据。例0001就符合条件，而0005就不符合

题意不清楚
1.是选出全部还是随机选出一个？
2.含1或4或7且任二位数和等0或6或8 是如何理解？是 含1或4或 （7且任二位数和等0或6或8）还是 （含1或4或7）且任二位数和等0或6或8

至于从0000至9999选数并判断 到不是多大问题的
我见过这样做的（全部数列） 可作参考：
 for I=1 to 10000
   x=subst(allt(str(10000+I)),2,4)  &&生成0000-9999的文本数据
     if '1'$x or '4'$X or '7'$X ......    &&条件判断 省略号是你的准确条件
       ?X                                 &&显示符合条件的数列 或其它处理
     endif   
 endfor

你没看清楚他的问题吧？再看看，呵呵~

问题一，是全部选出
问题二，就是一万个四位数里只要含有一个（1或4或7）就行，并且有二数和等于（0或6或8）就行
举例：符合条件的5057（5+5=0，含有7） 1000 （0+0=0，含有1）8403 （8+0=8，含有4）
不符合条件的0005（0+0=0，但没含有1，4，7）5678（5+6=1，5+7=2，5+8=3，6+7=3，6+8=4，7+8=5，都没有符合二数和等于0，6，8，）

干么用啊?这么复杂.

4578个
SET TALK OFF
CLEAR ALL
lncounter=0
FOR start=0 TO 9999
    lcNumber=SUBSTR(ALLTRIM(STR(start)),1,4)
    lnLength=Len(lcNumber)
    DO CASE
        CASE lnlength=1 OR lnLength=2
            IF lcNumber="1" OR lcNumber="4" OR lcNumber="7"
                 ?? lcNumber
                 lncounter=lncounter+1
            ENDIF
        CASE lnLength=3
            IF "1"$lcNumber OR "4"$lcNumber OR "7"$lcNumber
            lcNumOne=SUBSTR(lcNumber,1,1)
            lcNumTwo=SUBSTR(lcNumber,2,1)
            lcNumThr=SUBSTR(lcNumber,3,1)
            lnSum1=VAL(lcNumOne)+VAL(lcNumTwo)
            lnSum2=VAL(lcNumOne)+VAL(lcNumThr)
            lnSum3=VAL(lcNumThr)+VAL(lcNumTwo)
            DO CASE
                Case lnSum1=10 OR lnSum1=16 OR lnSum1=18
                     ??lcNumber
                     lncounter=lncounter+1
                CASE lnSum2=10 OR lnSum2=16 OR lnSum2=18
                    ??lcNumber
                    lncounter=lncounter+1
                CASE lnSum3=10 OR lnSum3=16 OR lnSum3=18
                    ??lcNumber
                    lncounter=lncounter+1
                CASE lcNumOne="0" OR lcNumTwo="0" OR lcNumThr="0"
                    ??lcNumber
                    lncounter=lncounter+1
             ENDCASE
             ENDIF  
        CASE lnLength=4
            IF "1"$lcNumber OR "4"$lcNumber OR "7"$lcNumber
            lcNumOne=SUBSTR(lcNumber,1,1)
            lcNumTwo=SUBSTR(lcNumber,2,1)
            lcNumThr=SUBSTR(lcNumber,3,1)
            lcNumFou=SUBSTR(lcNumber,4,1)
            lnSum1=VAL(lcNumOne)+VAL(lcNumTwo)
            lnSum2=VAL(lcNumOne)+VAL(lcNumThr)
            lnSum3=VAL(lcNumThr)+VAL(lcNumTwo)
            lnSum4=VAL(lcNumThr)+VAL(lcNumFou)
            lnSum5=VAL(lcNumTwo)+VAL(lcNumFou)
            lnSum6=VAL(lcNumOne)+VAL(lcNumFou)
            DO CASE
                Case lnSum1=10 OR lnSum1=16 OR lnSum1=18 OR lnsum1=0
                     ??lcNumber
                     lncounter=lncounter+1
                CASE lnSum2=10 OR lnSum2=16 OR lnSum2=18 OR lnsum2=0
                    ??lcNumber
                    lncounter=lncounter+1
                CASE lnSum3=10 OR lnSum3=16 OR lnSum3=18 OR lnsum3=0
                    ??lcNumber
                    lncounter=lncounter+1
                CASE lnSum4=10 OR lnSum4=16 OR lnSum4=18 OR lnsum4=0
                    ??lcNumber
                    lncounter=lncounter+1
                CASE lnSum5=10 OR lnSum5=16 OR lnSum5=18 OR lnsum5=0
                    ??lcNumber
                    lncounter=lncounter+1
                CASE lnSum6=10 OR lnSum6=16 OR lnSum6=18 OR lnsum6=0
                    ??lcNumber
                    lncounter=lncounter+1
            ENDCASE
            ENDIF
    ENDCASE
    ENDFOR
?? lncounter
SET TALK ON
我有事走了，你再改改

clea
lsn=0
for kk=0 to 9999
    kkc =padl(kk,4,"0")
    ls和 =tran(int(val(left(kkc,1))+val(subs(kkc,2,1)))%10);
         +tran(int(val(left(kkc,1))+val(subs(kkc,3,1)))%10);
         +tran(int(val(left(kkc,1))+val(subs(kkc,4,1)))%10);
         +tran(int(val(subs(kkc,2,1))+val(subs(kkc,3,1)))%10);
         +tran(int(val(subs(kkc,2,1))+val(subs(kkc,4,1)))%10);  
         +tran(int(val(subs(kkc,3,1))+val(subs(kkc,4,1)))%10)
    if ( "1"$kkc .or."4"$kkc .or."7"$kkc ) .and.( "0"$ls和 .or."6"$ls和 .or."8"$ls和 )
       ?? kkc+"  "
       lsn =lsn+1
    endif
endfor
?"  计( " +tran(lsn) +" )个"
retu

大侠，太佩服了，看来代码不是重在写，是重在考虑
我看看自己的，把错的地方改了，可是还是不对，请大家帮我看看
SET TALK OFF
CLEAR ALL
lncounter=0
FOR start=0 TO 9999
    lcNumber=SUBSTR(ALLTRIM(STR(start)),1,4)
    lnLength=Len(lcNumber)
    DO CASE
        CASE lnlength=1 OR lnLength=2
            IF "1"$lcNumber OR "4"$lcNumber OR "7"$lcNumber
                ??lcnumber+" "
                lncounter=lncounter+1
            ENDIF
        CASE lnLength=3
            IF "1"$lcNumber OR "4"$lcNumber OR "7"$lcNumber
            lcNumOne=SUBSTR(lcNumber,1,1)
            lcNumTwo=SUBSTR(lcNumber,2,1)
            lcNumThr=SUBSTR(lcNumber,3,1)
            lnSum1=VAL(lcNumOne)+VAL(lcNumTwo)
            lnSum2=VAL(lcNumOne)+VAL(lcNumThr)
            lnSum3=VAL(lcNumThr)+VAL(lcNumTwo)
            DO CASE
                Case lnSum1=10 OR lnSum1=16 OR lnSum1=18 OR lnsum1=6 OR lnsum1=8
                     ??lcnumber+" "
                     lncounter=lncounter+1
                CASE lnSum2=10 OR lnSum2=16 OR lnSum2=18 OR lnsum2=6 OR lnsum2=8
                    ??lcnumber+" "
                    lncounter=lncounter+1
                CASE lnSum3=10 OR lnSum3=16 OR lnSum3=18 OR lnsum3=6 OR lnsum3=8
                    ??lcnumber+" "
                    lncounter=lncounter+1
                CASE lcNumOne="0" OR lcNumTwo="0" OR lcNumThr="0"
                    ??lcnumber+" "
                    lncounter=lncounter+1
             ENDCASE
             ENDIF  
        CASE lnLength=4
            IF "1"$lcNumber OR "4"$lcNumber OR "7"$lcNumber
            lcNumOne=SUBSTR(lcNumber,1,1)
            lcNumTwo=SUBSTR(lcNumber,2,1)
            lcNumThr=SUBSTR(lcNumber,3,1)
            lcNumFou=SUBSTR(lcNumber,4,1)
            lnSum1=VAL(lcNumOne)+VAL(lcNumTwo)
            lnSum2=VAL(lcNumOne)+VAL(lcNumThr)
            lnSum3=VAL(lcNumThr)+VAL(lcNumTwo)
            lnSum4=VAL(lcNumThr)+VAL(lcNumFou)
            lnSum5=VAL(lcNumTwo)+VAL(lcNumFou)
            lnSum6=VAL(lcNumOne)+VAL(lcNumFou)
            DO CASE
                Case lnSum1=10 OR lnSum1=16 OR lnSum1=18 OR lnsum1=0 OR lnsum1=6 OR lnsum1=8
                     ??lcnumber+" "
                     lncounter=lncounter+1
                CASE lnSum2=10 OR lnSum2=16 OR lnSum2=18 OR lnsum2=0 OR lnsum2=6 OR lnsum2=8
                    ??lcnumber+" "
                    lncounter=lncounter+1
                CASE lnSum3=10 OR lnSum3=16 OR lnSum3=18 OR lnsum3=0 OR lnsum3=6 OR lnsum3=8
                    ??lcnumber+" "
                    lncounter=lncounter+1
                CASE lnSum4=10 OR lnSum4=16 OR lnSum4=18 OR lnsum4=0 OR lnsum4=6 OR lnsum4=8
                    ??lcnumber+" "
                    lncounter=lncounter+1
                CASE lnSum5=10 OR lnSum5=16 OR lnSum5=18 OR lnsum5=0 OR lnsum5=6 OR lnsum5=8
                    ??lcnumber+" "
                    lncounter=lncounter+1
                CASE lnSum6=10 OR lnSum6=16 OR lnSum6=18 OR lnsum6=0 OR lnsum6=6 OR lnsum6=8
                    ??lcnumber+" "
                    lncounter=lncounter+1
            ENDCASE
            ENDIF
    ENDCASE
    ENDFOR
    ??"共计有("+TRANSFORM(lncounter)+")个"
SET TALK ON

有句代码改为如下(红字部分)即可~  比如116,118,136,138...之类是满足条件的, 但在你的8楼程序中 并没有计入~
 
 

        CASE lnLength=3
           ....
           ....
            DO CASE
                Case lnSum1=10 OR lnSum1=16 OR lnSum1=18 OR lnsum1=6 OR lnsum1=8
                     ??lcnumber+" "
                     lncounter=lncounter+1
                CASE lnSum2=10 OR lnSum2=16 OR lnSum2=18 OR lnsum2=6 OR lnsum2=8
                    ??lcnumber+" "
                    lncounter=lncounter+1
                CASE lnSum3=10 OR lnSum3=16 OR lnSum3=18 OR lnsum3=6 OR lnsum3=8
                    ??lcnumber+" "
                    lncounter=lncounter+1
                CASE lcNumOne$"068" .or.lcNumTwo$"068" .or.lcNumThr$"068"
                    ??lcnumber+" "
                    lncounter=lncounter+1
             ENDCASE

哦，是啊，我看了几次都没看出来，谢谢大侠