Kod:
Dim MyValue
Randomize ' rasgele sayı üreteci.
MyValue = Int((50 * Rnd) + 1) ' 1 den 50 ye Rasgele sayi türetir.
Her seferinde farklı bir sayı çıkar,
Arada aynı sayının tekrar gelmemesini istiyorsan, her seferinde çıkan sayıları bir yere not alman ve ürettiğin resgele sayıyla sorgulaman lazım...
Aynı program icerisinde defalarca kullanacaksan çıkan sayıları bir diziye eklemen,
farklı program içerisinde kullanacaksan external bir dosya kullanman lazım