Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11697
Последний выпуск: 19.06.2015

Циклы!

47K
22 ноября 2012 года
Rayrat7
99 / / 09.06.2012
Как сделать чтобы при каждом нажатии по командной кнопке срабатывал только один шаг цикла?

 
Код:
Private Sub запуск_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles запуск.Click

        For i = 0 To 99 Step 1
            ListBox1.Items.Add(i + 1 & "  Тест")

        Next

    End Sub
40K
22 ноября 2012 года
D129
228 / / 18.04.2012
Код:
Dim iii as Integer

Private Sub запуск_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles запуск.Click

      '//  For i = 0 To 99 Step 1
         

      ListBox1.Items.Add(iii  & "  Тест")
          iii = iii +1
 
       '// Next

    End Sub
можно так. Ну а уж до 99 сами считайте.
:-)
65K
22 ноября 2012 года
verholom
48 / / 29.08.2011
 
Код:
Private Sub запуск_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles запуск.Click
        'Это вообще изврат полный писать на циклах с единичным приращением Step
        For i = 0 To 99 'Step 1
            ListBox1.Items.Add(i + 1 & "  Тест")
            Exit For
        Next

End Sub

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог