Option Compare Database
Dim dic As Object, i As Integer
Private Sub Form_Close()
Set dic = Nothing
End Sub
Private Sub Form_Load()
Set dic = CreateObject("Scripting.dictionary")
Randomize
For i = 1 To 33
dic.Add i, i
Next
End Sub
Private Sub Komut2_Click()
Dim soru_sayisi
10:
soru_sayisi = Int((33) * Rnd) + 1
If Not dic.Exists(soru_sayisi) Then GoTo 10
adj_id.Value = dic(soru_sayisi)
If dic.Exists(soru_sayisi) Then dic.Remove (soru_sayisi)
If dic.Count = 0 Then MsgBox "Sayilar Bitti", vbExclamation, "Bitti"
End Sub