Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс.
Категория реферата: Рефераты по информатике, программированию
Теги реферата: доклади, конспект урока изложения
Добавил(а) на сайт: Nabojwikov.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата
End If
Эта часть кода анализирует значение переменной p и, в зависимости от ее
значения выводит во второе текстовое поле данные о периоде максимального
прироста.
Если прирост ВВП составляет 50%, это означает, что отношение значения
ВВП последующего периода к значению ВВП предыдущего периода составляет 1.5.
Поэтому для определения прироста ВВП в 50% и периода, дающего такой
прирост, необходимо рассчитать отношение прироста ВВП последующего периода
к предыдущему по всем периодам. Чтобы сделать это, введем в процедуру
Command2_Click () следующий код: j = 1
For i = 1 To 8 q(j) = a1(i + 1) / a1(i) j = j + 1
Next i
Это введет в массив q(j) значения отношений прироста ВВП последующего
периода к предыдущему. Для вычисления значения прироста ВВП, составляющего
50%, введем следующий код:
For i = 1 To 7
If q(i) = 1.5 Then per = i
T3.Text = q(i)
Else
T3.Text = " ----------------------------"
T4.Text = "НЕТ"
End If
Next i
В данном коде переменная per является счетчиком, который позволит
определить период прироста ВВП в 50%. Эта часть кода позволяет найти
значение прироста ВВП в 50%, если таковое имеется, и вывести его в третье
текстовое поле. В противном случае в третьем текстовом поле появится
прочерк, а в четвертом поле, отражающем период данного прироста, появится
надпись “нет”. Для определения периода, давшего прирост ВВП в 50%, введем
следующий код:
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
Рекомендуем скачать другие рефераты по теме: реферат загрязнение, купить диплом высшее.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата