Option Base 1

Const m = 3

Const n = 4

Dim b(n) As Currency

Dim a(m, n) As Single

Dim c(m) As Currency

Dim Q As Single

Private Sub CommandButton1_Click()

a(1, 1) = Val(TextBox1): a(1, 2) = Val(TextBox2.Text)

a(1, 3) = Val(TextBox3.Text): a(1, 4) = Val(TextBox4.Text)

a(2, 1) = Val(TextBox5.Text): a(2, 2) = Val(TextBox6.Text)

a(2, 3) = Val(TextBox7.Text): a(2, 4) = Val(TextBox8.Text)

a(3, 1) = Val(TextBox9.Text): a(3, 2) = Val(TextBox10.Text)

a(3, 3) = Val(TextBox11.Text): a(3, 4) = Val(TextBox12.Text)

Q = 0

i = Val(InputBox(" Виберіть номер складу зі списку: 1, 2, 3", " Вибір номера складу"))

If i > 3 Then

MsgBox (" номер складу не повинен бути більше ніж 3"): i = 3

End If

For j = 1 To 4: Q = a(i, j) + Q: Next j

MsgBox " На " & i & " складі зберігається " & Q & " одиниць продукції", 0, " Розрахунок сумарної кількості продукції всіх видів на " & i & " складі"

End Sub

Private Sub CommandButton2_Click()

a(1, 1) = Val(TextBox1): a(1, 2) = Val(TextBox2.Text)

a(1, 3) = Val(TextBox3.Text): a(1, 4) = Val(TextBox4.Text)

a(2, 1) = Val(TextBox5.Text): a(2, 2) = Val(TextBox6.Text)

a(2, 3) = Val(TextBox7.Text): a(2, 4) = Val(TextBox8.Text)

a(3, 1) = Val(TextBox9.Text): a(3, 2) = Val(TextBox10.Text)

a(3, 3) = Val(TextBox11.Text): a(3, 4) = Val(TextBox12.Text)

Q = 0

j = Val(InputBox(" Виберіть вид продукції зі списку: 1, 2, 3, 4 ", " Вибір виду продукції"))

For i = 1 To 3: Q = a(i, j) + Q: Next i

MsgBox " Сумарна кількість продукції " & j & " виду на всіх складах становить " & Q & " одиниць продукції", 0, " Підрахунок сумарної кількості продукції " & j & " виду"

End Sub

Private Sub CommandButton3_Click()

a(1, 1) = Val(TextBox1): a(1, 2) = Val(TextBox2.Text)

a(1, 3) = Val(TextBox3.Text): a(1, 4) = Val(TextBox4.Text)

a(2, 1) = Val(TextBox5.Text): a(2, 2) = Val(TextBox6.Text)

a(2, 3) = Val(TextBox7.Text): a(2, 4) = Val(TextBox8.Text)

a(3, 1) = Val(TextBox9.Text): a(3, 2) = Val(TextBox10.Text)

a(3, 3) = Val(TextBox11.Text): a(3, 4) = Val(TextBox12.Text)

Maxi = 1: Maxj = 1: Max = a(1, 1)

For i = 1 To 3

For j = 1 To 4

If a(i, j) > Max Then

Max = a(i, j)

Maxi = i

Maxj = j

End If

Next j, i

MsgBox " Максимальна кількість продукції " & Maxj & " виду" & " на " & Maxi & " складу становить " & Max & " одиниць", 0, " Максимальна кількість продукції"

End Sub

Private Sub CommandButton4_Click()

a(1, 1) = Val(TextBox1): a(1, 2) = Val(TextBox2.Text)

a(1, 3) = Val(TextBox3.Text): a(1, 4) = Val(TextBox4.Text)

a(2, 1) = Val(TextBox5.Text): a(2, 2) = Val(TextBox6.Text)

a(2, 3) = Val(TextBox7.Text): a(2, 4) = Val(TextBox8.Text)

a(3, 1) = Val(TextBox9.Text): a(3, 2) = Val(TextBox10.Text)

a(3, 3) = Val(TextBox11.Text): a(3, 4) = Val(TextBox12.Text)

b(1) = Val(TextBox20): b(2) = Val(TextBox21): b(3) = Val(TextBox22): b(4) = Val(TextBox23)

For i = 1 To m

c(i) = 0

For k = 1 To n

c(i) = c(i) + a(i, k) * b(k)

Next k

Next i

MsgBox " Вартість продукції на 1-му складі = " & Str(c(1)) & " грн." & " Вартість продукції на 2-му складі = " & Str(c(2)) & " грн. " & " Вартість продукції на 3-му складі = " & Str(c(3)) & " грн.", 0, " Вартість продукції"

End Sub