汉[繁体：漢]字与数字密码表

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"， "爱{练：ài}" d.Add

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

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

汉字电报码在网直播吧上可以（拼音：yǐ）查到翻译网站，很简便

新2450

中0022

国0948

万澳门新葡京《繁：萬》8001

岁(拼音：suì)2979