25
Февраль
2011
Как реализовать перебор всех возможных комбинаций лотереи
Как реализовать перебор всех возможных комбинаций лотереи
Option Explicit
Dim a() As String, m As Integer
Sub Loto(ByVal i As Integer, ByVal n As Integer)
For i = i + 1 To m - n + 1
a(n) = i
If n > 1 Then
Loto i, n - 1
Else
Debug.Print Join(a)
End If
Next i
End Sub
Sub main()
Dim n As Integer
n = 6
m = 45
ReDim a(1 To n)
Loto 0, n
End Sub