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