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

Страница 5

Вывод средних значений

данных в списки

Запись средних значений в

файл, выбранный

пользователем

Переход ко второй форме

Считывание данных из файла

Нахождение ВВП, темпов его

изменения и вывод данных

в списки

Нахождение периода max

прироста и прироста в 50%

Вывод в текстовые поля

значений и периодов

max прироста ВВП и в 50%

Переход к третьей форме

Сортировка данных по

цене на нефть

Вывод сортированных

данных в список

Переход к первой Переход ко второй

форме форме

В курсовом проекте были приведены коды для отдельных элементов управления. Ниже даются тексты программ с комментариями для более полного восприятия.

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

Dim mas(40) As Single

Dim mag(40) As Single

Dim ma(40) As Single

Dim maq(40) As Single

Dim maz(40) As Single

Dim mar(40) As Single

Dim maw(40) As Single

Dim j, i As Integer

Dim h(10) As Single

Dim q(10) As Single

Dim w(10) As Single

Dim r(10) As Single

Dim p(10) As Single

Dim x(10) As Single

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 'Открывает файл, выбранный пользователем