Построить график функции - VB (169984)

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

Помогите построить график функции у = 2x^3 + 2x^2 + x на отрезке, координаты концов которого вводятся с клавиатуры. Построить оси координат и разместить на них деления, рядом с которыми расположить числа в соответствии с заданным масштабом.

Решение задачи: «Построить график функции»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Dim A!, B!, C!, D!
Dim x!, y!, sh!, max!, min!
 
Private Sub cmd1_Click()
    pic.Cls
    A = Val(txtA.Text)
    B = Val(txtB.Text)
    sh = (B - A) / 500
    max = f(A)
    min = max
    
    For x = A To B Step sh
        If max < f(x + sh) Then max = f(x + sh)
        If min > f(x + sh) Then min = f(x + sh)
    Next
    
    C = max
    D = min
    pic.Scale (A, C)-(B, D)
    
    pic.DrawWidth = 2
    pic.Line (0, C)-(0, D)
    pic.Line (A, 0)-(B, 0)
    
    pic.DrawWidth = 4
    
    For x = A To B Step (B - A) / 10
        pic.PSet (x, 0), vbGreen
        pic.Print Format(x, "0.0")
    Next
    
    For y = C To D Step (D - C) / 10
        pic.PSet (0, y), vbGreen
        pic.Print Format(y, "0.0")
    Next
    
    For x = A To B Step sh / 2
        y = f(x)
        pic.PSet (x, y), vbRed
    Next
End Sub
 
Private Function f(x!) As Single
    f = 2 * x ^ 3 + 2 * x ^ 2 + x
End Function