13,5,6,87,2,8,98
55,145,4,621,54,31,
2,5,54,6345,66
8,123,54,64,12,5
4,5,46,5,12,5,5
6,1,2,54,1
1,2,45,41,23
5,1,56,31,45
我這樣寫TXT的內容，應該符合妳的要求吧？那麽代碼如下:
選項顯式
Dim Arry()作為字符串
私有子命令1_Click()
Dim i壹樣長，j壹樣長
將x標註為字符串，y標註為字符串
i = 1
ReDim將Arry(i)保留為字符串
打開應用程序。路徑與路徑。" \111.txt "作為#1輸入
而不是EOF(1)
線路輸入#1，Arry(i)
i = i + 1
ReDim將Arry(i)保留為字符串
行
ReDim將Arry(i - 1)保留為字符串
關閉#1
對於i = 1到UBound(Arry)
對於j = 1至UBound(Arry)
如果j & lt那好吧
if Val(Arry(j))& gt；Val(Arry(j + 1))然後
x = Arry(j)
y = Arry(j + 1)
Arry(j) = y
Arry(j + 1) = x
如果…就會結束
如果…就會結束
然後
然後
打開應用程序。路徑與路徑。" \222.txt "作為#1輸出
對於i = 1到UBound(Arry)
打印編號1，Arry(i)
接下來我
關閉#1
末端接頭
經過計算機測試，生成的222中的內容。TXT如下:
1,2,45,41,23
2,3,5,15,68,55
2,5,54,6345,66
4,5,46,5,12,5,5
5,1,56,31,45
6,1,2,54,1
8,123,54,64,12,5
13,5,6,87,2,8,98
55,145,4,621,54,31,
第壹位按順序。