lab1

Option Explicit
Dim Name As String
Private Type Bank
 C1 As Integer
 C2 As Integer
 C3 As Integer
 C4 As Integer
 Max As Currency
 Min As Currency
 Sum As Currency
 Sred As Currency
End Type
Dim a As Bank
Dim b As Bank
Dim N As Integer
Dim sum1 As Currency
Dim endl As String
Dim result As String
Dim s As String
Dim Text As String


Private Sub Uslovie_Click()
endl = Chr(13) + Chr(10)
s = "Äàíî: "
s = s + "Èìåþòñÿ ñâåäåíèÿ î áàíêàõ: íàçâàíèå, äåíåæûå ïîñòóïëåíèÿ çà êàæäûé êâàðòàë ïðîøåäøåãî ãîäà" + endl
s = s + "Îïðåäåëèòü:" + endl
s = s + "à) äëÿ êàæäîãî áàíêà îáùóþ ñóììó, ïîñòóïèâøèõ äåíåã, è êâàðòàë ñ ìàêñèìàëüíûìè ïîñòóïëåíèÿìè;" + endl
s = s + "á) äëÿ êàæäîãî êâàðòàëà ñðåäíåå ïîñòóïëåíèå äåíåã è áàíê ñ ìàêñèìàëüíûìè ïîñòóïëåíèÿìè." + endl
TBox.Text = s
Reshenie.Enabled = True
Reshenie.Visible = True
End Sub
Private Sub Button2_Click()
End
End Sub
Private Sub Reshenie_Click()
Vivod.Enabled = True
Vivod.Visible = True
Reshenie.Caption = "Ââîä íîâûõ äàíûõ"
endl = Chr(13) + Chr(10)
Name = InputBox("Ââåäèòå íàçâàíèå áàíêà")
a.C1 = Val(InputBox("Ââåäèòå ïîñòóïëåíèå çà ïåðâûé êâàðòàë"))
a.C2 = Val(InputBox("Ââåäèòå ïîñòóïëåíèå çà âòîðîé êâàðòàë"))
a.C3 = Val(InputBox("Ââåäèòå ïîñòóïëåíèå çà òðåòèé êâàðòàë"))
a.C4 = Val(InputBox("Ââåäèòå ïîñòóïëåíèå çà ÷åòâ¸ðòûé êâàðòàë"))
a.Sum = (a.C1 + a.C2 + a.C3 + a.C4)
a.Sred = a.Sum / 4
a.Max = a.C1
If a.C2 > a.Max Then a.Max = a.C2
If a.C3 > a.Max Then a.Max = a.C3
If a.C4 > a.Max Then a.Max = a.C4
a.Min = a.C1
If a.C2 < a.Min Then a.Min = a.C2
If a.C3 < a.Min Then a.Min = a.C3
If a.C4 < a.Min Then a.Min = a.C4
result = Name + endl
result = result + "Ïåðâûé êâàðòàë: " + Str(a.C1) + endl
result = result + "Âòîðîé êâàðòàë: " + Str(a.C2) + endl
result = result + "Òðåòèé êâàðòàë: " + Str(a.C3) + endl
result = result + "×åòâ¸ðòûé êâàðòàë: " + Str(a.C4) + endl
result = result + "Ñóììà: " + Str(a.Sum) + endl
result = result + "Ñðåäíåå: " + Str(a.Sred) + endl
result = result + "Ìàêñèìóì: " + Str(a.Max) + endl
result = result + "Ìèíèìóì: " + Str(a.Min) + endl
Text = MsgBox(result, , "Ðåçóëüòàò")
OutputBox.Text = result
LabelOutput.Caption = result
If a.Sred > b.Sred Then b = a
N = N + 1
sum1 = sum1 + a.Sred

End Sub

Private Sub Vivod_Click()
Dim sum2 As Currency
sum2 = sum1 / N
result = Name + endl
result = result + "Âñåãî çàïèñåé: " + Str(N) + endl
result = result + "Ïåðâûé êâàðòàë: " + Str(b.C2) + endl
result = result + "Âòîðîé êâàðòàë: " + Str(b.C2) + endl
result = result + "Òðåòèé êâàðòàë: " + Str(b.C3) + endl
result = result + "×åòâ¸ðòûé êâàðòàë: " + Str(b.C4) + endl
result = result + "Ñóììà: " + Str(b.Sum) + endl
result = result + "Ñðåäíåå: " + Str(b.Sred) + endl
result = result + "Ìàêñèìóì: " + Str(b.Max) + endl
result = result + "Ìèíèìóì: " + Str(b.Min) + endl
LabelOutput.Caption = result
End Sub