Private Sub Command1_Click()

Data1.Recordset.MoveFirst 'Переходит к первой строке данных

MsgBox "Эта кнопка выведет средние значения данных за 4-летние периоды, начиная с 1960 года!" ‘ Выдает сообщение о кнопке ’

For i = 1 To 32 'Ввод данных в массивы из текстовых полей

mag(i) = Text1.Text

mas(i) = Text2.Text

ma(i) = Text3.Text

maq(i) = Text4.Text

maw(i) = Text5.Text

mar(i) = Text6.Text

maz(i) = Text7.Text

Data1.Recordset.MoveNext 'Переходит к следующей строке данных

Next i

j = 1

For i = 1 To 32 Step 4 'Вычисление средних значений по данным и ввод их в массивы

h(j) = (mas(i) + mas(i + 1) + mas(i + 2) + mas(i + 3)) / 4

q(j) = (ma(i) + ma(i + 1) + ma(i + 2) + ma(i + 3)) / 4

w(j) = (maq(i) + maq(i + 1) + maq(i + 2) + maq(i + 3)) / 4

p(j) = (maz(i) + maz(i + 1) + maz(i + 2) + maz(i + 3)) / 4

r(j) = (mar(i) + mar(i + 1) + mar(i + 2) + mar(i + 3)) / 4

x(j) = (maw(i) + maw(i + 1) + maw(i + 1) + maw(i + 3)) / 4

j = j + 1

Next i

For i = 1 To 8  'Вывод средних значений в списки

List2.List(i - 1) = h(i)

List3.List(i - 1) = q(i)

List4.List(i - 1) = w(i)

List5.List(i - 1) = p(i)

List6.List(i - 1) = r(i)

List7.List(i - 1) = x(i)

Next i

Dir1.Enabled = True  ‘ Делает доступным DirListBox

Drive1.Enabled = True ‘ Делает доступным DriveListBox

File1.Enabled = True  ‘ Делает доступным FileListBox

Command1.Enabled = False 'Делает кнопку нахождения ср. значений недоступной

Label14.Visible = True      ‘ Делает видимой метку с сообщением

End Sub

Private Sub Command2_Click()

Open File1 For Output As #1 'Открывает файл, выбранный пользователем

For i = 1 To 8    'Записывает данные в файл

Write #1, h(i), q(i), w(i), p(i), r(i), x(i)

Next i

Close #1   'Закрывает файл

Open "data1" For Output As #1 'Создает вспомогательный файл "data1"

For i = 1 To 32   'Записывает в него все данные

Write #1, mag(i), mas(i), ma(i), maq(i), maw(i), mar(i), maz(i)

Next i

Close #1   'Закрывает файл "data1"

Command2.Enabled = False   'Делает кнопку записи данных в файл недоступной после записи

Command3.Enabled = True  'Делает доступной кнопку перехода в др. форму

End Sub

Private Sub Command3_Click()

Form1.Hide  'Скрывает 1 форму

Form2.Show 'Показывает 2 форму

Command1.Enabled = True 'Делает доступной кнопку нахождения средних значений

End Sub

Private Sub Dir1_Change()

File1 = Dir1  ‘ Отображает в FileListBox файлы, содержащиеся в DirListBox

End Sub

Private Sub Drive1_Change()

ChDrive Drive1   ‘ Меняет диск

Dir1 = Drive1 ‘ Отображает в DirListBox каталоги диска, указанного в DriveListBox

ChDir Dir1  ‘ Меняет каталог

End Sub

Private Sub File1_Click()

Command2.Enabled = True  'Делает кнопку записи данных в файл доступной

End Sub

Private Sub Form_Load()

Label14.Visible = False ‘ Делает невидимой метку с сообщением

Dir1.Enabled = False ‘ Делает недоступным DirListBox

Drive1.Enabled = False   ‘ Делает недоступным DriveListBox

File1.Enabled = False ‘ Делает недоступным FileListBox

Command2.Enabled = False 'Делает кнопку записи данных в файл недоступной

Command3.Enabled = False 'Делает недоступной кнопку перехода в др. форму

MsgBox "Привет! Добро пожаловать в Visual Basic!" 'Выдает сообщение   ‘ Выдает приветственное сообщение

End Sub

Private Sub Text1_Change()

Text1.Enabled = False 'Делает текстовое поле недоступным

End Sub

Private Sub Text2_Change()

Text2.Enabled = False   'Делает текстовое поле недоступным

End Sub

Private Sub Text3_Change()

Text3.Enabled = False  'Делает текстовое поле недоступным

End Sub

Private Sub Text4_Change()

Text4.Enabled = False   'Делает текстовое поле недоступным

End Sub

Private Sub Text5_Change()

Text5.Enabled = False   'Делает текстовое поле недоступным

End Sub

Private Sub Text6_Change()

Text6.Enabled = False    'Делает текстовое поле недоступным

End Sub

Private Sub Text7_Change()

Text7.Enabled = False      'Делает текстовое поле недоступным

End Sub

 

· ДЛЯ ВТОРОЙ ФОРМЫ:

Dim q(10) As Single

Dim t(10) As Single

Dim p As Integer

Dim per As Integer

Dim i, j As Integer

Dim a1(50) As Single

Dim a2(10) As Single

Dim a3(10) As Single

Dim a4(10) As Single

Dim a5(10) As Single

Dim a6(10) As Single

Private Sub Command1_Click()

Open File1 For Input As #1 'Открывает файл

For i = 1 To 8 'Считывает данные в массивы

Input #1, a1(i), a2(i), a3(i), a4(i), a5(i), a6(i)

L1.List(i - 1) = a1(i) 'Выводит в список данные о ВВП

Next i

Close #1 'Закрывает файл

j = 1

For i = 1 To 8

t(j) = a1(i + 1) - a1(i) 'Рассчет прироста ВВП

j = j + 1

Next i

For i = 1 To 7 ' Выводит данные о приросте в список

L2.List(i - 1) = t(i)

Next i

Command1.Enabled = False 'Делает недоступной кнопку вывода данных о приросте

Command2.Enabled = True 'Делает доступной кнопку нахождения max прироста

End Sub

Private Sub Command2_Click()

Max = 0 'Нахождение max прироста

For i = 1 To 7

If t(i) > Max Then

Max = t(i)

p = i 'Счетчик

End If

Next i

T1.Text = Max 'Выводит значение max прироста в текст. поле

If p = 1 Then  'Определяет период max прироста и выводит его в текст. поле

T2.Text = "1964 - 1967 гг."

End If

If p = 2 Then

T2.Text = "1968 - 1971 гг."

End If

If p = 3 Then

T2.Text = "1972 - 1975 гг."

End If

If p = 4 Then

T2.Text = "1976 - 1979 гг."

End If

If p = 5 Then

T2.Text = "1980 - 1983 гг."

End If

If p = 6 Then

T2.Text = "1984 - 1987 гг."

End If

If p = 7 Then

T2.Text = "1988 - 1991 гг."

End If

j = 1

For i = 1 To 8

q(j) = a1(i + 1) / a1(i) 'Рассчет отношения ВВП последующего периода к ВВП предыдущего периода

j = j + 1

Next i

For i = 1 To 7  'Находит и выводит в текст. поле период прироста в 50%, если такой имеется

If q(i) = 1.5 Then

per = i      'Счетчик

T3.Text = q(i)

Else

T3.Text = " ----------------------------"

T4.Text = "НЕТ"

End If

Next i

If per = 1 Then

T4.Text = "1964 - 1967 гг."

End If

If per = 2 Then

T4.Text = "1968 - 1971 гг."

End If

If per = 3 Then

T4.Text = "1972 - 1975 гг."

End If

If per = 4 Then

T4.Text = "1976 - 1979 гг."

End If

If per = 5 Then

T4.Text = "1980 - 1983 гг."

End If

If per = 6 Then

T4.Text = "1984 - 1987 гг."

End If

If per = 7 Then

T4.Text = "1988 - 1991 гг."

End If

Command1.Enabled = False ‘ Делает недоступной кнопку нахождения ВВП

Command2.Enabled = False 'Делает недоступной кнопку рассчета max прироста

Command3.Enabled = True 'Делает доступной кнопку перехода в др. форму

End Sub