复制代码 代码如下:

randomize 

set fso=createobject(“scripting.filesystemobject”) 

set a=createobject(“scripting.dictionary”) 

set file=fso.opentextfile(“a.txt”) 

do while file.atendofstream<>true 

m=m+1 

a.add m,file.readline 

loop 

file.close 

h=int(rnd*m) 

msgbox “第” & h & “行:  ” & a(h) ,4096,”随机内容”

声明：本站（华域联盟www.cnhackhy.com）所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。