加载中...
您的位置:首页 >栏目首页 > 股权 > 正文

数字密码翻译成汉字大全_数字密码翻译成汉字_当前滚动

2023-07-04 14:27:51 来源:互联网


(资料图)

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。

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

关键词:

推荐内容