Dim pole(36)

For i = 0 To 35
 pole(i) = -1
Next

For cislo_karty = 0 To 17

 Do
      nahodne_cislo = CInt(Int(36 * Rnd()))
 Loop Until pole(nahodne_cislo) = -1

 pole(nahodne_cislo) = cislo_karty

 Do
      nahodne_cislo = CInt(Int(36 * Rnd()))
 Loop Until pole(nahodne_cislo) = -1

 pole(nahodne_cislo) = cislo_karty
Next