- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
Private Sub CommandButton1_Click()
If t1.Text = "Привет" Then
MsgBox "Добро пожаловать в меня", 32
End If
If t1.Text = "Как дела?" Then
MsgBox "Все норм пока", 32
End If
If t1.Text = "Как тебя зовут?" Then
MsgBox "Дрюн меня зовут и ненадо ржать!", 32
End If
If t1.Text = "Какого ты пола?" Then
MsgBox "Я компьютерная программа, следовательно у меня не может быть никакого пола.Но я могу быть тем или той кого ты захочешь))", 32
End If
If t1.Text = "" Then
MsgBox "Моя очередь задавать вопросы.Ты согласен?", 32
End If
If t1.Text = "Нет" Then
MsgBox "Ну что так грубо?Я думал мыы друзья.В общем пиши -ДА и продолжим разговор", 32
End If
If t1.Text = "Да" Then
MsgBox "А как тебя зовут.Введи пожалуйста полное имя.", 32
End If
If t1.Text = "Петр" Then
MsgBox "Ага...Все таки парень.", 32
End If
If t1.Text = "Борис" Then
MsgBox "Ага... все таки парень. ", 32
End If
If t1.Text = "Илья" Then
MsgBox "Ага... все таки парень.", 32
End If
If t1.Text = "Полина" Then
MsgBox "Сюда вошла деваха)Как приятно", 32
End If
If t1.Text = "Маша" Then
MsgBox "Сюда вошла деваха)Как приятно", 32
End If
If t1.Text = "Алексей" Then
MsgBox "Приятно познакомиться", 32
End If
If t1.Text = "Татьяна" Then
MsgBox "Приятно познакомиться", 32
End If
If t1.Text = "Софья" Then
MsgBox "Сюда вошла деваха)Как приятно", 32
End If
If t1.Text = "Александр" Then
MsgBox "Самое популярное имя. Ну что ж, привет", 32
End If
If t1.Text = "Александра" Then
MsgBox "Сюда вошла деваха)Как приятно", 32
End If
Программа-пизделка (для индивидов, которым не с кем поговорить). Наверно, автор писал ее для себя.
http://vbbook.ru/shitcode/1351956488/
Follow us!
http://vbbook.ru/1361141774/1381063452/
> MsgBox "Приятно познакомиться", 32
Не деваха? о_О
If t1.Text = "Привет" Then
MsgBox "Добро пожаловать в меня", 32
End If
Шлюха.
о_О
а что бы я вырезал в них, так это амбиции. что одна ночь секса значит тележка детей до смертного часу.
А вообще я считаю - раз ты решил завести бабу - мозгосекс идет в подарок - наслаждайся
точно, но вытерпеть можно только одну.
Тут заходишь ты, и обе смолкают. Их взгляд обращен на тебя, они трепещут перед тобой, они готовы исполнить любое твое желание.
[...]
Могу также домыслить и представить последствия: пол и стены липкие, с потолка капает.
тук-тук-тук! Лурик тут живет? Ты чего стервец алиментов не платишь,а? Обрюхатил девку, толкнул на грех - теперь плати!
Чехов очень хорошо сказал об этом, я не буду дословно цитировать, приведу лишь суть, насколько я понял: по молодости люди много страдают ерундой, тратят силы на пустяки а потом оказывается, что жизнь пролетела мимо, а сделать осталось очень многое.
"Приятно" будет уже через несколько дней, когда проявятся признаки венерического заболевания.
))))))))))))))))))))))))))))