非顺序组合复式问题

[yucew]

N个选5中 非顺序选号变量自定义设置。 如01 03 05 08 09 10 15 18 19 20 这样非顺序数字的组合
复式方法。文本框来指定输入要复式的具体数字。

[vbman2003]

不玩彩票,不明白什么叫复式方法......

[fvflove]

'将我昨天发的改一下就行了.

Option Explicit

'增加一个 按扭，一个 list1 列表框就行了，
Private Sub Command1_Click()
  Dim Str As String
  Str = "01,03,05,08,09,10,15,18,19,20"

  Dim Arr() As String
  Dim i As Long
  Arr = LoadData(Str)
  
  For i = 1 To UBound(Arr)
     List1.AddItem Arr(i)
  Next
End Sub

Private Function LoadData(ByVal Text As String) As String()
   Dim i As Long
   Dim j As Long
   Dim m As Long
   Dim n As Long
   Dim k As Long
   
   Dim Data() As String
   Dim Count As Long
   
   Dim Arr() As String
   Dim Num As Long
   
   Arr = Split(Text, ",")
   
   Num = UBound(Arr)
   
   For i = 0 To Num - 4
      For j = i + 1 To Num - 3
         For m = j + 1 To Num - 2
            For n = m + 1 To Num - 1
               For k = n + 1 To Num
                   Count = Count + 1
                   ReDim Preserve Data(Count) As String
                   Data(Count) = Format(Arr(i), "00") & "," & Format(Arr(j), "00") & _
                   "," & Format(Arr(m), "00") & "," & Format(Arr(n), "00") & "," & _
                   Format(Arr(k), "00")

               Next
            Next
          Next
       Next
   Next
   LoadData = Data
End Function

[cqg1220]

水性树脂谢谢楼上的