将阿拉伯数字转成中文字的程式

一个Form

一个TextBox

一个Label

这个修订後的程式是当使用者在TextBox中输入只包含 0~9 的数值後,在Label中就可

看见被转换後的中文字,例如:1560890 转成 "壹佰伍拾陆万零捌佰玖拾"。程式限制

为不可输入超过16个数字。

请建立一个新专案,并在表单中放入上述物件,再把以下程式码复制到表单的程式

码视窗,最後按下F5来执行。

Private Sub Form_Load()

Text1.MaxLength = 16

Text1.Text = ""

Label1.Caption = ""

Label1.AutoSize = True

Label1.BorderStyle = 1

End Sub

Private Sub Text1_Change()

Label1.Caption = CChinese(Text1.Text)

End Sub

Private Function CChinese(StrEng As String) As String

If Not IsNumeric(StrEng) Or StrEng Like "*.*" Or StrEng Like "*-*" Then

If Trim(StrEng) <> "" Then MsgBox "无效的数字"

CChinese = "": Exit Function

End If

Dim intLen As Integer, intCounter As Integer

Dim strCh As String, strTempCh As String

Dim strSeqCh1 As String, strSeqCh2 As String

Dim strEng2Ch As String

strEng2Ch = "零壹贰叁肆伍陆柒捌玖"

strSeqCh1 = " 拾佰仟 拾佰仟 拾佰仟 拾佰仟"

strSeqCh2 = " 万亿兆"

StrEng = CStr(CDec(StrEng))

intLen = Len(StrEng)

For intCounter = 1 To intLen

strTempCh = Mid(strEng2Ch, Val(Mid(StrEng, intCounter, 1)) + 1, 1)

&

点击复制链接 与好友分享!回本站首页
您对本文章有什么意见或着疑问吗?请到论坛讨论您的关注和建议是我们前行的参考和动力
上一篇:混合字符串的长度
下一篇:将包含有Null结尾的字符串转换为VB字符串
相关文章
图文推荐
将阿拉伯数字转成中文字的程式
VB 实现仿迅雷自动下
将阿拉伯数字转成中文字的程式
VB实现光驱弹出原理
将阿拉伯数字转成中文字的程式
VB 浅谈熊猫烧香病毒
将阿拉伯数字转成中文字的程式
VB IFEO镜像劫持技术

将阿拉伯数字转成中文字的程式

排行
热门
52 | VB操作SQL Server(一)——如何连接
29 | VB 浅谈熊猫烧香病毒一些原理
24 | VB中的atn函数
20 | VB中如何将msflexgrid控件中的数据导成
18 | vb实现多用户登录
18 | VB一句话设置系统服务自启动
17 | Grid++Report 入手教程:VB 通过Grid
17 | VB IFEO镜像劫持技术
VB分割字符串为数组 字符串转数组
VB生成随机字母 VB产生随机数字
vb.net chart图表使用技巧之一
VB保存/写入/储存TXT/文本文件
VB中日期加减法运算,字符串型转化为日
VB循环逐行读取TextBox控件内容
VB中输入和输出数据的总结
VB中对EXCEL的各种操作
文章
下载
读书
· Win2000下关闭无用端口
· 禁止非法用户登录综合设置 [win9x篇]
· 关上可恶的后门——消除NetBIOS隐患
· 网络入侵检测系统
· 潜伏在Windows默认设置中的陷井
· 调制解调器的不安全
· 构建Windows 2000服务器的安全防护林
· SQL Server 2000的安全配置
· Windows优化大师注册机源码
· Process Viewer 汉化版
· Aspcode动画教程
· WIN 2000服务器防止ICMP数据包攻击教程
· 实现网络隐身的简单方法
· 手工进行克隆帐号
· 用W32DASM破解网页合并器的密码
· 注册表操作动画教程
· 黑客攻防技术宝典:Web实战篇(第2版)
· 超级网管员——网络安全
· 代码大全(第二版)
· 软件之道:软件开发争议问题剖析
· CSS插件工具箱
· CSS入门经典(第3版)
· C#并行编程高级教程:精通.NET 4 Pa
· CMMI+敏捷整合开发

分类:默认分类 时间:2012-08-31 人气:10
本文关键词:
分享到:

相关文章

Copyright (C) quwantang.com, All Rights Reserved.

趣玩堂 版权所有 京ICP备15002868号

processed in 0.033 (s). 9 q(s)