暗淡？文件名？作為？字符串，？word()？作為？線
私人？Sub？Command1_Click()
List1。清楚的
結束？潛水艇
私人？Sub？Form_Load()
暗淡？我？作為？整數，？臨時工？作為？線
文件名？=?App。路徑？& amp？" \ word。txt " '地址可以自己改。
開放？文件名？為了什麽？輸入？作為？#1
做什麽？什麽時候？不是嗎？EOF(1)
線？輸入？#1,?臨時雇員
我？=?我？+?1
雷迪姆？保存？單詞(壹)
字(壹)？=?臨時雇員
調試。打印？單詞(壹)
多項活動
環
接近？#1
結束？潛水艇
私人？Sub？Text1_Change()
暗淡？我？作為？整數，？ret，？臨時工？作為？線
List1。清楚的
臨時工？=?Text1
為了什麽？我？=?1?去哪？UBound(單詞)
ret？=?InStr(word(i)，？溫度)
調試。打印？浸水使柔軟
如果？ret？& lt& gt？0?然後呢？List1。AddItem？單詞(壹)
然後
Label1。標題？=?List1。ListCount？& amp？“言語？包含？:"?& amp？臨時雇員
結束？潛水艇
私人？Sub？Text1_GotFocus()
Text1。SelStart？=?0
Text1。塞倫思？=?Len(Text1)
結束？潛水艇