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