dim s(1 to 5,1 to 5) as integerdim sLine as stringdim i as integer,j as integer'写入open "d:\test.txt" for output as #9for i=1 to 5sLine=""for j=1 to 5
sLine=sLine & s(i,j) & space(1)next jprint #9,sLinenext iclose #9'读取dim s(1 to 5,1 to 5) as integerdim sLine as string,strt() as string...
|