最好是a(i,0) a(i,1) a(i,2)，更符合习惯： dim a(10000,2), i, s, b()open "xxx.txt" for input as #1i=0do while not eof(1)line input #1,sb=split(s,",")for j=0 to 2a(i,j)=b(j)nexti=i+1loopclose #1
