Задача 4.

Вычислить произведение положительных значений функции и значение по формуле:

Блок – схема.

Добавить необходимые элементы управления (см. рисунок).

CommandButton1

TextBox2

Label3

Label2

Label1

TextBox1

ListtBox1

Событийная процедура кнопки Вычислить.

Private Sub CommandButton1_Click()

Dim x, y, r,p As Single

ListBox1.Clear

s1 = 0: s2 = 0: p = 1

For x=2 To 6 Step 0.5

If x > 3 Then

y = Log(x)/Log(2)

Else

y = - 3 * Sin(x)

End If

ListBox1.AddItem (Format(y,”0.0000”))

‘ Вычисление произведения положительных значений функции y

If y > 0 Then p = p * y

‘ Вычисление сумм

s1 = s1 + x^2

s2 = s2 + x * y

Next x

r = s1 / s2

TextBox1.Text = Format(p,”0.00”)

TextBox2.Text = Format(r,”0.00”)

End Sub

Дата добавления: 2015-09-05