7,763
社区成员
发帖
与我相关
我的任务
分享
dim i as integer
for i = 1 to 10
picture1.picture = loadpicture(cstr(i) & ".jpg")
next i
dim i as integer
for i = 1 to 10
picture1.picture = loadpicture("cstr(i) & ".jpg")
next i
picture1.picture=loadpicture("c:\mydir\" & cstr(i) & ".jpg")
这样的
dim num(1 to 10) as integer
for i = 1 to 10
num(i) = i
picture1.picture = loadpicture(app.path & "\" & num(i) & ".jpg")
next i