VB中将数字转成人民币大写代码