Dim Multi As String = "党参10克,当归10克,茯苓10克,白术10克,干姜6克,甘草3克" Dim ss As String Dim Values() As String Values = Multi.split(",") For Index As Integer = 0 To Values.Length - 1 ss = ss & Values(Index) & "," If Index > 0 And Index Mod 2 = 1 Then ss= ss.Trim(",") & vbcrlf End If Next output.show(ss.trim(","))