随机函数

//清空随机种子数
Rem start
VBS Randomize

//得到 1~99999999 之间的一个随机数
VBS x = Int((99999999 * Rnd) + 1)
//判断这个数字是否8位数字，如果不是8位数字，就重新生成
If x<10000000
    Goto start
EndIf
 
SayExpression x

Share:Ask!BlinkBits!Blinklist!Blogmarks!BlogRolling!Cannotea!Del.icio.us!Digg!Diigo!DZone!Free and Open Source Software NewsFacebook!Fark!Faves!FeedMeLinks!Furl! GodSurfer!Google!linkaGoGo!Live!Ma.gnolia!Maple!Mister-Wong!Mixx!MyLinkVault!MySpace!Netscape!Netvouz!Newsvine!RawSugar!Reddit!ShoutWire!Simpy!Slashdot!Smarking!
Spurl!Squidoo!StumbleUpon!Swik!Tailrank!Technorati!Wists!