testa att lägga in Randomize()
Frågan#1
Varför får jag samma värde i arraylisten när jag kör denna kod.
dim arrRandomlevel as new Arraylist
dim intCounter as integer
for intCounter = 0 to 6
arrRandomlevel.add(random_level)
next intCounter
function random_level as integer
dim objRandom_level as random
objRandom_level = new random
select case objRandom_level.next(100)
case 0 to 35
return 1
case 36 to 55
return 2
case 56 to 75
return 3
case 76 to 90
return 4
case 91 to 100
return 5
end select
end function
