Question

vb 排列组合文本框1的字符若干个,用逗号隔开.举例:(不一定是连续的,我只是举个例子)1,2,3,4,5,6,7,8,

Answer 1

你试试这个： 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