lr1

Option Explicit

Private Type Gold
countryname As String
year1 As Integer
year2 As Integer
year3 As Integer
year4 As Integer
year5 As Integer
max As Integer
maxyear As Integer
average As Integer
End Type

Dim a1 As Gold
Dim a2 As Gold
Dim cout As String
Dim endl As String
Dim n As Integer
Dim sum As Currency
Dim s As String
Private Sub Btn1_Click()
endl = Chr(13) + Chr(10)
s = "Äàíî:" + endl
s = s + "Èìåþòñÿ ñâåäåíèÿ ïî ñòðàíàì: íàçâàíèå ñòðàíû è äàííûå î äîáû÷å çîëîòà çà êàæäûé ãîä èç ïîñëåäíèõ 5 ëåò." + endl
s = s + "Îïðåäåëèòü:" + endl
s = s + "a) äëÿ êàæäîé ñòðàíû ãîä ñ ìàêñèìàëüíîé äîáû÷åé è ñðåäíþþ àðèôìåòè÷åñêóþ äîáû÷ó â ãîä." + endl
s = s + "a) âûâåñòè ñïèñîê ñòðàí ñ íåïðåðûâíûì óâåëè÷åíèåì äîáû÷è çîëîòà â òå÷åíèå 5 ëåò." + endl
TB1.Text = s
Btn3.Enabled = True
End Sub

Private Sub Btn2_Click()
End
End Sub

Private Sub Btn3_Click()
endl = Chr(13) + Chr(10)
a1.countryname = InputBox("Ââåäèòå íàçâàíèå ñòðàíû")
a1.year1 = Val(InputBox("Ââåäèòå çîëîòîäîáû÷ó â 1 ãîä"))
a1.year2 = Val(InputBox("Ââåäèòå çîëîòîäîáû÷ó â 2 ãîä"))
a1.year3 = Val(InputBox("Ââåäèòå çîëîòîäîáû÷ó â 3 ãîä"))
a1.year4 = Val(InputBox("Ââåäèòå çîëîòîäîáû÷ó â 4 ãîä"))
a1.year5 = Val(InputBox("Ââåäèòå çîëîòîäîáû÷ó â 5 ãîä"))
a1.average = (a1.year1 + a1.year2 + a1.year3 + a1.year4 + a1.year5) / 5
a1.max = a1.year1
a1.maxyear = 1
If a1.year2 > a1.max Then a1.max = a1.year2: a1.maxyear = 2
If a1.year3 > a1.max Then a1.max = a1.year3: a1.maxyear = 3
If a1.year4 > a1.max Then a1.max = a1.year4: a1.maxyear = 4
If a1.year5 > a1.max Then a1.max = a1.year5: a1.maxyear = 5

cout = "Íàçâàíèå còðàíû: " + a1.countryname + endl
cout = cout + "Çîëîòîäîáû÷à:" + endl
cout = cout + "Ãîä 1 - " + Str(a1.year1) + endl
cout = cout + "Ãîä 2 - " + Str(a1.year2) + endl
cout = cout + "Ãîä 3 - " + Str(a1.year3) + endl
cout = cout + "Ãîä 4 - " + Str(a1.year4) + endl
cout = cout + "Ãîä 5 - " + Str(a1.year5) + endl
cout = cout + "Ñðåäíÿÿ çîëîòîäîáû÷à - " + Str(a1.average) + endl
cout = cout + "Ìàêñèìàëüíàÿ çîëîòîäîáû÷à - " + Str(a1.max) + endl
cout = cout + "Ãîä ñ ìàêñ. çîëîòîäîáû÷åé - " + Str(a1.maxyear) + endl

If a1.average > a2.average Then a2 = a1
n = n + 1
sum = sum + a1.average
Btn3.Caption = "Ââîä íîâîé çàïèñè"

Btn4.Enabled = True
TB2.Text = cout
End Sub





Private Sub Btn4_Click()
Dim sumall As Currency
sumall = sum / n
cout = "Êîëè÷åñòâî çàïèñåé - " + Str(n) + endl
cout = cout + "Ñðåäíèé ïîêàçàòåëü çîëîòîäîáû÷è - " + Str(sumall) + endl
cout = cout + "Íàçâàíèå ñòðàíû ñ ìàêñèìàëüíîé ñðåäíåé çîëîòîäîáû÷åé - " + a2.countryname + endl
cout = cout + "Çîëîòîäîáû÷à:" + endl
cout = cout + "Ãîä 1 - " + Str(a2.year1) + endl
cout = cout + "Ãîä 2 - " + Str(a2.year2) + endl
cout = cout + "Ãîä 3 - " + Str(a2.year3) + endl
cout = cout + "Ãîä 4 - " + Str(a2.year4) + endl
cout = cout + "Ãîä 5 - " + Str(a2.year5) + endl
cout = cout + "Ãîä ñ ìàêñèìàëüíîé äîáû÷åé - " + Str(a2.maxyear) + endl
TB2.Text = cout
MsgBox (cout)
End Sub

Private Sub Lb1_Click()

End Sub

Private Sub TB1_Change()

End Sub

Private Sub TB2_Change()

End Sub

Private Sub UserForm_Click()

End Sub