Информатика. Индришенок В.И - 15 стр.

                               -15-

У к а з а н и я : При выполнении этого упражнения для вывода значе-
ний аргумента, суммы ряда и функции удобно применить элемент
управления, называемый ListBox (Список). Для вывода следует объ-
единить эти значения в несколько одну строку. Для добавления
строк в список применяется метод AddItem. Примеры программного
кода и интерфейса (см. рис. 2) варианта 4 приведены ниже:
Листинг программы:
Private Sub StartCommand_Click()
Dim a As Double, b As Double, _
h As Double, st As Double, _
epsilon As Double, member As Double, y As Double,
Dim mi as Long, fc as Long
Dim i As Integer, j As Integer
Dim tmps As String
a = Val(LeftSideText.Text)
b = Val(RightSideText.Text)
h = Val(StepText.Text)
epsilon = Val(PrecisionText.Text)
st = a
Do While st <= b
   i = 0
   mi = 1
   s = 0
     Do
        member = mi * (st ^ (2 * i))
        fc = 1
           For j = 1 To 2 * i
           Fc = fc * j
           Next j
        i = i + 1
        member = member / fc
        s = s + member
        mi = mi * (-1)
     Loop Until Abs(member) < epsilon
         y = Cos(st)
   tmps = Str(st)
   tmps = tmps + "            " + Str(s)
   tmps = tmps + "            " + Str(y)
   OutputList.AddItem (tmps)
   st = st + h
Loop
End Sub