Question

VFP中如何实现数字转换成大写汉字请写出程序？

Answer 1

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