Ti do un piccolo aiuto scritto in Visual Basic 6. Non rappresenta esattamente la funzione che chiedi, ma con poco sforzo dovresti essere in grado di risolvere il tuo esercizio. Buon lavoro...
Private Sub Form_Load()
Dim i As Integer
Dim x As Single
Dim y As Single
Picture1.Scale (-10, 10)-(10, -10)
' Draw X axis.
Picture1.Line (-10, 0)-(10, 0)
For i = -9 To 9
Picture1.Line (i, -0.5)-(i, 0.5)
Next i
' Draw Y axis.
Picture1.Line (0, -10)-(0, 10)
For i = -9 To 9
Picture1.Line (-0.5, i)-(0.5, i)
Next i
' Draw y = 4 * sin(x).
Picture1.ForeColor = vbRed
x = -10
y = 4 * Sin(x)
Picture1.CurrentX = x
Picture1.CurrentY = y
For x = -10 To 10 Step 0.25
y = 4 * Sin(x)
Picture1.Line -(x, y)
Next x
' Draw y = x ^ 3 / 5 - 3 * x + 1.
Picture1.ForeColor = vbBlue
x = -10
y = x ^ 3 / 5 - 3 * x + 1
Picture1.CurrentX = x
Picture1.CurrentY = y
For x = -10 To 10 Step 0.25
y = x ^ 3 / 5 - 3 * x + 1
Picture1.Line -(x, y)
Next x
End Sub