Vis ALLE de mulige kombinitationer

Din kode (som jeg i øvrigt har lavet. (Se spørgsmål om listning af kobinationer)) skal ændres til:

Option Explicit
Dim n As Byte, p As Byte, R As String
Const Tegn = "ABCDEFGHIJKLMNO"
Sub Komb(ByVal pos As Byte, ByVal sum As Byte, ByVal Npos As Byte, ByVal s As String)
  Dim i As Byte
  For i = 1 To Npos
    s = s & Mid(Tegn, pos, 1): sum = sum + 1
  Next
  If sum < p And pos < n Then
    For i = 0 To p - sum
      Komb pos + 1, sum, i, s
    Next
  End If
  If sum = p Then R = R & s & " , "
End Sub


Private Sub Form_Load()
Dim A, q As Byte, i As Byte
  n = 4: p = 3
For i = 0 To p
  Komb 1, 0, i, ""
Next
  MsgBox R
  A = Split(R, ",")
  q = UBound(A)
  MsgBox q
End Sub

Hej igen nmh!
Jeg prøvede at ændre det, så det istedet for 3 tegn var 8 tegn.
Men så kom den med en fejmeddelese hvor der stod: Overflow
Og så markerede den følgende:  q = UBound(A)

Hvis du sørger for at dette ikke sker, får du pointene.

Eller lidt simplere.

dim s
s="ABC"

sub f(t)
  dim i
  if len(t)=len(s) then
    response.write t & "<br>"
  else
    for i=1 to len(s)
      call f(t & mid(s,i,1))
    next
  end if
end sub

call f("")

Du skal blot ændre erklæringe af q som før var dim q as byte til

dim q as long

Eller endnu bedre As Integer - den optager mindre plads end en Long ;o)

Martin Moth>Ja, men det kan let ske at listen bliver så lang, at den et heltal også vil give overløb. Derfor typen long.

I øvrigt vil programmet køre ulideligt langsomt, hvis tekststrengen R begynder at blive stor. Addition af tekststrenge er ikke noget VB er glad for. Så man skulle nok istedet benytte en dynamisk tabel til at opsamle resultaterne.
(men igen: hvad skulle man dog bruge 1000000 tekststrenge til?)

Eller skrive resultaterne til en fil...

Anyway - en smart funktion f(t) du har lavet :o)

Hvis det kun er antallet man skal bruge, er der nemmere måder at finde det på ;)

Men ellers: en gammeldags cykellås, Ind/Ud/Ingenting - så er det en god ting
at have hele listen.

>ErikJacobsen> Din løsning duer desværre ikke. Du gør forskel på rækkefølgen. AAC og CAA skal opfattes som det samme "ord".
Feks. hvis der n=2 og p=2
AA, AB, BA er de eneste. Din løsning udskriver AA, AB, BA og BB.

Antallet af ord af længde p og hvor tegnene skal udtages fra et alfabet med n tegn ere som bekendt p^n. Deter også det, der svarer til cykellås-situationen.

Men hvad bliver antallet, hvis vi er lige glade med rækkefølgen af tegnene? Her kan jeg ikke umiddelbart finde en formel.

Ja ja, jeg henholder mig kun til spørgerens formulering. Det er jo ikke
til at vide, at der stikker noget under ;)

ErikJacobsen> Du har ret i at formuleringen er uheldig.Spørgsålet dukkede op i forbindelse med en løsning til
http://www.eksperten.dk/spm/374314
som handler om at få udskrevet en liste af kombinationer (p forskellige ting udtages fra en samling af n forskellige ting).

Løsningen her er iøvrigt endnu ikke akcepteret af den, der har stillet spørgsmålet.

Men vi kan nemt lave mit lille eksempel om:

dim s,max
s="ABC"
max=3


sub f(t,j)
  dim i
  if len(t)=max then
    response.write t & "<br>"
  else
    for i=j to len(s)
      call f(t & mid(s,i,1),i)
    next
  end if
end sub

call f("",1)

Ja,nu er det ok. En god løsning!
Nu ville det være rart at kunne finde et regneudtryk for antallet af "ord".