请问用VFP编一个程序例如输入年份2008就能输出二零零八怎么写代码??谢谢喽

CLEAR
a=""
s="零一二三四五六七八九"
do while .t.
accept "请输入需要转换的数字:" to a
n=len(alltrim(a))
cadd=""
k=0
for i=1 to n
cout=substr(a,i,1)
if asc(cout)>=48 and asc(cout)<=57
cadd=cadd+substr(s,val(cout)*2+1,2)
else
k=messagebox("您所输入的存在非数字字符！！！是否重新输入？",4+32,"系统提示")
if k=6
exit
loop
else
exit
endif
endif
ENDFOR
IF k=7
EXIT
ENDIF
?cadd
IF k<>6
?"按回车继续查询转换信息，按任意键退出"
if inkey(0)=13
loop
else
exit
ENDIF
ENDIF
enddo

完美无缺了
累死了

不用 直接键盘按键，如果是数字就去转义。
转义最简单就是将0--9的所有数据 case 相应的大写，判断输出即可

自定义一个函数，本题命名为（HS)
? hs('2008')

proced hs
para zfc
a="1234567890"
b="一二三四五六七八九零"
zfc=allt(zfc)
cd=len(zfc)
fhz=''
for i=1 to cd
c=at(substr(zfc,i,1