求一个可以把汉字转换为数字的VB.NET程序
给你一个现成的，加两个控件，一个Label1，一个Text1：
Private Sub Form_Load()
'初始化设置
Text1.MaxLength = 16
Text1.Text = ""
Label1.Caption = ""
Label1.AutoSize = True
Label1.BorderStyle = 1
Label1.FontSize = 18
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) 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, Mid(StrEng, intCounter, 1) + 1, 1)
'若某位是零
If strTempCh = "零" And intLen 1 Then
'若后一个也是零，或零出现在倒数第1、5、9、13等位，则不显示汉字“零”
If Mid(StrEng, intCounter + 1, 1) = "0" Or (intLen - intCounter + 1) Mod 4 = 1 Then strTempCh = ""
Else
strTempCh = strTempCh & Trim(Mid(strSeqCh1, intLen - intCounter + 1, 1))
End If
'对于出现在倒数第1、5、9、13等位的数字
If (intLen - intCounter + 1) Mod 4 = 1 Then
'添加位" 万亿兆"
strTempCh = strTempCh & Trim(Mid(strSeqCh2, (intLen - intCounter) \ 4 + 1, 1))
End If
'组成汉字表达式
strCh = strCh & Trim(strTempCh)
Next
CChinese = strCh
End Function
楼主留个邮箱，我发给你，我大二的时候用VB.NET做的VS是05版的
是winform的程序，有界面的，要是喜欢直接改改背景图什么的是没问题的
给个关键的转换函数你吧，VB的，其他语法的话自行翻译Private Sub setNumberToBig()
Dim i As Integer, big(9) As String, str As String
str = ""
big(0) = "零"
big(1) = "壹"
big(2) = "贰"
big(3) = "叁"
big(4) = "肆"
big(5) = "伍"
big(6) = "陆"
big(7) = "柒"
big(8) = "捌"
big(9) = "玖"
For i = 1 To Len(Text10.Text)
str = str & big(CInt(Mid(Text10.Text, i, 1)))
Next
Text10.Text = str
str = ""
For i = 1 To Len(Text11.Text)
If i = 2 And CInt(Mid(Text11.Text, i, 1)) > 0 Then str = str & big(CInt(Mid(Text11.Text, i, 1)))
If i = 1 Then
str = str & big(CInt(Mid(Text11.Text, i, 1)))
If Len(Text11.Text) = 2 And CInt(Mid(Text11.Text, i, 1)) > 0 Then str = str & "拾"
End If
Next
Text11.Text = str
str = ""
For i = 1 To Len(Text12.Text)
If i = 2 And CInt(Mid(Text12.Text, i, 1)) > 0 Then str = str & big(CInt(Mid(Text12.Text, i, 1)))
If i = 1 And CInt(Mid(Text12.Text, i, 1)) > 0 Then
str = str & big(CInt(Mid(Text12.Text, i, 1)))
If Len(Text12.Text) = 2 And CInt(Mid(Text12.Text, i, 1)) > 0 Then str = str & "拾"
End If
Next
Text12.Text = str
End Sub
EXCEL中怎么把汉字转换为拼音
1、打开Excel表格。2、选中需要转为拼音的汉字，使用"Ctrl+C”复制。3、打开Word，将复制的内容粘贴到Word里。4、将粘贴的内容全选以后点击上部的“wen”样式的拼音指南。5、这样拼音就批量注释了，再点击【拼音指南】里的【确定】。6、将注释上拼音的内容全选之后复制。7、回到Excel表格进行粘贴...
求一个可以把汉字转换为数字的VB.NET程序
i]=str[i].replace(壹,1);}else{str[i]=str[i].replace(贰,2);} \/\/这里根据自己的需求}大概的知识点要用到这些，不过，还有待他人和你自己的补充，我用的C#，以前我做过一个类似的(数字转为汉字哈)，不过，那全是用if...else 来判断的，希望你能看懂，对你有帮助 ...
有没有可以把汉字转换成片假名的翻译工
这个工具有。网页版、安装版都有。不过这个不叫翻译工具，只是把日文汉字转换成假名。再说了，你为什么要片假名呢？搞不懂。
求可以把汉字转换成假名的手机软件-坐等
请在手机市场搜索：日语汉字速查 鉴於日语汉字有训读音读，一字多音，应应根据语境确定该汉字念法。
如何将汉字转换为数字代码如何将汉字转换为数字代码的方法
如何将文字翻译成数字？把汉字名字翻译成数字方法：1、把名字换成拼音，把拼音里的字母，按英文字母和数字一一对应（a－z＞1－26），变成数字。2、把名字翻译成数字需要对应的算法，算法可以是不尽相同的，所以一个特定的名字可以翻译成各种各样的数字。3、可以通过五笔字法转换，或者对照专门的表格，...
怎样把照片上的手写体汉字转换成标准体汉字
潘罗森超级笔画还提供鼠标打字，输入速度特快，挺适合中老年人以及刚刚学习电脑的儿童使用。也就是说：有了超级笔画，家里的男女老少就都会电脑打字。另外，超级笔画还内置众多的常用网站，让您方便地畅游互联网。使用超级笔画还有一个最大的好处就是——可以帮您解决因为长期使用电脑打字而造成的“提笔忘字...
如何可以将汉字转换为小篆?
在网上的字库网里有各种篆体的字体文件，下载一个安装到你的系统Fonts 字库里就可以用了。输入“字库”，或者直接输入“经典字库”，点搜索就可以找到的。具体的有经典方篆、经典印篆、汉仪篆书繁等。要注意一点，如果你的系统是XP SP2以上的版本，汉仪字库不能安装。只有SP1的XP才可以安装汉仪字库。
怎么把汉字转换为拼音呢?
汉字转化为拼音的公式：“=getpy(目标单元格)”。工具／原料：联想Y7000P Windows10 Excel 2007 1、首先用office Excel 2007打开文档。2、然后鼠标标定在D2单元格，输入公式“＝getpy(C2)”，按回车键确认。3、我们就看到姓名一栏汉语拼音就自动出现了。4、选中D2单元格，鼠标放在单元格右下角，当...
有人可以把汉字转换成香港字吗?
如果是简体字转成繁体字,最简单的办法是开WORD,里面有转化功能,或者很多输入法都持支繁体输入的;如果是把普通话的表达或者港式书面语转成粤语里的俚语\/口语,这个只能是你会粤语就会转换,不会就没办法了,或者周围有广东深圳等地的朋友的话可以请他们帮忙....
郭武双黄： 给个关键的转换函数你吧,VB的,其他语法的话自行翻译 Private Sub setNumberToBig() Dim i As Integer, big(9) As String, str As String str = ＂＂ big(0) = ＂零＂ big(1) = ＂壹＂ big(2) = ＂贰＂ big(3) = ＂叁＂ big(4) = ＂肆＂ big(5) = ＂伍＂ big(6...
新干县13422856125： VB 中把字符转化为数字的函数是? - ？
郭武双黄： Val 函数,在它不能识别为数字的第一个字符上,停止读入字符串.那些被认为是数值的一部分的符号和字符,例如美圆号与逗号,都不能被识别.但是函数可以识别进位制符号 &O(八进制)和 &H(十六进制).空白、制表符和换行符都从参...
新干县13422856125： !!!跪求!!!请大神给编一个汉字可以转换为任意进制的转换代码,要VB语言的,满意后悬赏一定给,谢谢 - ？
郭武双黄： 先编个程序把汉字转换为代码,一个汉字占2字节,就转换为16位的,再加密
新干县13422856125： VB 中把字符转化为数字的函数是?？
郭武双黄： Val()、
新干县13422856125： 求一段VB语言随意输出6到12位的字母或者数字或者中文,每输出完 ？
郭武双黄： 程序还是写完了.这段代码会随机输出一行4个字符,每一行都有一个大写字母,一个小写字母,一个数字,一个中文字符,所有字符均为随机产生,一共输出6行.不知道...
新干县13422856125： VB中如何从一段话中提取数字? - ？
郭武双黄： VB中如何从一段话的文字中提取数字,需要先对文字中的字进行逐一循环判断,如果是数字,然后返回需要的结果.代码如下: Private Sub Command1_Click()Dim a As Stringa = ＂我爱你1314,你呢＂For i = 1 To Len(a)'对文字中每个字循...
新干县13422856125： vb 字母转化为数字 - ？
郭武双黄： Dim a As Long, s As String, i As Long a = Val(InputBox(＂请输入一个4位数(这个数只包含1234):＂)) s = Trim(Str(a))'默认的str函数前面有一个符号位,Trim函数可以去掉前置后置的空格 For i = 1 To 4 Select Case Mid(s, i, 1) Case 1 Mid(s, i, 1) = ＂A＂ Case 2 Mid(s, i, 1) = ＂C＂ Case 3 Mid(s, i, 1) = ＂G＂ Case 4 Mid(s, i, 1) = ＂T＂ End Select Next i Print s
新干县13422856125： VB怎样设计一个程序【输入数字可以输出该数字的汉语拼音 - ？
郭武双黄： '添加 Command1 Text1 Dim h$, a& Private Sub Form_Load() Command1.Caption = ＂汉转十＂ Text1.Text = ＂刘＂ End Sub Private Sub Command1_Click() If Command1.Caption = ＂汉转十＂ Then h = Hex(Asc(Text1.Text)) If Asc(Left(h, 1)) >...
新干县13422856125： VB编程将阿拉伯数字转化为汉字 - ？
郭武双黄： 准备Text1控件,和Label1控件Private Sub Form_Load() Text1 = ＂＂ Label1.AutoSize = True End SubPrivate Sub Text1_Change() Dim strCh As String, temp As String, i As Integer strCh = ＂零一二三四五六七八九＂ temp = ＂＂ For i = 1 To ...
新干县13422856125： 我要找一个unicode 汉字编码的软件 只要输入汉字就可以转换成数字 - ？
郭武双黄： GB2312与unicode不是完全兼容,要转换的化,就需要有张对应表,对应表的大小与支持的汉字的多少有关系. 我有张20000多汉字的对照表,显然是贴不上来的.
