随机图片抽取 怎么把图片像电视里抽奖一样滚动，并自己可以随机抽取图片..找不到软件

请问在100张图片中随机抽取一张的问题，谢谢 如果把pic001.jpg改成pic1.jpg的话，就好做的多了.if a=1 then image1.picture=loadpicture("d：pic"&a&".jpg").也可以这样做...