fremstille samtlige kombinationer

Her er et Visual Basic program, der gør det du ønsker.
Jeg laver det om lidt om til et VBscript-program.
Se i øvrigt her:
http://www.eksperten.dk/spm/374314

'Dette VB-program lister alle kombinationer,
'der består af p tegn valgt blandt n tegn.
'Tegnene er her ABCDEFG...
'Kombinationerne gemmes i tekststrengen R adskilt af komma.

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, med As Boolean, ByVal s As String)
  If med Then
    s = s & Mid(Tegn, pos, 1): sum = sum + 1
  End If
  If sum < p And pos < n Then
    Komb pos + 1, sum, False, s
    Komb pos + 1, sum, True, s
  End If
  If sum = p Then R = R & s & " , "
End Sub


Private Sub Form_Load()
  n = 5: p = 3
  Komb 1, 0, False, ""
  Komb 1, 0, True, ""
  MsgBox R
End Sub

Her er så et VBscript-program der gør det samme. Jeg har valgt bogstaver i stedet for tal. Vi skal jo have nogle tegn at vise frem, og der er jo kun 10 taltegn.

Option Explicit
Dim n, p, R
Const Tegn = "ABCDEFGHIJKLMNO"
Sub Komb(ByVal pos, ByVal sum, med, ByVal s)
  If med Then
    s = s & Mid(Tegn, pos, 1): sum = sum + 1
  End If
  If sum < p And pos < n Then
    Komb pos + 1, sum, False, s
    Komb pos + 1, sum, True, s
  End If
  If sum = p Then R = R & s & " , "
End Sub


Private Sub Form_Load()
  n = 5: p = 3
  Komb 1, 0, False, ""
  Komb 1, 0, True, ""
  MsgBox R
End Sub

<%
TekstStreng = "5-3"

Pos = InStr(TekstStreng, "-")
StoersteVaerdi = Left(TekstStreng, Pos-1)  ' Værdien 3
Antal = Right(TekstStreng, Len(TekstStreng)-Pos)  ' Værdien 5

Response.Write(Antal & " ud af " & StoersteVaerdi & "<br>")

call Kombinationer(Antal, 1, StoersteVaerdi-Antal+1, "")

sub Kombinationer(LokalAntal, LokalLavesteVaerdi, LokalStoersteVaerdi, LokalResultat)
  for Vaerdi = LokalLavesteVaerdi to LokalStoersteVaerdi
    NytLokalResultat = LokalResultat & " " & Vaerdi
    if LokalAntal > 1 then
      call Kombinationer(LokalAntal-1, Vaerdi+1, LokalStoersteVaerdi+1, NytLokalResultat)
    else
      Response.Write(NytLokalResultat & "<br>")
    end if
  next
end sub
%>

Jeg ser jeg glemte at lave det sidste fra Visual Basic om. Her er det med en lille ændring:

Option Explicit
Dim n, p, R
Const Tegn = "ABCDEFGHIJKLMNO"
Sub Komb(ByVal pos, ByVal sum, ByVal med, ByVal s)
  If med Then
    s = s & Mid(Tegn, pos, 1): sum = sum + 1
  End If
  If sum < p And pos < n Then
    Komb pos + 1, sum, False, s
    Komb pos + 1, sum, True, s
  End If
  If sum = p Then R = R & s & " , "
End Sub


  'Kombinationer hvor p tegn skal udtages fra n tegn
  'Kombinationerne bliver gemt i tekststrengen R adskilt
  'af komma alså ABC, ADC,...
  n = 5: p = 3
  Komb 1, 0, False, ""
  Komb 1, 0, True, ""
  'Nu ligger resultatet i R. KAn udskrives med MsgBox R, hvis
  'du kører det som et VBscript. Eller med
  'Response.write(R) fra en asp-side.

Hvordan går det med projektet?

Jeg har endnu ikke haft tid til at få kigget på det... men jeres svar ligner noget jeg kan bruge... jeg deler points.

Tak for hjælpen

selv tak, det var så lidt. Takker for point.