1.Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
Max = Val(Text4.Text)
If (a >= b) And (a >= c) Then Text4.Text = "А-має найбільший прибуток=" + Str(a)
If (b >= a) And (b >= c) Then Text4.Text = "B-має найбільший прибуток=" + Str(b)
If (c >= a) And (c >= b) Then Text4.Text = "C-має найбільший прибуток=" + Str(c)
End Sub