你可以把图片的名称改为数字的，如：1.jpg
然后用:
b=取随机数（，）
图片框.图片 = 读入文件("d:\image\”+到文本（b）+“.jpg")
这样。图片框就可以换图片了。
或者在你的程序加一个列表框。然后把所有的图片名称写到一个文本文件里，列表框通过读取这个文本文件把这些图片的名称加入到列表框里，然后写代码
b=列表框.现行选中项
图片框.图片 = 读入文件("d:\image\”+b）
如果你写到那个文本文件里的图片都是有路径的。就不用担心图片是在那个目录了。直接写代码
b=列表框.现行选中项
图片框.图片 = 读入文件(b）
你可以把图片都放到你程序里的图片资源里。或者把你的图片都压缩到一个zip的压缩包里，然后放到图片资源里，再在窗口放个 zip压缩 组件，在启动窗口创建完毕的程序里写：比如你放到图片资源里的那个压缩包的名字是 图片1
写到文件（“d:\image.zip”，#图片1）
zip压缩.解压（“d:\image.zip”，“d:\image”）
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024