![]() |
|
Модераторы: Akina |
![]()
|
|
| Vex |
|
|||
![]() кацапосрачмученiкъ ![]() ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 3103 Регистрация: 28.3.2002 Где: strawberry fields Репутация: нет Всего: 88 |
Надо одну лабу сделать, а я с бейсиком никогда практически не встречался
Дайте плиз пример кода условия if, case и циклов for, repeat и while Дальше уж я сам разберусь Заранее спасибо. -------------------- Слава Україні. |
|||
|
||||
| valex13 |
|
|||
|
Бывалый ![]() Профиль Группа: Участник Сообщений: 243 Регистрация: 29.1.2003 Где: Иркук. область, г . Иркутск Репутация: 1 Всего: 1 |
Без комменариев
iCount = 10 Do While iCount<>0 iCount = iCount -1 Print iClount Loop for j=1 to iCount for i=1 to iCount Print i,j Next Next If (iCount<>10 and iCount<>6) or (iCount<>2 and iCount<>6) then Print iCount Else Print "Облом" end if Do iCount= iCount+1 Repeat iCount <> 20 Select Case iCount Case 2 Print "2" Case 3 Print "3" end select |
|||
|
||||
| Vex |
|
|||
![]() кацапосрачмученiкъ ![]() ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 3103 Регистрация: 28.3.2002 Где: strawberry fields Репутация: нет Всего: 88 |
valex13, спасибо.
-------------------- Слава Україні. |
|||
|
||||
![]()
|
| Правила форума "VB6" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | VB6 | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |