График в VBA

[Maray]

Добрый день!

Помогите, пожалуйста, нарисовать график y(x)=sin(x)/(1+x^2) в VBA

[Maray]

Сообщение от Maray

Добрый день!

Помогите, пожалуйста, нарисовать график y(x)=sin(x)/(1+x^2) в VBA

Добрый день!
Подскажите, пожалуйста. Пишу в VBA в Excel программу, в которой вводится начальное значение X, затем конечное значение X и потом шаг. Рядом выводится список всех значений X и значений Y при каждом из этих X. А затем выводится график.
PictureBox нет, есть только Image.
С ListBox разобрался, а вот теперь как нарисовать график не знаю. Помогите, пожалуйста

Option Explicit
Dim X As Double, Y As Double, i As Double, P As Image
Dim xn As Double, xk As Double, stp As Double

 
Private Sub CommandButton1_Click()
    xn = CDbl(TextBox1.Text)
    xk = CDbl(TextBox2.Text)
    stp = CDbl(TextBox3.Text)
    ListBox1.Clear
    Call Sp(xn, xk)
     
End Sub
 
Private Sub Sp(sn, sk)
    For X = sn To sk Step stp
            Y = Sin(X / (1 + X ^ 2))
            ListBox1.AddItem "x = " & Round(X, Len(stp)) & Space(10) & vbTab & "y = " & Round(Y, 5)
    Next X
End Sub