Предупреждение: у нас есть цензура и предварительный отбор публикуемых материалов. Анекдоты здесь бывают... какие угодно. Если вам это не нравится, пожалуйста, покиньте сайт. 18+

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

Образец длиной до 50 знаков ищется в начале имени, если не найден - в середине.
Если найден ровно один автор - выводятся его анекдоты, истории и т.д.
Если больше 100 - первые 100 и список возможных следующих букв (регистр букв учитывается).
Рассказчик: Aster
По убыванию: %, гг., S ;   По возрастанию: %, гг., S
1

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

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 (3)
1
Рейтинг@Mail.ru