Module Module1 Dim a(20) As Integer Sub Main() Randomize() For i = 1 To 20 a(i) = (50 + (Rnd() * 50)) Console.WriteLine(a(i)) Next Console.ReadLine() End Sub
End Module
Uygulama amacı rastgele ve birbirinden farklı sayılar üretmek rastgele sayı üretmek kısmını hallettim ama farklı sayılar üretemiyorum aynı sayıdan bazen 2-3 tane üretebiliyor bunu nasıl halledebilirim.
Üretilen sayları bir diziye at ve atmadan önce dizide yanı sayı var mı diye kontrol et. Sonra ekrana diziyi yazdırırsın.