2020-04-12
158
ActiveSheet.Lines.Delete
ActiveSheet.Rectangles.Delete
ActiveSheet.Lines.Add 20, 20, 220, 20
ActiveSheet.Lines.Add 20, 40, 20, 140
ActiveSheet.Lines.Add 20, 180, 200, 110
ActiveSheet.Rectangles.Add 140, 100, 401, 50
ActiveSheet.Rectangles.Add 160, 50, 240, 100
End Sub
Пример 2
Программа «Circle» демонстрирует использование графического объекта Oval.
Интерфейс c пользователем реализован в виде форм Form1
Рисунок 8.5. - Интерфейс программы «Circle»
Результат
Рисунок 8.6. - Результат программы «Circle»
Программа
VBA
Private Sub CommandButton1_Click()
ActiveSheet.Ovals.Delete
ActiveSheet.Ovals.Add 50, 25, 50, 50
ActiveSheet.Ovals.Add 50, 25, 50, 50
ActiveSheet.Ovals.Add 100, 50, 50, 100
ActiveSheet.Ovals.Add 30, 150, 180, 50
End Sub
Варианты заданий
1.Составить программу построения осей координат x и y и фигуры в соответствии с номером вашего варианта. Координаты вершин фигуры выбрать самостоятельно.
2. Набрать программу.
        1
| 4 |
| ||||||
        2
| 5 |
| ||||||
    3
| 6 |
| ||||||
      7
| 12 |
| ||||||
        8
| 13 |
| ||||||
     9
| 14 |
| ||||||
    10
|
| 15 |
| |||||
  11
|
| 16 |
| |||||
Практическая работа № 10
Тема: График функций
Пример
Программа «График» с помощью цикла со счетчиком и метода Ovals.Add строит график функции y=ax2 + bx + c (a=1, b=-2, c=-3). Кроме самого графика с помощью метода Lines.Add изображаются оси координат.
Интерфейс программы реализуется на активном листе в виде формы размером 300х300:
Рисунок 10.1. - Интерфейс программы «График»
Программа
VBA
Private Sub CommandButton1_Click1()
ActiveSheet.Ovals.Delete
ActiveSheet.Lines.Delete
For X= -2 To 4 step 0.1
Y=X^2 –2*X-3
ActiveSheet.Ovals.Add 112+40*X, 150-30*Y, 5, 5
Next X
ActiveSheet.Lines.Add 0, 150, 300, 150
ActiveSheet.Lines.Add 112, 0, 112, 300
End Sub
Вычисление сдвигов и масштабов
Sy=150 My=30
Sx= 
Mx= 
Варианты заданий
1. Составить программу построения графика функции у=f(x) на отрезке [a, b] при изменении x с шагом dx (согласно номеру Вашего варианта). Масштабы графика по осям координат выбрать самостоятельно.
2. Выполнить построение графика.
| № вар. | Y=f(x) | a | b | dx |
| 1 | 2 | 3 | 4 | 5 |
| 1 | 
| 0 | 2 | 0,05 |
| 2 | 
| -3 | 1,5 | 0,1 |
| 3 | 
| -1,5 | 1,5 | 0,05 |
| 4 | 
| -2 | 2 | 0,1 |
| 5 | 
| -3,5 | 3,5 | 0,1 |
| 6 | 
| -1,5 | 1,5 | 0,05 |
| 7 | 
| -4 | 1 | 0,1 |
| 8 | 
| -3 | 3 | 0,1 |
| 9 | 
| -1,9 | 1,9 | 0,1 |
| 10 | 
| -1 | 6 | 0,1 |
| 11 | 
| -3 | 3 | 0,1 |
| 12 | 
| -1,8 | 1,8 | 0,05 |
| 13 | 
| -2 | 2 | 0,1 |
| 14 | 
| -1,5 | 0,5 | 0,04 |
| 15 | 
| -3 | 6 | 0,1 |
