Randomize ??

Randomize
loesning = Int(rnd* (Max - min))+ min

forklare mig lige hvad du har lavet :)

hvorfor + min osv::)

Private Sub Command1_Click()
Dim Max As Long, Min As Long
Randomize
  Max = 10
  Min = 3
  Me.Caption = Int((Max - Min + 1) * Rnd + Min)
End Sub

sjh > synes lige din er forlang :)

den laver et tal imellem 3 og 10 (min og max)

Rnd finder et tilfældigt tal fra 0 til en værdi du bestemmer.
Du skal have et tilfældigt tal mellem 3 og 10 (10-3=7), altså er der 8 muligheder hvis både 3 og 10 tæller med (10+1-3=8).
(Jeg glemte +1 efter max - det har sjh med).
Derefter lægges minimum til og du får et tal mellem 3 og 10.

Så kan det vist ikke forklares mere indviklet..