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

VB6 VB6.0小写金额转大写金额 因票据打印的需要，在网上搜罗许久，找到的代码均不如意，于是干脆自己编写一个，并发布出来，也许对他人有点帮助。 一、控件：一个TextBox，三个CommandButten（转换、清屏、退出），一个ListBox 二、说明：之所以用ListBox来存储结果，是为了便于校验转换对错，用户根据需要改变。本程序不能处理位数大于千亿的数字。 三、代码： Private Sub Command1_Click() 转换 If Text1.Text Then List1.AddItem Text1.Text vbTab NumberToC