Do

   simvol = InputBox("Введи символ")

   If simvol <> "/" Then i = i + 1 'Если это не /, то "посчитай" его

   Select Case simvol

   Case "W" 'Если это W, то

   cW = cW + 1 'увеличь счетчик символов W

   Case":" 'Если это:, то

   cDv = cDv + 1 'увеличь счетчик символов:

   Case "/" 'Если это /, то

   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

Задание 51: В компьютер вводится N чисел. Подсчитать из них количество положительных, отрицательных и тех, что превышают число 10,

Задание 52: В компьютер вводятся пары целых чисел. Подсчитать, сколько среди них пар, дающих в сумме число 13. Подсчет закончить после ввода пары нулей.

Сумматоры

Сумматор — это переменная величина, в которой вы подсчитываете сумму чего-либо. Если вы поняли идею счетчика, то понять идею сумматора вам будет нетрудно. Посмотрим, как будет работать следующий фрагмент:

s=0 'Обнуляем сумматор. Это не менее важно, чем обнулить счетчик

m: а = InputBox("Введите очередное число")

s=s+a 'Увеличиваем сумматор

Debug.Print "Сумма="; s

GoTo m

В ячейке s накапливается сумма вводимых чисел а, поэтому назовем эту ячейку сумматором. Отличие сумматора от счетчика в том, что счетчик увеличивается на 1 оператором с=с+1, а сумматор — на суммируемое число оператором s=s+a.

Задача: В компьютер вводится N чисел. Вычислить и один раз напечатать их сумму.

Программа:

Private Sub Command2_Click()

   N = InputBox("Сколько чисел будем складывать?")

   s = 0

   For i = 1 То N

   а = InputBox("Введите очередное число")

   s = s + а

   Next i

   Debug.Print "Сумма равна"; s

End Sub

Задание 53: Пусть N=2, a=5 и 3. Тогда по этой программе Visual Basic напечатает 8. Что он напечатает, если:

Вместо s=0 написать s=10.

Вместо s=s+a написать s=s+a+1.

Строки Next и Debug.Print поменять местами.

Строки s=0 и For поменять местами.

Строки For и InputBox поменять местами.

Строки s=s+a и Next поменять местами.

Вместо For i=1 То N написать For i=2 То N.

Задания 54–56: Написать программы для следующих задач:

Во дворце 40 залов. Известны длина и ширина каждого зала.

Вычислить площадь пола всего дворца.

Вычислить средний балл учеников вашего класса по физике.

Вычислить произведение N произвольных чисел. Подсказка: Несмотря на то, что произведение — не сумма, эта программа будет отличаться от программы суммирования всего двумя существенными символами (какими?), а структура обеих программ совершенно одинакова.

Вложение циклов в разветвления и наоборот

Реальная процедура на Visual Basic может представлять собой сложную мозаику из циклических и разветвляющихся частей, вложенных друг в друга. Мы уже видели, как в оператор цикла были вложены операторы ветвления. В свою очередь в них могут быть вложены операторы цикла, и так до бесконечности.

Для тренировки определите, что напечатает следующий фрагмент:

Private Sub Command1_Click()

   For i = 1 To 5

   a = 9

   If i * i = a Then

   For k = 5 To 8

   Debug.Print k;

   Else

   Debug.Print 1997

   End If

   Next i

End Sub

Здесь внутрь For i = 1 To 5 вложен If i * i = a,a внутрь него вложен For к = 5 To 8.

Ответ:

1997

1997

5 6 7 8 1997

1997

Вложенные циклы

Вложенные циклы или цикл внутри цикла — весьма распространенная конструкция при программировании.

Поставим себе задачу — напечатать таблицу умножения. В следующем виде:

Начнем с малого — пусть нужно напечатать

1*1=1

Вот фрагмент программы:

Фрагмент 1

а=1

Ь=1

proizv = а * b

Print а, "*",Ь, "=",proizv

Здесь в операторе Print 5 элементов:

сомножитель а,

символ знака умножения "*",

сомножитель b,

символ "=",

значение произведения proizv

Усложним задачу. Попробуем заставить компьютер напечатать первую строку таблицы:

Замечаем, что здесь нам нужно решить 9 элементарных задач на вычисление произведения, первую из которых решает фрагмент 1. Все они очень похожи и различаются лишь значением второго сомножителя. Таким образом, для решения каждой из 9 задач подошел бы наш фрагмент 1, если бы в нем в операторе Ь=1 вместо единицы стояла нужная цифра. В данном случае идеально подходит оператор For:

Фрагмент 2

а = 1

For b = 1 То 10

proizv = а * Ь

Print а; "*"; Ь; proizv;

Next b

Прокрутите программу в пошаговом режиме.

Следующая ступень усложнения — последняя — напечатать не одну строку таблицы, а девять. Для этого фрагмент 2 должен быть выполнен 9 раз, каждый раз — с новым значением а. Чтобы этого достичь, "обнимем" фрагмент 2 оператором For точно так же, как мы обнимали фрагмент 1.

Фрагмент 3

For а = 1 То 10

For b = 1 То 10

proizv = а * Ь

Print а; "*"; Ь; "="; proizv;

Next b

Next a

Прокрутите программу в пошаговом режиме, для удобства заменив 9 на 4.

Печатается все, что надо, но в одну строчку. Добавим в нужное место пустой Print, чтобы после окончания очередной строки печать начиналась с новой:

Фрагмент 4

For а = 1 То 10

For b = 1 То 10

proizv = а * Ь

Print а; "*"; Ь; "="; proizv;

Next b

Print

Next a

Прокрутите программу в пошаговом режиме. Прочувствуйте то, что пустой Print мы поместили именно в нужное место, строчкой выше или ниже он все бы испортил.

Печатает фрагмент 4 плохо. Акуратных столбцов не получается. Мы не будем добиваться идеальной картинки. Просто поменяем точку