Основные возможности Visual Basic. Макова Н.Е. - 68 стр.

         Но и без If a > 0 Then тоже никак нельзя. Если бы его не было, то
         с подсчитывал бы все числа без разбору, то есть был бы обычным
         счетчиком циклов. В нашем же фрагменте увеличение с на 1 вы-
         полняется не всегда, а лишь при положительном а.
              В сложных программах не забывайте обнулять счетчик пе-
         ред входом в цикл, а не то он начнет считать вам не с нуля, а бог
         знает с чего. Как бы вам понравилось, если бы таксист в начале
         поездки не обнулил счетчик?
              В нашем фрагменте значения счетчика печатаются при каж-
         дом выполнении цикла. Изменим задачу.

               Задача 2. В компьютер вводится ровно 200 чисел. Компью-
         тер должен подсчитать и 1 раз напечатать, сколько среди них по-
         ложительных чисел.
               Программа:
            Private Sub Command2_Click()
               с=0                       ‘Обнуляем счетчик
               For i = 1 To 200
                 a = InputBox(“Введите очередное число”)
                 If a > 0 Then c = c + 1
               Next i
               Debug.Print “Из них положительных - ”, c
            End Sub
               Путь рассуждений здесь тот же, что и в первой задаче. В ре-
         зультате применения оператора For тело цикла выполняется ров-
         но 200 раз, благодаря чему счетчик с накапливает нужное значе-
         ние. Оператор Debug.Print выполняется только 1 раз и печатает
         последнее накопленное значение, потому что в ячейке с будет
         находиться именно оно.
               Определите самостоятельно, что будет, если:
         а) вместо с=0 написать с=10;
         б) вместо с=с+1 написать с=с+2;
         в) строки Next и Debug.Print поменять местами;
         г) строки с=0 и For поменять местами;
         строки For и InputBox поменять местами.
               В следующей программе мы используем уже 2 счетчика.
         Изменим задачу.


         68

PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com