Разработать процедуру для построения графика функции у(х) - VB

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

Разработать процедуру для построения графика функции у(х) на отрезке значений аргумента[xmin-50, xmax +50], учитывая, что область значений функции на этом отрезке: умін < у(х) < умах. у(х)=16х (х + 1) (х + 2) (х + 3)

Решение задачи: «Разработать процедуру для построения графика функции у(х)»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
 
        Draw 200, -50, 50
 
End Sub
 
Sub Draw(n As Integer, xmin As Double, xmax As Double)
 
Dim x() As Double
Dim Y() As Double
 
    ReDim x(1 To n) As Double
    ReDim Y(1 To n) As Double
    
    dx# = (xmax - xmin) / n
    
    xx# = xmin
    
    For i% = 1 To n
        x(i%) = xx#
        Y(i%) = func(xx#)
        xx# = xx# + dx#
    Next i%
 
    ymax# = Y(1)
    ymin# = Y(1)
 
    For i% = 1 To n
        If Y(i%) > ymax# Then ymax# = Y(i%)
        If Y(i%) < ymin# Then ymin# = Y(i%)
    Next i%
    
    Me.Picture1.Scale (xmin, ymin#)-(xmax, ymax#)
 
    Me.Picture1.PSet (x(1), Y(1)), QBColor(12)
 
    For i% = 1 To n
        Me.Picture1.Line -(x(i%), Y(i%)), QBColor(12)
    Next i%
 
    Me.Picture1.Line (xmin, 0)-(xmax, 0), QBColor(0)
    Me.Picture1.Line (0, ymin#)-(0, ymax#), QBColor(0)
 
End Sub
 
Function func(x As Double) As Double
         func = 16 * x * (x + 1) * (x + 2) * (x + 3)
End Function