第1个回答 推荐于2016-06-18
- - 这个也太简单了吧 我现场给你写一个
randomize
set fso = createobject("scripting.filesystemobject")
set ts = fso.createtextfile("xiaodu.txt")
x = "0123" '这是备选数字
for j:=1 to 1000 '这是个数
for i:=1 to 6 '这是位数
z = ""
y = int(rnd*len(x))
z = z+mid(x,y,1)
ts.writeline z
next
next
msgbox "ok"
保存到桌面\1.vbs 运行本回答被提问者采纳