WFS

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 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()
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
If gold2 > Max Then Max = gold2
If gold3 > Max Then Max = gold3
If gold4 > Max Then Max = gold4
If gold5 > Max Then Max = gold5
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
TB2.Text = result
Lb1.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