Får inte rätt nummer på rätt plats, de blir förskjutna ett steg efter rätt nummer.
tex. nummer fem kommer på plats nummer 6 varför ????
Dim num As Single

For k = 0 To 7 ' antal nummer
num = Int(Rnd * 35)
If k > 7 Then Exit Sub ' 7 nummer

Label1(num).BackColor = vbBlue
Label1(num).ForeColor = vbWhite
Label1(num).Caption = num

Next

Låter som om det borde vara :


For K=1 to 7...

inte K=0 to 7...
Det blir ju 8 nummer...'

mvh
Martin

hjälper inte har provat det också

tack annars

Hej
För att inte få med 0 skall du skriva så här

num = Int(Rnd * 35 ) +1

som du har skrivit kommer 0 - 34 med dvs 35 tal

For k = 1 To 7 ' antal nummer
num = Int(Rnd * 35) +1
Label1(num).BackColor = vbBlue
Label1(num).ForeColor = vbWhite
Label1(num).Caption = num
Next 'k

Sen får du se till att du indexerar om dina Label :s så att dom
börjar på Index 1 - 35

mvh
Sven

Tror jag vet vad du menar....


Dim num As Single
Randomize
For k = 0 To 7 ' antal nummer
num = Int(Rnd * 35)
If k > 7 Then Exit Sub ' 7 nummer

Label1(num - 1).BackColor = vbBlue
Label1(num - 1).ForeColor = vbWhite
Label1(num - 1).Caption = num

Next

ser ut att funka....

Hmm. Tycker koden är lite skum. Ska den fylla alla åtta kontroler med ett slump värde mellan 0 och 34? Bör i så fall se ut såhär:

For k = 0 To 7 ' antal nummer
num = Int(Rnd * 35)
Label1(k).BackColor = vbBlue
Label1(k).ForeColor = vbWhite
Label1(k).Caption = num
Next

Alternativt:

Dim MyLabel as Label
For Each MyLabel In Label1
num = Int(Rnd * 35)
MyLabel.BackColor = vbBlue
MyLabel.ForeColor = vbWhite
MyLabel.Caption = num
Next