Hej. Undrar om man kan på något sätt få VB att ta fram sluptal. Tex HejSLUMPTAL
tal ifrån 10 -> och frammåt om man säger så. Men talen får inte
komma igen utan när ett tal är slumpat fram så får VB inte slumpa fram det igen, någon som har någon lösning? Detta skall ske när man tycker på en comman knapp. Tacksam för lite förslagSv: SLUMPTAL
Randomize i Form_Load
'En ListBox som visar de slumpade talen
Dim tal As Long,i As Long
Dim dArray(100) As Long
Do Until i > önskat antal
'som i detta exempel skall vara <= 100
tal = Int(Rnd * 91) + 10
'kommer att slumpa tal mellan 10 - 100
If dArray(tal) = 0 Then
dArray(tal) = 1
List1.AddItem tal
i = i + 1
End if
Loop
fritt ur minnet
Sven