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

                Упражнение 5. Использование переменных
                                       при рисовании
               Задача 1. Нарисовать горизонтальный ряд окружностей ра-
         диусом 100 на расстоянии 1000 от верхнего края экрана и с таки-
         ми горизонтальными координатами: 500, 800, 1100, 1400, …,
         2900.
               Как видим, VB должен 9 раз выполнить один и тот же метод
         – рисование окружности, причем центры соседних окружностей
         отстоят друг от друга на 300. Можем применить цикл.
         Dim x As Long
         Private Sub Command1_Click()
            x = 500
            Do Until x > 2900
               Circle (x, 1000), 100
               x = x + 300
            Loop
         End Sub
               Попробуйте изменить программу следующим образом:
               1). Попробуйте уменьшить расстояние между центрами ок-
         ружностей, не изменяя их радиуса, нарисовав их плотнее, чтобы
         они пересекались, еще плотнее, пока они не образуют “трубу”.
               2). Удлините трубу налево и направо до краев формы.
               3). Увеличьте толщину трубы.

              Задача 2. Расположим окружности не по горизонтали, а по
         диагонали формы в направлении от верхнего левого угла к пра-
         вому нижнему. Для этого организуем еще одну переменную –
         вертикальную координату у – и заставим ее тоже изменяться од-
         новременно с х.
         Private Sub Command2_Click()
              x = 500
              y = 200
              Do Until x > 2900
              Circle (x, y), 100
              x = x + 300
              y = y + 200
              Loop
         End Sub
              Если мы захотим менять радиус, то организуем переменную
         R.

                                                                             85

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