Порядок действий. 6. Расположите на форме две командные кнопки, пять текстовых полей и метки к ним в соответствии с рис

6. Расположите на форме две командные кнопки, пять текстовых полей и метки к ним в соответствии с рис. 8.4.

Рис. 8.4

7. Установите значения свойств объектов в соответствии со следующей таблицей (табл. 10.3):

Таблица 8.3

Объект	Свойство	Значение свойства
Текстовые окна	Name	Textogr, Textk, Textr, Texta
Текстовое окно	Name MultiLine	Texty True
Метки	Caption	в соответствии с рис. 8.1.
Командная кнопка	Name Caption	Command1 Розрахунок
Командная кнопка	Name Caption	Command2 Вихід

8. Разберите программный код, а затем наберите его:

Dim r, k, y, ogr, vr

Dim i As Integer

Private Sub Command1_Click()

ogr = Val(Textogr.Text)

k = Val(Textk.Text)

a = Val(Texta.Text)

r = Val(Textr.Text)

TextY.Text = ""

y = r + (3 * k) / (6 * a ^ 2)

TextY.Text = Str(r) + "+" + Str((3 * k) / (6 * a ^ 2)) + "+"

i = 2

Do

vr = ((-1) ^ (i + 1)) * (k / (a ^ (2 * i)))

If Abs(vr) <= ogr Then Exit Do

y = y + vr

TextY.Text = TextY.Text + ")+(" + Str(vr)

i = i + 1

Loop

Print “y=”; y

End Sub

Private Sub Command2_Click()

End