邓丽君周杰伦红尘客栈:VFP中如何实现数字转换成大写汉字请写出程序?
来源:百度文库 编辑:高考问答 时间:2024/08/28 09:13:04
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