(资料图片仅供参考)

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。

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