243

Dim size As Integer
Dim cpy As String
Dim color As Integer



Private Sub Button1_Click()
endl = Chr(13) + Chr(10)
s = "Äàíî:" + endl
s = s + "Èìåþòñÿ ñâåäåíèÿ ïî ñòðàíàì: íàçâàíèå ñòðàíû è äàííûå î äîáû÷å çîëîòà çà êàæäûé ãîä èç ïîñëåäíèõ 5 ëåò." + endl
s = s + "Îïðåäåëèòü:" + endl
s = s + "à) äëÿ êàæäîé ñòðàíû ãîä ñ ìàêñèìàëüíîé äîáû÷åé è ñðåäíþþ àðèôìåòè÷åñêóþ äîáû÷ó çà ãîä." + endl
s = s + "á) âûâåñòè ñïèñîê ñòðàí ñ íïðåðûâíûì óâåëè÷åíèåì äîáû÷è çîëîòà â òå÷åíèè 5-òè ëåò." + endl

If size < 8 Then
TBox1.Text = s
Else
    cpy = TBox1.Text
    TBox1.Text = Label1.Caption
    Label1.Caption = cpy
End If


size = size + 1
color = color + 1
If color > 15 Then color = 1
If size > 16 Or size < 8 Then size = 8


TBox1.Font.size = size

If size Mod 2 Then
    TBox1.Font.Weight = 600
Else
    TBox1.Font.Weight = 400
End If

TBox1.BackColor = QBColor(color)
End Sub



Private Sub Button2_Click()
End
End Sub

Private Sub Label1_Click()

End Sub

Private Sub TBox1_Change()

End Sub