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.
yeni mesaja git
Yeni mesajları sizin için sürekli kontrol ediyoruz, bir mesaj yazılırsa otomatik yükleyeceğiz.Bir Daha Gösterme