新手,最近遇到的 问题,查过一些资料,奈何道行太低,还是不懂
dim  num(1 to 10) as integer
for i = 1 to 10
    num(i) = i
    picture1.picture = loadpicture("num(i).jpg")  '如何将num(i),替换成需要的数字,因为图片是 1.ipg  2.jpg
next i
字符串的拼接我会了,就前面一步,是不是有什么函数能实现对应的 功能
请各位赐教

解决方案 »

  1.   

    dim  num(1 to 10) as integer 
    for i = 1 to 10  
        picture1.picture = loadpicture(i & ".jpg")  
    next i 
      

  2.   

    '假设图片放在工程下images目录中
    dim  num(1 to 10) as integer 
    for i = 1 to 10 
        num(i) = i 
        set picture1.picture = loadpicture(app.path & "\images\" & CStr(num(i)) & ".jpg")  
    next i 
      

  3.   

    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 
      

  4.   

    dim i as integer 
    for i = 1 to 10 
        picture1.picture = loadpicture("cstr(i) & ".jpg")
    next i 
    num这个数组是多余的。
    另外图片应该是完整路径与文件名,即循环里面那一句应改为类似picture1.picture=loadpicture("c:\mydir\" & cstr(i) & ".jpg")这样的
      

  5.   

    改正,刚才多打了一个"号,第一段代码应该是:
    dim i as integer 
    for i = 1 to 10 
        picture1.picture = loadpicture(cstr(i) & ".jpg")
    next i 
    不过这样的话只是语法上没有错误,实际上应改把文件名改成完整路径,另外这样整个循环下来也没有停顿,没有什么实际意义。