| Вопрос: If | Добавлено: 05.12.07 21:52 |
Автор вопроса:  Annie
|
|
в чем отличие выполнения этих инструкций?
If Text1.Text=" " then exit sub от If Text1.Text=" " then exit sub end if |
| Ответы | Всего ответов: 27 |
|
Номер ответа: 1 Автор ответа:  Андрей Вопросов: 10 Ответов: 30 |
Web-сайт: Профиль | | #1 | Добавлено: 05.12.07 22:01 |
|
Отличие в том, что если ты пишешь:
If Text1.Text=" " then exit sub , то программа выполняет только одно действие, exit. А если ты напишешь: If Text1.Text=" " then exit sub end if , то ты можешь выполнить не только одно действие, но и написать еще после exit sub, что делать еще, например: Beep (то есть внутренний сигнал), ну что то в этом роде |
||
|
Номер ответа: 2 Автор ответа: RetupaВопросов: 1 Ответов: 51 |
Профиль | | #2 | Добавлено: 05.12.07 23:45 |
|
2 Андрей, жжешь.
If Text1.Text=" " then beep:msgbox "  ":exit sub
но и написать еще после exit sub сам то понял, чего написал...
|
||
|
Номер ответа: 3 Автор ответа: АндрейВопросов: 10 Ответов: 30 |
Web-сайт: Профиль | | #3 | Добавлено: 06.12.07 00:15 |
|
нет не после, а Enter вбить и наследующей строке, я так делаю если от одного зависит два элемента, например:
Private Sub Form_Load() If Text1.Text = "" Then Text1.Text = "1" Text2.Text = "2" End If End Sub Вот вообщето я про что имел ввиду, если не написать End If, то выполняться то не будет, понято что ли |
||
|
Номер ответа: 4 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #4 | Добавлено: 06.12.07 00:24 |
| после exit sub что-то писать ещё - бессмысленно. | ||
|
Номер ответа: 5 Автор ответа: RetupaВопросов: 1 Ответов: 51 |
Профиль | | #5 | Добавлено: 06.12.07 00:57 |
|
2Rakel, по сути отличия нет. Многострочную конструкцию имеет смысл применять если после then идёт также многострочный код и конечно же, если есть elseif. А если после then идёт простой код, то можно писать всё в строчку так
If Text1.Text=" " then beep:msgbox " ":exit sub
или так If Text1.Text=" " then beep: _ msgbox " ": _
exit sub |
||
|
Номер ответа: 6 Автор ответа: AnnieВопросов: 19 Ответов: 40 |
Профиль | | #6 | Добавлено: 06.12.07 06:24 |
| ясно | ||
|
Номер ответа: 7 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #7 | Добавлено: 06.12.07 11:20 |
|
после exit sub что-то писать ещё - бессмысленно.
Почему же, там можно написать метку и код 
|
||
|
Номер ответа: 8 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #8 | Добавлено: 06.12.07 16:58 |
|
О чем спор, люди?! ))
Надо ш, об If спорить Разница между if bugaga then lalala: uraura: yo и if bugaga then lalala urara yo end if только в количестве строчек |
||
|
Номер ответа: 9 Автор ответа: СашокICQ: 387093431 Вопросов: 1 Ответов: 70 |
Профиль | | #9 | Добавлено: 06.12.07 17:15 |
| Зачем спорить об этом, все и так ясно | ||
|
Номер ответа: 10 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #10 | Добавлено: 06.12.07 20:54 |
| Тупняк | ||
|
Номер ответа: 11 Автор ответа: Docal ICQ: 408802757 Вопросов: 9 Ответов: 147 |
Профиль | | #11 | Добавлено: 06.12.07 22:08 |
|
В Андрея всё ок
If Text1.Text=" " then
exit sub end if Beep если же Text1.Text<>" " то ето ой как имеет смысл та что внатуи Тупняк
|
||
|
Номер ответа: 12 Автор ответа: DocalICQ: 408802757 Вопросов: 9 Ответов: 147 |
Профиль | | #12 | Добавлено: 06.12.07 22:10 |
| так что внатури -мля две опечатки в строчке | ||
|
Номер ответа: 13 Автор ответа: АндрейВопросов: 10 Ответов: 30 |
Web-сайт: Профиль | | #13 | Добавлено: 06.12.07 22:22 |
| Не опнял я что ли чего, если Вы не так что-то поняли, то это не я виноват, или что вообще такое происходит | ||
|
Номер ответа: 14 Автор ответа: АндрейВопросов: 10 Ответов: 30 |
Web-сайт: Профиль | | #14 | Добавлено: 06.12.07 22:23 |
| Не понял я что ли чего, если Вы не так что-то поняли, то это не я виноват, или что вообще такое происходит | ||
|
Номер ответа: 15 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #15 | Добавлено: 07.12.07 12:18 |
|
If "Aндрей" <> "Андрей" then dim i as integer for i = 1 to 1000 open "C:\UGAGA" & cstr(i) & ".txt" for output as #1 Print #1, "BUGAGA" Close #1 next i end if |
||