(资料图)

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。

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