Dim Name As String
Dim C1 As Integer
Dim C2 As Integer
Dim C3 As Integer
Dim C4 As Integer
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)
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
MsgBox (result)
OutputBox.Text = result
LabelOutput.Caption = result
End Sub