Rastgele 10 Sayı Seçme

1 ve 10 dahil olmak üzere birbirinden farklı 10 sayı yazan vb komutları nasıl olur? yardımcı olur musunuz?

1 ile 10 arasında rasgele 10 sayı için aşağıdaki modülü kullanabilirsiniz.
Bir formumuz olsun, formda bir komut butonu ve birde Metin kutusu olsun.
Komut düğmesine basıldığında Metin kutusunda yan yana benzersiz 11 ile 10 arasında sayı üretecektir.
Komut düğmesinin Click olayı aşağıdaki kodla çalışacaktır.

Dim sayilar As New Collection

Dim uretilensayilar As Integer

Dim i As Integer



Randomize

    Do While sayilar.Count < 10

        uretilensayilar = Int((10 - 1 + 1) * Rnd + 1)

On Error Resume Next

        sayilar.Add CStr(uretilensayilar), CStr(uretilensayilar)

On Error GoTo 0

    Loop

'        Debug.Print "Sonuçlar:"



    For i = 1 To sayilar.Count

        Me.txtSonuc.Value = sayilar(i) & " , " & Me.txtSonuc.Value



    Next i

teşekkürler

rica ederim, iyi çalışmalar...

Sayın @onur_can Hocamızın kodu istediğiniz işlemi yapacaktır ancak not olarak şu hususu belirtmekte fayda var:
Üretilen sayıların benzersiz olması gerekiyor ise:
üreticelecek sayılar bir collection veya array olarak tanımlanarak, üretilen sayı collectiona eklendiğinde bu sayının ilgili üretilecek sayılar array/collection'ından çıkartılarak üretilmesi engellenmek sureti ile unique sayılar elde edilebilir.