数字密码翻译成汉字表白（数字密码翻译成汉字）

大家好,小东方来为大家解答以上的问题。数字密码翻译成汉字表白，数字密码翻译成汉字这个很多人还不知道,现在让我们一起来看看吧！

1、Private Sub Command1_Click()Dim d, i%, mArr, Temp$Set d = CreateObject("scripting.dictionary")d.Add "1234", "我"d.Add "1345", "爱"d.Add "5200", "你"mArr = Split(Text1.Text, " ")For i = 0 To UBound(mArr)Temp = Temp & d.Item(mArr(i))NextText2.Text = TempEnd Sub。

本文到此分享完毕，希望对大家有所帮助。

免责声明：本文由用户上传，如有侵权请联系删除！