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
Рассказчик: 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
Aster (3)
1