Беседка

Спасибо!!!

Поздравляю

СПасибо

Молодец!!!

там таварный поезд нужен походу!!!

Добавлено спустя 31 секунду

#907444 пишет

ни как это лохотрон

bulldog82 пишет

никак.забудь про этот сайт и не вспоминай.лохотрон

я так не думаю

Поздравляю

Поздравляю, теперь стремись к стажёру

Спасибо

не хило 20 центов. Молодец

Я бы хотел видеть у руля СПАРТАКА Андрея Тихонова!!!

Ура я за халявой успел.

Можно мне?

ride013 пишет

Привет можете помочь с задачей)

Нужно распечатать в столбик все слова строки, стоящие на четных местах.

Вот что у меня получилось

Private Sub Command1_Click()
Dim T
Dim J
Cls
T = InputBox("Ввести тектс без знаков препинания", "", "На улице холодно")
For J = 1 To UBound(Split(T, " ")) Step 2
Print Split(T, " ")(J)
Next J
End Sub

Но программа работает не коректно, при вводе цифр она их не выводит
не могу разобраться как выводить и цифры..
+0.01$    
+1 Cr    
хорошая тема    
плохая тема

сперва rem пишется потом kls потом input

Халява

Запуталась она, впечатление надо произвести.

За халяву и задание спасибо, а вот зелёнки нет, потом будет стену плюсану

Спасибо, извини зелёнки нет, будет на стену плюсану...

#587180 пишет

Diem

Кстати стишки если нужны обращайся парочку троечку набросаю правда не очень, но моей нравятся

#648841 пишет

можно мне халявы

держи зелёную

#587180 пишет

#856276 пишет

а лучше всего, букетик РОЗ какое нибудь милое местечко пита кафе, романтическая обстановка, море комплиментов, я думаю растает.
УДАЧИ!!!

да не факт что вообще согласится куда нитьь идти! надо сразу при приезде как то сделать чтоб дальше болеее менее норм было!

Знаешь было у меня что то наподобие.Приобними нежнее слова ласковые, комплименты.Темболее как я понял из темы ты ей не безразличен.Они любят романтику типа кофе в постель и т.д. Но лучше стихи.