将重庆时时彩 的一列号码的大小 用线条表示出来  0---4 为小  5--9 为大   如一列如下数字：1  2 4 3 5 7 8 9 4 2 6 4 7 3 9 4 0 0 1 2 就是      
小 大 小 大 小 大 小 大 小
小 大 小                小
小 大                   小   
   大                   小
                        小
 
如何用代码写出来

接上回合。如 1 3 5 7 9 为单，0 2 4 6 8 为双，又如何同时写出来

[ 本帖最后由 林三少 于 2013-3-16 19:44 编辑 ]

if 字符<='4'
  小
else
大
endif

这个我还会一点，但人不懂是如何将 大与小 按照上面的图形排出来，排成图形呀
再请高人指点

平面图形要有规律才能排布。直线排列图可以是下列：
css=" 1  2 4 m 3 5 kkk 7 8 942 6 47 3 9 4 0 0 1 2  " && 假如数字中也混有空格或非数字
cdd=""
for n=1 to LEN(css)
  if ASC(SUBSTR(css,n,1))>47 and ASC(SUBSTR(css,n,1))<58
       cdd=cdd+IIF(VAL(SUBSTR(css,n,1))<5,"小","大")
  endif
endfor
?cdd


[ 本帖最后由 qingfameng 于 2013-3-8 15:17 编辑 ]

看不懂楼主第3-6行是什么规律。

将重庆时时彩 的一列号码的大小 用线条表示出来  0---4 为小  5--9 为大   如一列如下数字：1  2 4 3 5 7 8 9 4 2 6 4 7 3 9 4 0 0 1 2 就是      
小 大 小 大 小 大 小 大 小
小 大 小                小
小 大                   小   
小 大                   小
                        小


根据开奖顺序， 先开4期小数。再开4期大数，然后开两期小，接接着是一期大，一期小，一期大，一期小，一期大，最后连开5期小。

这样明白了吗
随着开奖结果娈化 图形就变， 开同样大小的往下拉，不同的往右连走。


谢谢高人回复，请继续

clear
css=" 1 2 4 3 5 7 8 942 6 47 3 9 4 0 0 1 2  " && 注：字串中必须有数字
store SPACE(0) to c1,c2
ns=1

create cursor A (a1 c(4)) && 只一个字段
create cursor B (b1 c(4))

SELE A
for n=1 to LEN(css)
  if ASC(SUBSTR(css,n,1))>47 and ASC(SUBSTR(css,n,1))<58
       insert into A (a1) values (IIF(VAL(SUBSTR(css,n,1))<5,"小","大"))
  endif           
endfor
  
  go top
  if EOF()
     return
  endif   
     c1=ALLTRIM(a1)
     insert into B (B1) values (C1)  
     
     ns=1
     sele A
     skip
  do while.not.eof()
        c2=ALLTRIM(a1)
        sele B
     if c2=c1
        czd="b"+ALLTRIM(STR(ns))
        zd()
     else
        ns=ns+1
        czd="b"+ALLTRIM(STR(ns))
        alter table B add column &czd c(4)
        go top
        zd()
        c1=c2
     endif     
     sele A
     skip
  enddo

  sele b
  scan     
   scatter to k
   ck=""
   for t=1 to ns
       ck=ck+k(t)
   endfor
   ?ck
  endscan   
return


function zd
        locate for LEN(ALLTRIM(&czd))=0
        if EOF()
           append blank
           replace &czd with c2
        else
           replace &czd with c2
        endif
endfunc

谢谢 谢 明天试下先

CLEAR
CSTR=[12435789426473940012]
AA=IIF(BETWEEN(LEFTC(CSTR,1),[0],[4]),[小],[大])
CSTRB=[]
CREATE CURSOR T (A C(2),B N(2))
N=1
FOR I=1 TO LEN(CSTR)
    CSTRA=IIF(BETWEEN(SUBSTRC(CSTR,I,1),[0],[4]),[小],[大])
    IF CSTRA!=AA
       N=N+1
    ENDIF
    INSERT INTO T VALUES (CSTRA,N)
    AA=CSTRA
    CSTRB=CSTRB+CSTRA
ENDFOR

SELECT MAX(A.BB) B FROM (SELECT b,COUNT(*) AS BB FROM T GROUP BY 1) A INTO CURSOR TEMP

CNAME=[]
FOR I=1 TO N
    BB=[CC]+TRANSFORM(I)+[ C(2)]
    CNAME=CNAME+BB+IIF(I<N,[,],[])
ENDFOR
CREATE CURSOR S (&CNAME)
FOR I=1 TO TEMP.B
    APPEND BLANK
ENDFOR
SELECT A,B,COUNT(*) JS FROM T GROUP BY 2,1 INTO CURSOR TMP
SELECT TMP
SCAN
   SELECT S
   SCAN
      REPLACE (FIELD(TMP.B)) WITH TMP.A FOR RECNO()<=TMP.JS
   ENDSCAN
ENDSCAN
SELECT S
CSTR=[]
SCAN
   FOR I=1 TO FCOUNT()
       CSTR=CSTR+EVALUATE(FIELD(I))+IIF(I<FCOUNT(),+[ ],CHR(13)+CHR(10))
   ENDFOR
ENDSCAN
?CSTR

看不懂