vb提取数组 文本框1有1 2，1 3，1 4，1 5等数组，每次取3组数，有4种情况，

Private Sub Form_Load()
Text1.Text = "12,13,14,15"
End Sub

Private Sub Text2_Change()
Dim TEMP() As String
Dim i As Integer, j As Integer, k As Integer, l As Integer
'检测文本框数据
If Len(Text1) = 0 Then Text3.Text = "": Exit Sub
If UBound(Split(Text1, ",")) <> 3 Then Text3.Text = "": Exit Sub
If Len(Text2) = 0 Then Text3.Text = "": Exit Sub
If Val(Text2) <= 0 Or Val(Text2) > 4 Then Text3.Text = "": Exit Sub
ReDim TEMP(0) As String '重新定义数组
'将所有组合保存到数组
For i = 0 To UBound(Split(Text1, ",")) - 2
For j = i + 1 To UBound(Split(Text1, ",")) - 1
For k = j + 1 To UBound(Split(Text1, ","))
If TEMP(0) <> "" Then ReDim Preserve TEMP(UBound(TEMP) + 1)
TEMP(UBound(TEMP)) = Split(Text1, ",")(i) & "," & Split(Text1, ",")(j) & "," & Split(Text1, ",")(k)
Next
Next
Next

Text3.Text = TEMP(Val(Text2) - 1)
End Sub