汉【练：hàn】字与数字密码表

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

= Temp End Sub

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

汉字电报码[繁：碼]在网上可以查到翻译网站，很简便

新2450

直播吧中(练：zhōng)0022

世界杯万【练：wàn】8001

岁《繁体：歲》2979