Анализ экономических показателей Японии 1960-1992 гг

Страница 6

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

Private Sub Command3_Click()

Form2.Hide 'Скрывает 2 форму

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

Command1.Enabled = True ' Делает доступной кнопку рассчета прироста ВВП

End Sub

Private Sub Dir1_Change()

File1 = Dir1

End Sub

Private Sub Drive1_Change()

ChDrive Drive1

Dir1 = Drive1

ChDir Dir1

End Sub

Private Sub File1_Click()

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

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

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

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

End Sub

Private Sub Form_Load()

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

T1.Enabled = False 'Делает недоступными текст. поля

T2.Enabled = False

T3.Enabled = False

T4.Enabled = False

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

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

End Sub

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

Dim maq(40) As Single

Dim mag(40) As Single

Dim ma(40) As Single

Dim mas(40) As Single

Dim maz(40) As Single

Dim mar(40) As Single

Dim maw(40) As Single

Dim buf1 As Single

Dim buf2 As Single

Dim buf3 As Single