如“1”至“9”转换成“一”至“九”；“11”至“99”转换成“十一”......“九十九”。最好能自定义个函数，谢谢！

[此贴子已经被作者于2017-3-25 23:20编辑过]

LOCAL gclca,gclcb,gclcc,gclcd,gclce,gclcf,gclcg,gclch,gclci,gclcaa,gclcbb,gclccc,gclcdd,gclcee,gclcff,gclcgg,gclchh,gclcii,gclcjg
FUNC gclccszzh
PARAMETERS gclcfz
IF LEN(ALLTRIM(gclcfz))=1
n=ALLTRIM(gclcfz)
gclca='一'
gclcb='二'
gclcc='三'
gclcd='四'
gclce='五'
gclcf='六'
gclcg='七'
gclch='八'
gclci='九'
IF n='0'
s=''
ENDIF
IF n='1'
s=gclca
ENDIF
IF n='2'
s=gclcb
ENDIF
IF n='3'
s=gclcc
ENDIF
IF n='4'
s=gclcd
ENDIF
IF n='5'
s=gclce
ENDIF
IF n='6'
s=gclcf
ENDIF
IF n='7'
s=gclcg
ENDIF
IF n='8'
s=gclch
ENDIF
IF n='9'
s=gclci
ENDIF
gclcjg=ALLTRIM(s)

ELSE
IF LEN(ALLTRIM(gclcfz))=2
n=SUBSTR(gclcfz,1,1)
i=SUBSTR(gclcfz,2,1)
ENDIF
gclca='一'
gclcb='二'
gclcc='三'
gclcd='四'
gclce='五'
gclcf='六'
gclcg='七'
gclch='八'
gclci='九'
gclcaa='一'
gclcbb='二'
gclccc='三'
gclcdd='四'
gclcee='五'
gclcff='六'
gclcgg='七'
gclchh='八'
gclcii='九'
IF n='1'
s=gclca
ENDIF
IF n='2'
s=gclcb
ENDIF
IF n='3'
s=gclcc
ENDIF
IF n='4'
s=gclcd
ENDIF
IF n='5'
s=gclce
ENDIF
IF n='6'
s=gclcf
ENDIF
IF n='7'
s=gclcg
ENDIF
IF n='8'
s=gclch
ENDIF
IF n='9'
s=gclci
ENDIF
IF i='0'
t=''
ENDIF
IF i='1'
t=gclcaa
ENDIF
IF i='2'
t=gclcbb
ENDIF
IF i='3'
t=gclccc
ENDIF
IF i='4'
t=gclcdd
ENDIF
IF i='5'
t=gclcee
ENDIF
IF i='6'
t=gclcff
ENDIF
IF i='7'
t=gclcgg
ENDIF
IF i='8'
t=gclchh
ENDIF
IF i='9'
t=gclcii
ENDIF
IF SUBSTR(gclcfz,1,1) ='1'
gclcjg=ALLTRIM('十'+t)
ELSE
gclcjg=ALLTRIM(allt(s)+'十'+ALLTRIM(t))
ENDIF
ENDIF
RETURN gclcjg

[此贴子已经被作者于2017-3-26 00:35编辑过]

1--99的话，凑合一下：

FOR i=1 TO 99
    ?? fun(i)+" "
    IF i%10==0
        ?
    ENDIF
ENDFOR


FUNCTION fun(num)
    IF num < 1
        RETURN ""
    ENDIF
    LOCAL a[1], c1, c2
    ALINES(a, "一,二,三,四,五,六,七,八,九", ",")
    c1 = num%10
    c2 = INT(num/10%10)
    RETURN IIF(c2>0, IIF(c2>1,a[c2],"") + "十", "")+ IIF(c1>0, a[c1], "")
ENDFUNC

谢谢吹水佬！可以达到目的，比我写的简化多了。

VFP9 代码

Clear 
lcStr="一二三四五六七八九"
FOR I=1 TO 99
    ?ICASE(BETWEEN(i,1,9),SUBSTR(lcStr,(i-1)*2+1,2),BETWEEN(i,10,19),"十"+SUBSTR(lcStr,(i%10-1)*2+1,2),SUBSTR(lcStr,(INT(i/10)-1)*2+1,2)+"十"+SUBSTR(lcStr,(i%10-1)*2+1,2))
ENDFOR