写着玩的很不规范,见笑了。
randomize
a=int(rnd()*999999)
if a<100000 then
a=a+100000
end if
b=int(rnd()*2006+1)
if b<1900 then
b=b+(1900-b)+int(rnd()*100)
end if
c=int(rnd()*12+1)
if c<10 then
c="0"&c
end if
d=int(rnd()*31+1)
if b<10 then
d="0"&d
end if
f=int(rnd()*1000)
if f<100 then
f=f+100
end if
msgbox a&b&c&d&f