汉字与数字密码[拼音：mǎ]表

VB如何写数字密码翻译成汉字的程序？Private Sub Command1_Click() Dim d， i%， mArr， Temp$ Set d = CreateObject("scripti

VB如何写数字密码翻译成汉字的程序？

Private Sub Command1_Click() Dim d， i%， mArr， Temp$ Set d = CreateObject("scripting.dictionary") d.Add

"1234"， "我(拼音：wǒ)" d.Add

幸运飞艇 "1345"， "爱" d.Add

"5200"， "你" mArr = Split(Text1.Text， " ") For i = 0 To UBound(mArr) Temp = Temp & d.Item(mArr(i)) Next Text2.Text

【摩尔斯电码】是由点和划组成的，四位一组的数字翻译为汉字的密码叫做【汉字电报码】，要注意区分两者。

汉字电报码在zài 网澳门银河上可以查到翻译网站，很简便

新2450

澳门银河中（拼音：zhōng）0022

国(拼音：guó)0948

澳门永利万（繁：萬）8001

岁2979