Private Command1_Click()


  Dim randomsayi , deneme , tahmin As Integer  


  'Burada sayı ürettiriyoruz'  


   Randomize Timer


   randomsayi=(Fix(Rnd*50)+1)


       


   deneme=0


      


   'Burada Do Döngüsü başlatıyoruz'


    Do


   'Kullanıcıdan Sayıyı alıyoruz'


    tahmin=Inputbox("Tahmininiz Nedir?")


'Şimdi tahmin değişkene kullanıcın tahminini atadık'


'Şimdi Select Case karşılaştırmasını başlatıyoruz'    


    Select Case tahmin


     Case randomsayi


     Msgbox "Tebrikler"& deneme &"seferde bildiniz"


     exit sub


     


     Case is > randomsayi


     Msgbox "Daha küçük bir sayi giriniz!"


     deneme = deneme + 1 





     Case 0


     exit sub 





     Case is z randomsayi


     Msgbox "Daha büyük bir sayi giriniz!"


     deneme = deneme + 1  





     End Select


Loop Until tahmin=0


end sub