Kamrad.ru

Go Back   Kamrad.ru > Форумы общей тематики > Программы (software)

Reply
 
Thread Tools Display Modes
Old 08-01-2001, 23:20   #1
Aleksei
Banned
 
Join Date: авг 2001
Сообщений: 57
Smile Visual basic Помогите

С помощью какого цикла можно сделать что бы комп сам выбирал то или иное условие? Короче как сделать что бы моя прога выбирала сама из того условия что я ей задал? Срочно нужно Помогите!!!
Aleksei is offline   [Ответить с цитированием]
Old 08-01-2001, 23:45   #2
Alexvn
Администратор
Буржуин проклятый
 
Join Date: мая 2000
Location: Париж, Франция
Сообщений: 10,913
Smile

Ничего не понял. Опиши подробней, по пунктам, а лучше приведи пример.
Alexvn is offline   Дневник [Ответить с цитированием]
Old 09-01-2001, 14:18   #3
Mips
Модератор
Злыдень немрущий
 
Mips's Avatar
 
Join Date: сен 2000
Location: Краснодар
Сообщений: 2,333
Cool

2 Aleksei
В вопрос чессказать тольком не въехал, но по-моему я понял что ты хочешь.
Вот пример, в котором цикл крутится 10 раз пока s не достигнет того числа на котором ты хочешь остановить цикл(I_want) и выводит число на котором закончился цикл:

s = 0
I_want = 5
Do While s < 10
s = s + 1
If s = I_want Then Exit Do
Loop
MsgBox (s)


PS: Если хочешь, чтобы цикл крутился бесконечно - просто убери While s < 10 из примера.
---
Завсегда рад помочь.
Mips is offline   Дневник [Ответить с цитированием]
Old 10-01-2001, 22:33   #4
Urkаgan
Камрад
 
Join Date: ноя 2000
Location: Moscow
Сообщений: 39
Smile

Вообще-то, чтобы запустить цикл с заране известным количеством прогонов существует конструкия For ... Next
Code:
Dim i as Integer
Dim A as Integer

A=0
For i=1 to 10
    A=A+1
Next i
Циклы Do ... Loop ... While лучше применять, когда заранее неизвестно количество повторов цикла и мы проверяем необходимость выполнения цикла каким либо условием.
Urkаgan is offline   [Ответить с цитированием]
Reply


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump


All times are GMT +3. The time now is 10:22.


Powered by vBulletin® Version 3.8.12 by vBS
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Любое использование материалов сайта
возможно только с разрешения его администрации.