х3

Option Explicit

Private Type Gold
countryname As String * 15
year(5) 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 btnExit_Click()
End
End Sub

Private Sub btnInput_Click()
TB1.Enabled = True
TB2.Enabled = True
TB3.Enabled = True
TB4.Enabled = True
TB5.Enabled = True
TB6.Enabled = True
TB1.Text = ""
TB2.Text = ""
TB3.Text = ""
TB4.Text = ""
TB5.Text = ""
TB6.Text = ""
btnInput.Enabled = False
btnOK.Enabled = True
Label7.Visible = False

End Sub

Private Sub btnList_Click()
Dim l As Integer
Dim i As Integer

l = Len(a1.countryname)
s = a1.countryname + Space(15 - l)
For i = 1 To 5
l = Len(Str(a1.year(i)))
s = s + Str(a1.year(i)) + Space(4 - l)
Next i
l = Len(Str(a1.average))
s = s + Str(a1.average) + Space(7 - l)
l = Len(Str(a1.max))
s = s + Str(a1.max) + Space(8 - l)
l = Len(Str(a1.maxyear))
s = s + Str(a1.maxyear) + Space(8 - l)
Label7.Visible = False
ListBox1.AddItem s
End Sub

Private Sub btnO_Click()
endl = Chr(13) + Chr(10)
Dim i As Integer
a1.average = 0
For i = 1 To 5
a1.average = a1.average + a1.year(i)
Next i
a1.average = a1.average / 5

a1.max = a1.year(1)
a1.maxyear = 1
If a1.year(2) > a1.max Then a1.max = a1.year(2): a1.maxyear = 2
If a1.year(3) > a1.max Then a1.max = a1.year(3): a1.maxyear = 3
If a1.year(4) > a1.max Then a1.max = a1.year(4): a1.maxyear = 4
If a1.year(5) > a1.max Then a1.max = a1.year(5): a1.maxyear = 5

btnList.Enabled = True
btnO.Enabled = False

cout = "Название cтраны: " + a1.countryname + endl
cout = cout + "Золотодобыча:" + endl
cout = cout + "Год 1 - " + Str(a1.year(1)) + endl
cout = cout + "Год 2 - " + Str(a1.year(2)) + endl
cout = cout + "Год 3 - " + Str(a1.year(3)) + endl
cout = cout + "Год 4 - " + Str(a1.year(4)) + endl
cout = cout + "Год 5 - " + Str(a1.year(5)) + endl
cout = cout + "Средняя золотодобыча - " + Str(a1.average) + endl
cout = cout + "Максимальная золотодобыча - " + Str(a1.max) + endl
cout = cout + "Год с макс. золотодобычей - " + Str(a1.maxyear) + endl

Label7.Caption = cout
Label7.Visible = True
btnInput.Enabled = True
End Sub

Private Sub btnOK_Click()
TB1.Enabled = False
TB2.Enabled = False
TB3.Enabled = False
TB4.Enabled = False
TB5.Enabled = False
TB6.Enabled = False
btnO.Enabled = True
btnOK.Enabled = False
btnList.Enabled = True
btnInput.Caption = "Добавить запись"
End Sub

Private Sub CommandButton1_Click()

End Sub

Private Sub Label7_Click()

End Sub

Private Sub Label8_Click()

End Sub

Private Sub ListBox1_Click()
btnEdit.Enabled = True
btnDelete.Enabled = True
End Sub

Private Sub TB1_Change()
a1.countryname = TB1
End Sub

Private Sub TB2_Change()
a1.year(1) = Val(TB2)
End Sub

Private Sub TB3_Change()
a1.year(2) = Val(TB3)
End Sub

Private Sub TB4_Change()
a1.year(3) = Val(TB4)
End Sub

Private Sub TB5_Change()
a1.year(4) = Val(TB5)
End Sub

Private Sub TB6_Change()
a1.year(5) = Val(TB6)
End Sub