Послідовність виконання роботи така ж сама як і попередньої. Спочатку створюємо форму для одержання даних від користувача та виводу результатів обчислення за алгоритмом. Вхідними даними є константи a та b, діапазон [Xн;Xк] для змінної x, та крок цієї змінної h. Потім записуємо мовою Basic всі підпрограми для обчислення за наданим алгоритмом. Для організації повторних обчислень необхідно використовувати цикл For Next. Результат обчислення необхідно записати в елемент управління список (ListBox). Далі зв'язуємо дії з елементами форми (кнопками) з підпрограмами, так щоб натискання на кнопці призвело до запуску відповідної процедури. На кінець перевіряємо роботу програми на різноманітних наборах даних.
Приклад процедури обчислення функції
на інтервалі [-3,1416;3,1416] з кроком 0,314 наведено далі.
Private Sub CommandButton1_Click()
Dim x As Single
Const a As Single = 0.4
Const Pi As Single = 3.1416
Dim y As Single
For x = -3.1416 To 3.1416 Step 0.314
y = a * Cos(Pi * x) * Sin(Pi * x) * Cos(3 * Pi * x)
yListBox.AddItem str$(y)
End Sub
В наведеній процедурі результати обчислення записуються до списку yListBox.
