Пункт меню Файл/Новый

Текст обработчика событий:

Private Sub New_Click()

Dim i As Integer, n As Integer

Cls

Picture1.Cls

' (a, b, h):

Form2.Show 1

Print a; b; h

n = (b - a) / h

ReDim x(0 To n)

ReDim y(0 To n)

For i = 0 To n

x(i) = a + i * h

y(i) = f(x(i))

Print x(i), y(i)

Next i

Grafic.Enabled = True

End Sub
Здесь вызывается функция f(x). Чтобы в текст программы добавить свою функцию

или процедуру, выбираем пункт меню Tools/Add Procedure... В появившемся окне

указываем имя нашей функции (f) и тип подпрограммы (функция) и нажимаем кнопку

«ОК»:

Затем можно