也就是这样的二维数组元素值的排列:
a11  a12  a13  
a21  a22  a23 
a31  a32  a33 
输出为文本文件请大家帮忙

解决方案 »

  1.   

    easy:Look:dim x as long ,y as long 
    dim a as long ,b as longdim i(1 to x,1 to y) as long dim fn as long fn=freefileopen "c:\1.txt" as append for #fn'这行需要验证一下语法是否准确for a=1 to x step 1
       for b=1 to y step 1
          
        print fn,i(a,b)
    next b
    print fn,vbcrlf  '换行
    next a
      

  2.   

    for a=1 to x step 1
       for b=1 to y step 1
          
        print fn,i(a,b)
        print fn,";"'如果是svc文件,是以;为分割的,或者加入空格也行,execl2003支持智能分割next b
    print fn,vbcrlf  '换行
    next a
      

  3.   

    那就只好:在print的时候,取一个最长数值啊for a=1 to x step 1
       for b=1 to y step 1
          
        print fn,i(a,b)    print fn,vba.space(10-len(i(a,b)))'加点空格啊next b
    print fn,vbcrlf  '换行
    next a