Вопрос : Генератор комбинации

HI

I хочет произвести все по возможности номера сочетание из от, котор дали входа. Друг здесь размер it
the установленный может быть 1 чарс к 4 чарса. Не позволены никакие повторения,

например
ABCD

would производят следующий.

I должно получить 2^n - 1, в этот случай 2^4 - 1 = 15, котор results

A
AB
ABC
ABCD
B
BC
BCD
C
CD
D
AC
ACD
ABD
AD
BD

is 15

What будет самое лучшее Кодий VB/VBA для того чтобы создать this

Thanks
class=

Ответ : Генератор комбинации

Hi Генри,

пожалуйста попытайтесь это Кодий. Оно выведет наружу к немедленно окну, я использовал слово VBA.

Алекс

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:

Sub комбинации () Const MYSET как шнур = «a, b, c, d, e, f» 'все значения размежеванные», « Тусклые aElems () как шнур, aNibs (7) как байт, I как интежер, j как интежер, nElems как интежер, s как шнур aElems () = разделили (MYSET, «, ") nElems = UBound (aElems) Если nElems > 7 после этого MsgBox «слишком много элементов:, то » & nElems + 1: Выходите подводная лодка aNibs (0) = 1: aNibs (1) = 2: aNibs (2) = 4: aNibs (3) = 8: aNibs (4) = 16: aNibs (5) = 32: aNibs (6) = 64: aNibs (7) = 128 Для I = от 1 до ^ 2 (nElems + от 1) до 1 s = "" Для j = 0 к nElems Если I и aNibs (j) после этого s = s & aElems, то (j) Затем Debug.Print s Затем Подводная лодка конца