file = "D:\123.txt" Set fso = CreateObject("Scripting.Filesystemobject") word = fso.OpenTextFile(file,1).ReadAll words = Split(word,vbCrLf) maxLine = UBound(words) Randomize rndLine = Int(maxLine * Rnd) MsgBox words(rndLine) 测试可用...
求采纳
温馨提示:答案为网友推荐,仅供参考