Построение графика - VB (63103)

Формулировка задачи:

Уважаемы форумчане, помогите пожалуйста с программой. Бысик мне даться с трудом и быть может я бы и сам сделал, но время поджимает, боюсь, не успею. Знающий с эти задание справиться во много раз быстрее, чем я.
Написать программу для построения графика функции -x2 + - 2x + 4y + 30 = 0 для любых начального, предельного значений и шага табуляции, заданных пользователем.
Прикрепляю пример выполнения и надеюсь на ваше великодушие.. Заранее благодарен

Код к задаче: «Построение графика - VB (63103)»

textual
Private Sub Command1_Click()
     'Масштаб
       Picture1.Scale (-10, 100)-(10, -100)
 
   'Ось ОХ
       Picture1.Line (-10, 0)-(10, 0)
             For i = -10 To 10
             Picture1.PSet (i, 0)
             Picture1.Print i
             Next i
 
    'Ось ОY
         Picture1.Line (0, 100)-(0, -100)
               For i = -100 To 100 Step 5
               Picture1.PSet (0, i)
               Picture1.Print i
                Next i
    'Picture1.Cls
   'Построение графика
     d = Val(InputBox("Мин:"))
     f = Val (InputBox("Макс:"))
     n = Val(InputBox("шаг:"))
     For x = d To f Step n
     Picture1.PSet (x, -1 * x ^ 2 + -2 * x + 4 * y + 30), QBColor(4)
     Next x
End Sub

13   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ