就是把文本全部读进内存，交换后再写回去。用: open "文件路径" for input as #1 '读入 交换操作…… close #1 open "文件路径" for output as #1'写回 写回操作…… close #1 VB code: Private Sub Form_Load() Dim s0 As String Dim s1 As String Dim ss As String Dim s As String Dim i As Integer Dim a() As String Open "C:\1.txt" For Input As #1 Do Until EOF(1) Line Input #1,
