K
kalito
Код:
Private Sub Command1_Click()
Dim i As Integer
5 i = 0
t0 = Timer
10 i = i + 1
If Text1.Text = "ккк" And Text2.Text = "1234" Or Text1.Text = "ккк1" And Text2.Text = "1234" Or Text1.Text = "ккк2" And Text2.Text = "1234" Then
Label3.Caption = "Доступ предоставлен"
ElseIf i > 3 Then
Label3.Caption = "Доступ отказан"
GoTo 5
Else
Label3.Caption = "Вы превысили число попыток"
Text1.Text = ""
Text2.Text = ""
End If
GoTo 10
20 End Sub