Вывод нескольких чилес из множества чисел - VB

Формулировка задачи:

Как в visual basic реализовать функцию которая и m чисел выташит по n различных чисел. например из 1 2 3 4 5 6 , когда например n=3 программа вытащит: 123 124 125 126 134 135 136 145 146 156 234 235 236 345 346.

Решение задачи: «Вывод нескольких чилес из множества чисел»

textual
                            Листинг программы 
                        

                            Sub p()
Dim i As Integer, j As Integer, k As Integer
Dim max As Integer
Dim s As String
    max = 6
    s = ""
    For i = 1 To max - 2
        For j = i + 1 To max - 1
            For k = j + 1 To max
                s = s & i & j & k & ";"
            Next k
        Next j
    Next i
    s = s & vbNewLine
    MsgBox s
End Sub
                        

Оцени полезность:

10 голосов , оценка 4 из 5

Похожие ответы