VB6.0小写金额转大写金额