quote:

Dim a As Integer
Dim sayi As Integer
For aea = 1 To 5 Step 1
a = InputBox("Bir sayı tahmin edin tahmin edin")
sayi = Int((100 * Rnd()) + 1)
Do
If sayi < a Then
aea = aea - 1
MsgBox("Üzgünüm, başarısız. Şu kadar hakkınız daha var:")
MsgBox(aea)
sayi = InputBox("Daha Büyük Sayı Giriniz:")
Else
aea = aea - 1
MsgBox("Üzgünüm, başarısız. Şu kadar hakkınız daha var:")
MsgBox(aea)
sayi = InputBox("Daha Küçük Sayı Giriniz:")
End If
Loop Until a = sayi
Me.Visible = False
MsgBox("Tebrikler")
Next
Me.Visible = False
MsgBox("Eh, beceremedin.")