复制代码 代码如下:

randomize

setfso=createobject("scripting.filesystemobject")

seta=createobject("scripting.dictionary")

setfile=fso.opentextfile("a.txt")

dowhilefile.atendofstream<>true

m=m+1

a.addm,file.readline

loop

file.close

h=int(rnd*m)

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