:
1) Розмістити на формі графічне поле picGraph, в якому буде проводитись побудова графіка.
2) Розмістити на формі кнопку cmd1 і створити подієву процедуру побудови графіка, в якій буде:
встановлений масштаб;
в циклі здійснено побудову графіка функції;
намальовані осі координат і в циклах надруковані на них числові шкали;
в циклі виведені вертикальні лінії координатної сітки.
3) Помістити на форму кнопку cmd2 і створити для неї подієву процедуру побудови графіка функції у = х 3 :
Private Sub cmd2_Click ()
For sngX = -10 To 10 Step 0.01. PSet (sngX, sngX ^ 3), vbRed
Next sngX
End Sub
4) Для більш точного рішення рівняння додати в існуючу процедуру побудови графіка першої функції у = < span align = "justify"> sinx координатну сітку:
Координатна сітка For bytl = -10 То 10
picGraph. Line (bytI, 2) - (bytI, -2), vbCyan
Next bytI
For bytl = -2 To 2 Step 0.2 picGraph. Line < span align = "justify"> (-10, bytI) - (10, bytI)
Next bytI
5) Запустити проект і клацнути по кнопках Графік 1 і Графік 2.
На закріплення знань: Розробити мовою Visual Basic комп'ютерну модель, що дозволяє довести методом Мо...