你试试这个: Private Sub Command1_Click() Dim a temp = "," a = Split(Trim(Text1.Text), temp) n = UBound(a) If Trim(a(UBound(a))) = "" Then n = UBound(a) - 1 Text2.Text = "" For i = 0 To n - 2 For j = i + 1 To n - 1 For k = j + 1 To n Text2.Text = Text2.Text & a(i) & temp & a(j) & temp & a(k) & temp & vbCrLf Next k Next j Next i End Su