For i As Integer = 99 To 1 Step -1 Dim txt As String = "1TB" Dim mulit As String = format(i,"0000") Dim values() As String values = mulit.Split("|") For Index As Integer = 0 To Values.Length - 1 FileSys.WriteAllText("D:\data\txt.txt", txt & Values(Index), True) ‘需要输出到文本时,字符串会自动换行’ Next Next