Dim CountryName As String
Dim gold1 As Integer
Dim gold2 As Integer
Dim gold3 As Integer
Dim gold4 As Integer
Dim gold5 As Integer
Dim AverageGold As Currency
Dim Max As Integer
Dim maxy As Integer
Dim s As String
Private Sub Btn1_Click()
endl = Chr(13) + Chr(10)
s = "Äàíî:" + endl
s = s + "Èìåþòñÿ ñâåäåíèÿ ïî ñòðàíàì: íàçâàíèå ñòðàíû è äàííûå î äîáû÷å çîëîòà çà êàæäûé ãîä èç ïîñëåäíèõ 5 ëåò." + endl
s = s + "Îïðåäåëèòü:" + endl
s = s + "à) äëÿ êàæäîé ñòðàíû ìàêñèìàëüíóþ äîáû÷ó è ñðåäíþþ àðèôìåòè÷åñêóþ äîáû÷ó çà ãîä." + endl
s = s + "á) âûâåñòè ñïèñîê ñòðàí ñ íåïðåðûâíûì óâåëè÷åíèåì äîáû÷è çîëîòà â òå÷åíèè 5-òè ëåò." + endl
TB1.Text = s
Btn3.Enabled = True
End Sub

Private Sub Btn2_Click()
End
End Sub

Private Sub Btn3_Click()
Btn3.Caption = "Ââîä íîâûõ äàííûõ"
endl = Chr(13) + Chr(10)
InputBox ("ËÐ1")
CountryName = InputBox("Ââåäèòå íàçâàíèå ñòðàíû")
gold1 = Val(InputBox("Ââåäèòå äîáû÷ó çîëîòà â 1 ãîä"))
gold2 = Val(InputBox("Ââåäèòå äîáû÷ó çîëîòà â 2 ãîä"))
gold3 = Val(InputBox("Ââåäèòå äîáû÷ó çîëîòà â 3 ãîä"))
gold4 = Val(InputBox("Ââåäèòå äîáû÷ó çîëîòà â 4 ãîä"))
gold5 = Val(InputBox("Ââåäèòå äîáû÷ó çîëîòà â 5 ãîä"))
AverageGold = (gold1 + gold2 + gold3 + gold4 + gold5) / 5
Max = gold1
maxy = 1
If gold2 > Max Then Max = gold2: maxy = 2
If gold3 > Max Then Max = gold3: maxy = 3
If gold4 > Max Then Max = gold4: maxy = 4
If gold5 > Max Then Max = gold5: maxy = 5
result = "Íàçâàíèå ñòðàíû: " + CountryName + endl
result = result + "Çîëîòî â ãîä1: " + Str(gold1) + endl
result = result + "Çîëîòî â ãîä2: " + Str(gold2) + endl
result = result + "Çîëîòî â ãîä3: " + Str(gold3) + endl
result = result + "Çîëîòî â ãîä4: " + Str(gold4) + endl
result = result + "Çîëîòî â ãîä5: " + Str(gold5) + endl
result = result + "Ñðåäíåå: " + Str(AverageGold) + endl
result = result + "Ìàêñèìóì: " + Str(Max) + endl
result = result + "Ãîä ñ ìàêñ. äîáû÷åé: " + Str(maxy) + endl
TB2.Text = result
Lb2.Caption = result
MsgBox result, , "ËÐ1"

End Sub

Private Sub CommandButton1_Click()

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