求VB数组间各元素组合的代码！谢谢！

来源：百度知道 编辑：UC知道 时间：2024/06/02 06:09:22
有A，B，C，D，E，F，G七个一维数组，每个数组里面的元素个数不尽相同，我要得到它们之间所有可能的组合，组合后的一组数据有七个元素，这七个元素包含1-3个A数组里面的元素，0-3个B数组里面的元素，0-3个C数组里面的元素，0-3个D数组里面的元素，0-3个E数组里面的元素，1-3个F数组里面的元素，1-2个G数组里面的元素。最少有一个数组选取0个元素，最多有三个数组选取0个元素，而且组合后的数据要按照从小到大的顺序排列。我想编一个彩票投注程序，为了达到这个效果我写了两百行代码还没写完，我觉得就算写出来也一定效率不高，肯定有更好的方法，请高手们帮帮小弟，谢谢！

没看太明白,以前我写过一个.
你觉得好的话,就拿去借鉴一下.
Dim b(0 To 6) As String
Dim a(0 To 6) As String
Dim z(0 To 6) As String
Dim c As String
Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Command1.Caption = "停止"
Timer1.Enabled = True
Timer1.Interval = 10
Else
Command1.Caption = "开始"
Timer1.Enabled = False
Call aaa
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
For I = 0 To 6
Text1(I) = ""
Text1(I).Font = "宋体"
Text1(I).FontSize = 20
Text1(I).Alignment = 2
Next I
End Sub

Private Sub Timer1_Timer() '生成7位随机不重复的数字
For j = 0 To 6
1
Randomize
c = Int(35 * Rnd + 1)
Text1(j) = c
If j > 0 The