Поиск автора: Aster

Рассказчик: Aster

По убыванию: %, гг., S ; По возрастанию: %, гг., S

27.08.2001, Остальные анекдоты

"Скоро зима..." - подумал Волк, поглубже натягивая Красную Шапочку.

08.08.2004, Комментарии

Public Sub MudakDetect(UserName as String)
If UserName = "Alik" Then
Do
Screen.Print "Current user is MUDAK!!!"
Loop
End If
End Sub

Aster

08.08.2004, Комментарии

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

Aster (3)

Поиск по автору: