Matjazev.NET

Ah, sem spregledal, da želite variacije s ponavljanjem. Kodo sem popravil tako, da podate še zadni parameter (1 ali 0), če želite oz. ne želite ponavljanja: Option Explicit Public znaki As String Public znakiLen As Integer Public varLen As Integer Public sPonavljanjem As Boolean Public idx() As Int...

Pozdravljeni, Kot obljubljeno, vam pripenjam kodo za variacije. Option Explicit Public znaki As String Public znakiLen As Integer Public varLen As Integer Public idx() As Integer Public maxIdx() As Integer 'Sub test() ' Variiraj "1234567", 3 'End Sub Sub Zazeni() Dim Vhod As String: Vhod = InputBox...

Pozdravljeni, To o čemer govorite vi, niso permutacije, temveč varaicije. Iščete torej algoritem za generiranje variacij. Vprašanje, ki se mi zastavlja pa je, zakaj ga potrebujete? Ali je to domača naloga? Že lep čas ne hodim v šolo. V službi delam neke analize in bi si rad sestavil določene variac...

Ker sem popolnoma brez znanja VBA bi prosil za kodo, ki bi imela še en parameter in sicer število znakov v nizu. Se pravi en vnos za niz možnih znakov in dolžino permutiranega niza.
Npr:
Niz znakov: 12345
Dolžina niza: 2

Rezultati:
12
13
14
15
21
23
24
.
.
.
56

Hvala in lep pozdrav