Programalama > VISUAL BASIC

Private Sub Form_Load()
Dim ad As String
Dim tekrar As Integer
tekrar = 0
ad = InputBox("adınızı giriniz")
Do Until ad = "arife"
tekrar = tekrar + 1
If tekrar = 3 Then
MsgBox "uzgunum.deneme hakkınız dolmustur."
Exit Do
End If
MsgBox "yanlıs isim girdiniz.lutfen tekrar deneyiniz."
ad = InputBox("adınızı giriniz")
Loop
End Sub