Вычислить площадь фигуры - VB
Формулировка задачи:
Доброе вреся суток!
У меня возникла проблема. В универе дали задачу по программированию на VB6, но
т.к. я ''дуб'' в математике, не могу решить её. Если кому не трудно, помогите бедному студенту получить зачет((
Скрин ниже...
Решение задачи: «Вычислить площадь фигуры»
textual
Листинг программы
Private Sub Command1_Click() Dim stp, a, b, x, St, S a = 1: b = 3 stp = (b - a) / 10 List1.Clear x = a Do While x < b St = (x ^ 2 / (1 + x ^ 2)) * stp S = S + St List1.AddItem x & " " & St x = x + stp Loop List1.AddItem "----------------" List1.AddItem " S = " & S & "ед.кв" End Sub