Отчет

1. Форманы жасаймыз:

2. Формадағы Есептеу түгмесін 2 рет басып мына программаны жазамыз:

Private Sub Command1_Click()

a = Val(Text1)

b = Val(Text2)

c = Val(Text3)

d = Val(Text4)

x = 100 / (a + b + c + d) * (a + b + c)

y = 100 / (a + b + c + d) * (a + b)

z = (5 * a + 4 * b + 3 * c + 2 * d) / (a + b + c + d)

Text5 = Mid(x, 1, 5)

Text6 = Mid(y, 1, 5)

Text7 = Mid(z, 1, 4)

End Sub

3. Формадағы Тазалау түгмесін 2 рет басып мына программаны жазамыз:

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

Text7 = ""

End Sub

4. Формадағы Шыгу түгмесін 2 рет басып мына программаны жазамыз:

Private Sub Command3_Click()

End

End Sub