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