str=""
for i=0 to 18
str=str & str(i)
next i

解决方案 »

  1.   

    你什么意思,难道是只要STR(0),其他的不要了
      

  2.   

    str=""
    for i=0 to 18
    if str(i)="" then
       str(i)=" "
    end id
    str=str & str(i)
    next i
      

  3.   

    dim tmpStr as string
    copymemory byval tmpstr,varptr(str(0)),ubound(str)+1
      

  4.   

    str=""
    for i=0 to 18
        if str(i)="" then
             str=str & " "
        else
             str=str & str(i)
        end if
    next i