Остальные рефераты / Лабораторная работа: Знайомство з середовищем розроблення проектів Visual Basic

Лабораторная работа: Знайомство з середовищем розроблення проектів Visual Basic

У процедурі, що обробляє подію Клацання на кнопці «Обчислиш використовуються наступні оператори:

Option Explicit

Private Sub cmdОбчислити_Click()

Dim curHi As Currency

Dim curKi As Currency

Dim i As Integer

Dim curQ As Currency

curQ = 0

i = 0

For i = 1 To CInt(txtn)

curHi = CCur(InputBox("Введіть норматив, " & CStr(i) & "-я продукція"))

curKi = CCur(InputBox("Введіть виробництво продукції, " & CStr(i) & "-я продукція"))

curQ = curQ + curHi * curKi

Next i

lblQ = Format(curQ, "0.00 грн.")

End Sub

Виконання програми й аналіз отриманих результатів

Підприємство випускає N найменувань продукції. Визначити обсяг нормативно чистої продукції. У табл. 1 наведено перелік товарів, що підприємство випускає.

Таблиця 1

Найменування	Кількість
Ручка	1000
Олівець	2000
Зошит	5000
Гумка	2000
Лінійка	3000
Обсяг	43000

Для визначення загального обсягу цих товарів було використано розроблений додаток. На рис. 3 наведено загальний обсяг товарів, що підприємство випускає.