Рассказчик: Aster
1
Public Sub MudakDetect(UserName as String)
If UserName = "Alik" Then
Do
Screen.Print "Current user is MUDAK!!!"
Loop
End If
End Sub
If UserName = "Alik" Then
Do
Screen.Print "Current user is MUDAK!!!"
Loop
End If
End Sub
Public Sub MudakDetectAdvanced()
Dim Detector as Long
Detector = MsgBox ("Your UserName is Alik?",vbYesNo)
Select Case Detector
Case vbNo
Exit Sub
Case vbYes
Do
MsgBox "You is MUDAK!!!", vbOKOnly, vbExclamation
Loop
End Select
End Sub
Dim Detector as Long
Detector = MsgBox ("Your UserName is Alik?",vbYesNo)
Select Case Detector
Case vbNo
Exit Sub
Case vbYes
Do
MsgBox "You is MUDAK!!!", vbOKOnly, vbExclamation
Loop
End Select
End Sub
Aster (3)
1