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

chulizhi 2001-12-03 08:58:03
*我这个程序的目的是输入数字显示中文,如输入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
...全文
49 1 打赏 收藏 举报
写回复
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
chulizhi 2001-12-06
  • 打赏
  • 举报
回复
请各位高手帮个忙。
相关推荐
发帖
MS-SQL Server

3.4w+

社区成员

MS-SQL Server相关内容讨论专区
社区管理员
  • 基础类社区
  • 二月十六
  • 卖水果的net
加入社区
帖子事件
创建了帖子
2001-12-03 08:58
社区公告
暂无公告