问答题
[说明]
在一些财务软件中，经常需要将阿拉伯数字的账目转化为汉语习惯中的金额计数方法，例如：
“3.45”转化为“叁元四角五分”；
“3.4”转化为“叁元四角”；
“3.40”转化为“叁元四角零分”；
“3.456”转化为“叁元四角五分”；
“345.00”转化为“叁百四十五元零角零分”；
“345”转化为“叁百四十五元”；
以下Visual Basic代码实现了小写金额转换为大写金额。界面如图10-9所示。结合实际例子说明，仔细阅读下面代码，将 (n) 代码补充完整。
在一些财务软件中，经常需要将阿拉伯数字的账目转化为汉语习惯中的金额计数方法，例如：
“3.45”转化为“叁元四角五分”；
“3.4”转化为“叁元四角”；
“3.40”转化为“叁元四角零分”；
“3.456”转化为“叁元四角五分”；
“345.00”转化为“叁百四十五元零角零分”；
“345”转化为“叁百四十五元”；
以下Visual Basic代码实现了小写金额转换为大写金额。界面如图10-9所示。结合实际例子说明，仔细阅读下面代码，将 (n) 代码补充完整。
【正确答案】(1)mystr2=mystr2+setdata(Val(mystr4))+"角"
(2)mystr2=mystr2+setdata(Val(mystr4))+"分"
(3)If Right(mystr1,1) ＜＞"万"Then mystr1=mystr1&"万"
(4)I fRight(mystr1,1) ＜＞"零"And Right(money,j) ＞0 Then mystr1=mystr1&"零"
(5)mystr1=mystr1 & setdata(money1)+chang(j)
(2)mystr2=mystr2+setdata(Val(mystr4))+"分"
(3)If Right(mystr1,1) ＜＞"万"Then mystr1=mystr1&"万"
(4)I fRight(mystr1,1) ＜＞"零"And Right(money,j) ＞0 Then mystr1=mystr1&"零"
(5)mystr1=mystr1 & setdata(money1)+chang(j)
【答案解析】[解析] 本题设计了将阿拉伯数字的帐目转化为汉语习惯上的金额计数的小程序。(1)实现小数部分的.“角”转化。(2)实现小数部分的“分”转化。(3)、(4)、(5)实现了整数部分转化。