2 svar · 351 visningar · startad av Fredde Mannen
Jag vill slumpa fram 7 tal mellan 1 och 35. Men dessa tal får bara finnas i ett exemplar.
Att göra själva randomiseringen är inga problem, men hur undviker jag att samma tal slumpas fram mer än en gång?
Du får kolla det, och slumpa igen vid behov.
En variant.. :
[red]<%
Function rndDgts(intLoop)
Dim rndNum, maxValue, i, x, c
Redim rndNum(intLoop)
maxValue = 35
Randomize
For i = 1 To intLoop
rndNum(i) = Int(Rnd * maxValue)+1
For x = 1 To i-1
If rndNum(x) = rndNum(i) Then
i=i-1
End If
Next
Next
For c = 1 To intLoop
rndDgts = rndDgts & rndNum(c) &"<br>"
Next
End Function
'// Skriv ut..
Response.Write rndDgts(7)
%>[/red]