For x = 0 To 3 'Rasgele 4 kelime için satýr seçme
UstSnr = SozlukColl.Count
Randomize
KelimSira = Int((UstSnr - AltSnr + 1) * Rnd + AltSnr)
Secim(x) = KelimSira
SozlukColl.Remove (KelimSira) 'seçilen satýrý silme
Next x
Yukardaki kodu alttaki gibi değiştirip deneyin.
For x = 0 To 3 'Rasgele 4 kelime için satır seçme
UstSnr = SozlukColl.Count
var:
Randomize
KelimSira = Int((UstSnr - AltSnr + 1) * Rnd + AltSnr)
Secim(x) = KelimSira
For kontrol = 0 To x - 1
If Secim(x) = Secim(kontrol) Then GoTo var
Next
Next x