请问在100张图片中随机抽取一张的问题，谢谢

来源：百度知道 编辑：UC知道 时间：2024/05/11 20:41:10
如：if a = 1 then image1.picture = loadpicture("D:\pic001.jpg")
if a = 2 then image1.picture = loadpicture("D:\pic002.jpg")
……
if a = 100 then image1.picture = loadpicture("D:\pic100.jpg")
能不能用更简单的方法表达呢？谢谢了！

如果把pic001.jpg改成pic1.jpg的话,就好做的多了.
if a=1 then image1.picture=loadpicture("d:\pic" &a &".jpg").
也可以这样做的:
if a<10 and a>0 then image1.picture=loadpicture("d:\pic00" &a &".jpg").
if a>=10 and a<=99 then image1.picture=loadpicture("d:\pic0" &a &".jpg").
if a=100 then image1.picture=loadpicture("d:\pic100.jpg").

首先利用随机函数取得一个随机数，例如：
dim a as integer,b as string
a=int(100*rnd+1) '1到100的随机数
然后：
if a<10 then b="00"+str(a)
if a<100 then b="0"+str(a)
image1.picture = loadpicture("D:\pic & b.jpg")