15 hurtige point her:

tal = Int((8 * Rnd) + 1)    \' Generate random value between 1 and 8.

denne linie kører du 4 gange, bagefter sammenligner du de 4 tal og hvis der er ens tal kører du linien igen, til de alle er forskellige.
-SCB

Generere 4 tilfældige i Arrayet Donner.
Hent med Donner(1) Donner(2) osv.

Sub Tilfaeldig()
Dim Total, Hej, Donner
Total = \",\"
Randomize Time

For Counter = 1 to 4
    Hej = Int(Rnd * 8) +1
    If Instr(Total,\",\" & Hej & \",\") = 0 then
        total = total & hej & \",\"
    Else
        counter = counter - 1
    End if
Next
donner = split(total,\",\")
End Sub

Dim Tal(7) As Integer
Dim idx, r, i, b

Do
  intR = Int(Rnd * 8) + 1

  b = false
  For i = 0 To 7
    If intR = Tal(i) Then b= true
  Next

  if b = false then Tal(idx) = intR: idx = idx +1
  If idx = 8 Then Exit Do
Loop

-->SCB
Den havde jeg sådan set grejet, det er sammenligningen bagefter der er problemet.
Hvis du kan komme med den også, sætter jeg pointene op til 30.

Upz . .en lille fejl

Dim Tal(3) As Integer
Dim idx, r, i, b

Do
  intR = Int(Rnd * 8) + 1

  b = false
  For i = 0 To 7
    If intR = Tal(i) Then b= true
  Next

  if b = false then Tal(idx) = intR: idx = idx +1
  If idx = 4 Then Exit Do
Loop

Hold da kæft, hvor er i hurtige!!
Jeg skal lige tjekke svarene, så er der points om 5 minutter.
MVH Tjacob

tjacob:> min er helt fin, men okai ..

Dette giver 4 forskellige tal mellem 1-8

Dim a, b, c, d

a = Int((8 * Rnd) + 1)

Do
b = Int((8 * Rnd) + 1)
Loop Until a <> b

Do
c = Int((8 * Rnd) + 1)
Loop Until c <> b And c <> a


Do
d = Int((8 * Rnd) + 1)
Loop Until d <> a And d <> b And d <> c


-SCB

scb:> det er også lidt overkill ...

men anyway ..

(sidder jeg virkelig og kæmper for 15 point!? *jeg må være langt ude*)

tdaugaard:> Ja, hvad laver man ellers en Søndag eftermiddag.

scb:> hæ hæ .. tjaa ..

hmm .. tjacob ?

-->tdaugaard
Din virker ikke  -noget med Tal går fra 0 - 3,
men du bruger i som argument (går fra 0 - 7).

-->SCB
Din virker. Jeg lovede dig 15 ekstra, så jeg opretter lige et nyt spm. til dig.

Hvor mange muligheder er der egentlig, med 4 forskellige tal ud af 8 ?
-SCB

:-( ja ..  en lille fejl ..  7 skal erstattes med 3 .. men anyway

-->SCB  Det må være noget med 8*7*6*5 = 1680

Der er da kun 8*4 forskellige !?

Der er 32 forskellige kombinationer af 4 tal mellem 1 og 8, men hvis placeringen er ligegyldig (og det er den; 1234 <> 4321), så er der mange flere.