Алгоритмы регулярных циклических структрур - VB

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

С помощью алгоритмов регулярных циклических структур построить таблицу и вычислить сумму значений функции y=f(x) при y<0 и при изменении x на отрезке [a,b] с шагом h.С использованием стандартного элемента ListBox. y=0.5-0.1-sinx Отрезок [0;2пи],шаг h=пи/8

Решение задачи: «Алгоритмы регулярных циклических структрур»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
Dim a, b, h As Double
Dim sum As Double, y As Double
a = 0
b = 2 * 3.1415926
h = 3.1415926 / 8
For i = a To b Step h
y = 0.5 - 0.1 - Sin(i)
If y < 0 Then sum = sum + y
List1.AddItem (i & Space(10) & y)
Next i
MsgBox ("Sum=" & sum)
End Sub
                        