有什么好的算法

Dim a(1 To 5) As String
a(1) = "1,2,3"
a(2) = "4,5,6"
a(3) = "7,8,9"
a(4) = "13,14,15"
a(5) = "19,20,21"
这是一个数组 我们选不同的组成6个数字 条件每组最少得选1个数字 有没有好的算法。我有算法但是比较慢
a数组 不一定5 也可能是3 或者6. 不要用固定的思维