exel lb1

Dim Name As String
Dim C1 As Integer
Dim C2 As Integer
Dim C3 As Integer
Dim C4 As Integer
Dim Max As Currency
Dim Sum As Currency
Private Sub Button1_Click()
endl = Chr(13) + Chr(10)
s = "Äàíî: "
s = s + "Èìåþòñÿ ñâåäåíèÿ î áàíêàõ: íàçâàíèå, äåíåæûå ïîñòóïëåíèÿ çà êàæäûé êâàðòàë ïðîøåäøåãî ãîäà" + endl
s = s + "Îïðåäåëèòü:" + endl
s = s + "à) äëÿ êàæäîãî áàíêà îáùóþ ñóììó, ïîñòóïèâøèõ äåíåã, è êâàðòàë ñ ìàêñèìàëüíûìè ïîñòóïëåíèÿìè;" + endl
s = s + "á) äëÿ êàæäîãî êâàðòàëà ñðåäíåå ïîñòóïëåíèå äåíåã è áàíê ñ ìàêñèìàëüíûìè ïîñòóïëåíèÿìè." + endl
TBox.Text = s
Button3.Enabled = True
Button3.Visible = True
End Sub
Private Sub Button2_Click()
End
End Sub
Private Sub Button3_Click()
endl = Chr(13) + Chr(10)
Name = InputBox("Ââåäèòå íàçâàíèå áàíêà")
C1 = Val(InputBox("Ââåäèòå ïîñòóïëåíèå çà ïåðâûé êâàðòàë"))
C2 = Val(InputBox("Ââåäèòå ïîñòóïëåíèå çà âòîðîé êâàðòàë"))
C3 = Val(InputBox("Ââåäèòå ïîñòóïëåíèå çà òðåòèé êâàðòàë"))
C4 = Val(InputBox("Ââåäèòå ïîñòóïëåíèå çà ÷åòâ¸ðòûé êâàðòàë"))
Sum = (C1 + C2 + C3 + C4)
Max = C1
If C2 > Max Then Max = C2
If C3 > Max Then Max = C3
If C4 > Max Then Max = C4
result = Name + endl
result = result + "Ïåðâûé êâàðòàë: " + CStr(C1) + endl
result = result + "Âòîðîé êâàðòàë: " + CStr(C2) + endl
result = result + "Òðåòèé êâàðòàë: " + CStr(C3) + endl
result = result + "×åòâ¸ðòûé êâàðòàë: " + CStr(C4) + endl
result = result + "Ñóììà: " + CStr(Sum) + endl
result = result + "Ìàêñèìóì: " + CStr(Max) + endl
Text = MsgBox(result, , "Çàãîëîâîê")
OutputBox.Text = result
LabelOutput.Caption = result
End Sub