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

              В результате в окне Immediate должна появиться таблица
         значений t, s, h.
              Каждому программисту известны такие слова, как счетчик,
         сумматор, вложенные циклы, и другие подобные понятия, опи-
         сывающие элементарную технику программирования. Без них не
         обходится ни одна реальная программа, и если мы хотим идти
         дальше, то нам без них не обойтись. Рассмотри, как программи-
         ровать типичные задачи, в том числе и те, что используют упо-
         мянутые понятия.

                   Вычислительная циклическая программа
              Задача. Во дворце 40 залов. Известны длина, ширина и вы-
         сота каждого зала. Вычислить площадь пола и объем каждого за-
         ла.
              Сначала напишем фрагмент для одного зала:
              X = InputBox (“Введите длину”)
              Y = InputBox (“Введите ширину”)
              Z = InputBox (“Введите высоту”)
              S=X*Y                               ‘ Площадь пола
              V=S*Z                               ‘ Объем
         Debug.Print “Площадь пола =”; S, “Объем зала =”; V
              Для решения задачи этот фрагмент нужно выполнить 40 раз,
         для чего вполне естественно использовать оператор For…Next:
         Private Sub Command1_Click()
          For i = 1 To 40
              X = InputBox (“Введите длину”)
              Y = InputBox (“Введите ширину”)
              Z = InputBox (“Введите высоту”)
              S=X*Y                               ‘ Площадь пола
              V=S*Z                               ‘ Объем
         Debug.Print “Площадь пола =”; S, “Объем зала =”; V
         Next i
         End Sub
              Чтобы программа подходила для любого числа залов, нужно
         вместо
              For i = 1 To 40
         написать
              N = InputBox(“Сколько залов во дворце?”)
              For i = 1 To N


         66

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