Point til eagleeye

ref?

http://www.eksperten.dk/spm/210257

http://www.eksperten.dk/spm/210257

Tak :)  Det jeg mente var at du  evt bare give mig 10 eller 20 points for hjælpen..

Det jeg ville skrive var at rnd giver et tal fra 0 til lige lidt mindre end 1.. (0-0,9999)  Så ganger men med det antal antal man vil finde som i dit tilfælde er 8.. så har men et tal som er melle 0 og 7,9999 Int runder ned til et hel tal så har man index'et 0 til 7 som kan bruges i arrayet hvorimod round runder op eller ned 7,99 bliver til 8... Som kan give en fejl hvis man bruger det som index i arrayet.

Hvis man så på forhånd trækker en fra så der er 7 og ikke 8 så virker det med round men så er sansynligheden for 0 og 7 mindre en for 1,2,3,4,5,6 pga af round runder op ved .49 og op ved .50

Du kan jo selv lave et svar og så så selv tage 40 eller 50.

håber det hjalp lidt, så prøve jeg lige at ramme den rigtige radiobutton :)

Round runder ned ve .49 og ikke op.. og der er

eks med Round:
tal      Afrundet
0-0.49    0
0.50-1.49  1
1.50-2.49  2
..
6.50-7    7

eks med Int:
tal      Afrundet
0-0.99    0
1-1.99    1
2-2.99    2
..
7-7.99    7

ok

HVilken ville du så anbefale jeg brugte til at afrunde med?

Jeg ville bruge den du skrev tilsidst hvor Round dog er rettet til Int:

Dim sNums, aNums, MyNum
sNums = "195,379,1094,391,273,276,114,277"
aNums = Split(sNums,",")

Randomize
MyNum = aNums(Int(((UBound(aNums)+1)*Rnd())))
Response.Write MyNum

Jep

Jeg har skrevet den så den er lidt nemmere at forstå:

Dim talStr, talArr, indexToNo
talStr = "389,195,379,1094,391,273,276,114,277"
talArr = Split(talStr,",")
Randomize
indexToNo = Int((UBound(talArr)+1)*RND())
titler = CStr(talArr(indexToNo))