请各位高手帮忙，有高分送上。

[chulizhi]

*我这个程序的目的是输入数字显示中文，如输入123456则输出为一十二万三千四百五十六。但我的
*程序有点问题，请各位高手帮忙。
clear
input to n
m=ltrim(str(n))
p=len(m)
i=1
do while(p>0)
s=val(substr(m,1,1))
??f(s,i)
i=i+1
m=right(m,p-1)
p=len(m)
enddo
function f
parameters i,k
c=2
n2="元十百千"
n1="一二三四五六七八九"
if i=0
?
else
b1= substr(n1,2*val(substr(m,1,1))-1,2)
??b1
endif
do case
case p=9
??"亿"
c=c-1
case p=5
??"万"
c=c-1
endcase
if p> 9
??substr(n2,2*(p-4*c)-1,2)
else
if p> 5
??substr(n2,2*(p-4*c)-1,2)
else
if p< 5
??substr(n2,2*p-1,2)

endif
endif
endif
return

[chulizhi]

请各位高手帮个忙。