VB实现数字小写转大写算法.pdf

电脑编程技巧与维护 VB 实现数字小写转大写算法 周瑞 （忻州职业技术学院计算机系，忻州034000） 摘 要：在开发一些财经类管理信息系统时，常常遇到人民币阿拉伯数字按照汉语习惯和规定自动转换成大写格式 的问题。本文提供了一种简洁明了的算法，并在VB 环境下完整实现。 关键词：数字 ； 大写金额 ； 算法 ； VB The Arabic Numeral Change into the Chinese form the Algorithm and VB Procedure Realization ZHOU Rui （Depart. of compwter , Xinzhou Vocational and Technical College , Xinzhou 034000） Abstract ：When develops some finance and economics class management information system, we meets the Renminbi Chi－ nese form frequently the question. How will the Arabic numeral change into the Chinese form according to Chinese custom and the stipulation automatic extension to become a programmers question. This article is for the purpose of providing one simple and brief algorithm, and realizes completely under the VB environment. Key words ：Number ; Amount in Chinese form ; Algorithm ; VB 1 转换规则及习惯 “X 角整” （这里小数部分认为最多两位），存入一个字符串 （1）阿拉伯数字与汉字的对应关系： “0123456789”分 strXsDx。 别对应 “零壹贰叁肆伍陆柒捌玖”，数位为： “分角元拾佰仟 （4）对于strZs （整数部分），首先将每位阿拉伯数字转换 万拾佰仟亿拾佰仟”。 成大写和数位的组合。如： “680000800”转为 “陆亿捌仟零 （2）中文大写金额数字到 “元”为止，在 “元”之后， 佰零拾零万零仟捌佰零拾零元”。具体转换如下： 应写 “整” （或“正”）字，在 “角”之后，可以不写 “整” 1）自定义一个阿拉伯数转大写汉字的函数Daxie (num as （或“正”）字。大写金额数字有 “分”的， “分”后面不写 integer) as string ，其中num 就是要转换的阿拉伯数。 “整” （或“正”）字。 函数中设定一个字符串strDx= “零壹贰叁肆伍陆柒捌玖”， （3）阿拉伯数字小写金额数字中有 “0”时，中文大写应 然后在Daxie 串中取出第num+1 个汉字即可。如num=3,则取 按照汉语语言规律、金额数字构成和防止涂改的要求进行书