End Sub. Підприємство в першому півріччі робило N видів продукції з виторгом (виручкою) від реалізації VNi, а в другому півріччі – M видів

Next I

Next i

End Sub

Приклад 2.

Підприємство в першому півріччі робило N видів продукції з виторгом (виручкою) від реалізації VNi, а в другому півріччі – M видів з VMi.

1.

Визначити прибуток від реалізації продукції підприємства за перше півріччя:

2.

Визначити прибуток від реалізації продукції підприємства за друге півріччя:

3. Визначити виторг від реалізації продукції підприємства за рік:

Зберегти форму і проект на робочому столі з ім'ям – «Виторг»

Програмний код

Private Sub cmdClear_Click()

n.Text = ""

m.Text = ""

v1.Text = ""

v2.Text = ""

vr.Text = ""

Private Sub cmdRachet_Click()

Dim і As Integer, p As Single, d As Single

For і = 1 To n

p = InputBox("Введіть Ni")

v1.Text = Val(v1.Text) + p

For i = 1 To m

d = InputBox("Введіть Mi")

v2.Text = Val(v2.Text) + d

vr = Val(v1.Text) + Val(v2.Text)

Private Sub cmdExit_Click()

Дата добавления: 2015-01-03