神马品牌网陶昕然女儿会走路了:VFP中如何实现数字转换成大写汉字请写出程序？
来源：百度文库 编辑：神马品牌网 时间：2024/05/01 06:54:51
dim dx(10)
dx(1)="零"
dx(2)="壹"
dx(3)="贰"
dx(4)="参"
dx(5)="肆"
dx(6)="伍"
dx(7)="陆"
dx(8)="柒"
dx(9)="捌"
dx(10)="玖"
input to x
select case
case x=0
y=dx(1)
case x=1
y=dx(2)
case x=2
y=dx(3)
case x=3
y=dx(4)
case x=4
y=dx(5)
case x=5
y=dx(6)
case x=6
y=dx(7)
case x=8
y=dx(9)
case x=9
y=dx(10)
end select
? y