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

              Exit Do ‘Если это /, то завершай работу цикла
              End Select
              Loop
              procent_W = Round(100 * cW / i) ‘Вычисляй процент симво-
         лов W
              procent_Dv = Round(100 * cDv / i) ' Вычисляй процент сим-
         волов :
              Debug.Print procent_W, procent_Dv
              End Sub

                                   Сумматоры
               Сумматор – это переменная величина, в которой вы подсчи-
         тываете сумму чего-либо. Если вы поняли идею счетчика, то по-
         нять идею сумматора вам будет нетрудно. Посмотрим, как будет
         работать следующий фрагмент программы:
               s=0                     ‘Обнуляем сумматор
         m: a = InputBox(“Введите очередное число”)
               s=s+a                  ‘Увеличиваем сумматор
               Debud.Print “Сумма = ”; s
               Goto m
               В ячейке s накапливается сумма вводимых чисел а, поэтому
         назовем эту ячейку сумматором. Отличие сумматора от счетчика
         в том, что счетчик увеличивается на 1 оператором с=с+1, а сум-
         матор – на суммируемое число оператором s=s+a.
               Задача. В компьютер вводится N чисел. Вычислить и 1 раз
         напечатать их сумму.
               Программа:
            Private Sub Command2_Click()
               N = InputBox(“Сколько чисел будем складывать?”)
               s=0
               For i = 1 To N
               a = InputBox(“Введите очередное число”)
               s=s+a
               Next i
               Debud.Print “Сумма = ”; s
            End Sub
               Пусть N = 2, а равно 5 и 3. Тогда по этой программе VB на-
         печатает 8. Что он напечатает, если:

         70

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