Blande et bestemt antal tal

<%

str = "1,5,10,20,30,50,75,100,200,300,500"
talArray = split(str,",")
checkStr = "-1,-1,-1"
checkArr = split(checkStr,",")
Randomize
cont = 0
while (cont < 3)
  tal = int(rnd * UBound(talArray))
  check = true
  for i = 0 to UBound(checkArr)
    if tal = checkArr(i) then
      check = false
    end if
  next
  if check <> false then
    response.write talArray(tal)
    checkArr(cont) = tal
    cont = cont+1
  end if
wend
%>

//>Rune

Der udskriver den så kun 3 af tallene. Alle skal med. skal

while (cont < 3)

så være

while (cont < 11)

?

Har lige lavet medions funktion lidt om... Prøv med denne:

    talArr = split("1,5,10,20,30,50,75,100,200,300,500,0",",")
    checkArr = split("0,0,0,0,0,0,0,0,0,0,0",",")
    Randomize
    cont = 0
    While (cont < 11)
      tal = int(rnd() * UBound(talArr))
      check = True
    For i = 0 To UBound(checkArr)
        if tal = checkArr(i) then
          check = False
        end if
      Next
      If check <> False Then
        response.write talArr(tal) & " - "
        checkArr(cont) = tal
        cont = cont+1
      End If
    Wend

Min fejl, jeg har lige læst dit spøgsmål lidt forkert, håber det virker med Martin Bondes beskrivelse.

//>Rune

Tak for hjælpen begge. Jeg synes vi laver en deler.

medions lavede det grundlæggende og bondester satte lige den sidste finger på :-)

smid et svar, bondester.

Det lyder fornuftigt ;-)