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