Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат

Муниципальный Институт Управления

Им. Серго Орджоникидзе

Курсовой проект

по компьютерной подготовке

Выполнила студентка

Специальности «Мировая экономика»

II курса

Колобекова Алла

Управляющий Аленичев А. В.

Москва

1998 год

ЗАДАНИЕ

на курсовой проект

Общее задание:

Составить средствами Visual Basic и Microsoft Access комплекс программ, работающих в режиме диалога с юзером, включая:

· Метод решения задачки

· Таблицы Microsoft Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат Access

· Формы документов Visual Basic

· Фактически программки.

Пояснительная записка должна включать:

· Титульный лист

· Задание на курсовой проект

· Введение

· Анализ постановки задачки

· Метод

· Таблицы, формы, тексты программ и структуры файлов

· Результаты решения задачки

· Заключение

· Перечень литературы

· Оглавление.

Сроки выполнения курсового проекта:

· Срок представления проекта руководителю – 14 декабря 1998 года

· Время защиты работы – 28 декабря 1998 года.

Практическое задание:

Сделать таблицу в Microsoft Access Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат с полями:

· Стоимость на нефть

· Потребление нефти в Стране восходящего солнца

· Размер ВВП

· Объем промышленного производства

· Внешнеторговый баланс

· Доход на душу населения

Заполнить таблицу данными по годам с 1960 по 1992 и создать запрос для нахождения данных зависимо от цены на нефть.

Создать форму и программку в Visual Basic, позволяющую считывать эти записи, вычислять средние значения за 4-летние периоды Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат и вносить эти средние значения в файл.

Создать форму и программку в Visual Basic, позволяющую считывать этот файл, вычислять размер ВВП, темпы его конфигурации и отыскивать период наибольшего прироста и периоды, дающие 50% прироста.

Создать форму и программку в Visual Basic, сортирующую данные по стоимости на нефть Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат, и поглядеть, есть ли зависимость этого параметра с темпами конфигурации размера ВВП.

Проанализировать приобретенные результаты и сделать выводы.

Введение

В ближайшее время возрос энтузиазм к экономико-политической жизни общества в целом, что подразумевает энтузиазм как по отношению ко всему миру в целом, так и к отдельным странам, чьи опыт и познания могут Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат быть не только лишь полезными, да и очень необходимыми в развитии тех либо других стран. В особенности познания такового рода важны для государств, чья экономика находится на стадии развития, а экономические дела как снутри страны, так и на мировом рынке носят слабо выраженный нрав по сопоставлению Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат с такими странами, как США, Япония и другие. Познания об этих государствах являются основой экономики слаборазвитых государств, а их опыт почти во всем может посодействовать в решении безизбежно возникающих заморочек.

Россию нельзя причислить к слаборазвитым странам, но явна также шаткость ее экономического положения и фактическая неспособность оказывать конкурентнсть экономически развитым Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат странам. Выходом из сложившейся ситуации может стать только поиск новых способностей развития, потому что потенциал громаден.

В мире проводятся статистические исследования с целью сбора, обработки и анализа инфы об экономическом развитии государств для выявления закономерностей и установления зависимости разных экономических черт друг от друга.

В данном курсовом проекте на примере Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат данных о Стране восходящего солнца показана динамика отдельных экономических характеристик и их связь.

В Microsoft Access эти данные заносятся в виде таблиц, отражающих статистические сведения о Стране восходящего солнца за период с 1960 по 1992 года. 32-летний период является достаточным для выявления закономерностей в динамике того либо другого показателя, также для установления Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат зависимости меж показателями, если такая существует. Данные по Стране восходящего солнца содержат в себе:

1. размер внутреннего валового продукта, который является одним из часто встречающихся характеристик, характеризующих экономическое состояние страны;

2. величину цены на нефть за каждый год из 32-летнего периода;

3. размер потребление нефти в Стране восходящего солнца, что также гласит Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат о развитии и благосостояния общества в целом;

4. размер внешнеторгового оборота, отражающий ситуацию на наружном рынке страны и дающий численную характеристику торговым операциям Стране восходящего солнца с другими странами мира;

5. объем промышленного производства, характеризующий состояние экономики снутри страны;

6. величину дохода на душу населения, позволяющую сделать заключения о Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат благосостоянии населения и развитии экономики в целом.

Дальше, при помощи Visual Basic проводится анализ имеющихся данных, их группировка по признаку, обозначенному в задании, также нахождение средних значений данных за четырехлетние периоды, начиная с 1960 года. Средние величины делают более комфортным сопоставление и анализ инфы, потому что демонстрируют определенную тенденцию в Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат изменении того либо другого показателя. Потом, при помощи средств Visual Basic определяются темпы конфигурации характеристик по заданию, также находится период наибольшего прироста определенного показателя и периоды, дающие 50% прироста. Это проводится для того, чтоб найти, в каком периоде за 62 года прирост внутреннего валового продукта был большим, другими словами в какой период экономика Стране Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат восходящего солнца развивалась более интенсивно, чтоб потом было может быть выявить предпосылки такового роста и убрать причины, препятствующие как развитию экономики в целом, так и замедляющие рост экономических характеристик в определенной области.

Описанные выше операции в Visual Basic реализуются методом внедрения форм и частей управления в их, которые Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат создаются для облегчения восприятия инфы, удобства использования ей, также для способности совершать над имеющимися данными определенные операции, запланированные способностями данной программки.

Для того, чтоб иметь возможность оперировать данными о Стране восходящего солнца, представленными в таблице Microsoft Access, нужно, чтоб эти данные были бы отображенными в Visual Basic. Это Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат может быть, благодаря тому, что обе эти программки (Microsoft Access и Visual Basic) являются продуктами компании Microsoft®, и Visual Basic подразумевает возможность установления связи с данными, размещенными в таблицах Microsoft Access.

Для того, чтоб приступить конкретно к выполнению задания, нужно провести анализ постановки задачки , другими словами непосредственно найти Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат, что требуется получить в конечном итоге, какими методами следует воспользоваться при решении, как организовать работу, так чтоб решение намеченной цели было хорошим и в то же время легкодоступным и понятным для юзера, также найти поочередные шаги выполнения задания с целью упрощения процесса решения. Нужно также сделать подготовительные заключения о существовании Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат определенных закономерностей, вопрос о которых ставится в условии задачки. По окончании проекта целенаправлено сопоставить результаты, приобретенные в процессе работы, с заключениями, изготовленными до начала проекта.

Имеются данные по Стране восходящего солнца за период с 1960 по 1992 года, представляющие из себя сводную таблицу в Microsoft Access . Данные взяты из статистических справочников. Для Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат занесения данных в Microsoft Access нужно сделать новейшую базу данных, потом таблицу в ней и поочередно ввести все имеющиеся данные по Стране восходящего солнца в режиме конструктора (рис.1), заполняя строчки с именами полей и типом соответственных данных. Имена полей в этом случае – заглавие экономических характеристик за 32-летний период, а Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат потому что все данные числовые, то это будет отражено в соответственных строчках с типом данных. По окончании формирования макета начальной таблицы, нужно открыть получившуюся таблицу и ввести все имеющиеся данные за каждый год в надлежащие графы таблицы (рис.2).


Таблица с начальными данными в режиме конструктора смотрится последующим образом: Рис. 1

Таблица Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат, получившаяся после ввода данных о Стране восходящего солнца, имеет последующий вид:

После сотворения таблицы в Microsoft Access нужно создать запрос для нахождения данных зависимо от цены на нефть. Для этого нужно сделать запрос и в режиме конструктора (рис.3) ввести нужные поля, также имя таблицы, данные из которой Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат употребляются в запросе, потом ввести условие сортировки, если это нужно (по возрастанию, по убыванию) и условие отбора данных из начальной таблицы.


Запрос в режиме конструктора будет смотреться последующим образом: Рис. 3

Готовый запрос будет иметь последующий вид:

На этом завершается часть работы, выполняемая в Microsoft Access, и начинается конкретное создание программки Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат в Visual Basic, которая делала бы нужные по условию задачки операции над данными, размещенными в таблицах Microsoft Access.

В Visual Basic начинаем новый проект, выбирая в меню New File пункт New Project . Выделяем первую форму и в окне Properties в графе Caption устанавливаем для первой формы заглавие ‘ Считывание Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат данных и нахождение средних значений ’ , при всем этом имя первой формы – Form1 .

В первой форме создаем элемент DataControl с именованием Data1. В окне параметров в графе Caption устанавливаем заглавие ‘ Начальные данные ’ . В графе Connect - значение Access . В графе DatabaseName указываем путь к файлу, содержащему таблицу Microsoft Access. В Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат графе RecordSource указываем заглавие таблицы Microsoft Access, содержащей начальные данные по Стране восходящего солнца.

Потом в первой форме создаем 7 частей TextBox – текстовых полей – по количеству столбцов в начальной таблице. Над каждым текстовым полем размещаем элементы Label – метки, содержащие наименования каждого столбца. В этом случае это год, размер ВВП, цены на Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат нефть, размер употребления нефти, размер внешнеторгового оборота, объем промышленного производства и доход на душу населения. У каждого текстового поля в окне параметров в графе DataSource устанавливаем значение Data1 , а в графе DataField – избираем заглавие того столбца начальной таблицы, который показывает данное текстовое поле. Так в первом текстовом поле будет Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат значение ‘ Год ’ , во 2-м – ‘ Размер ВВП ’ и т. д.

Таким макаром, мы установили связь Visual Basic с таблицей в Microsoft Access.

Средством этой связи мы можем производить считывание данных из таблицы для выполнения нужных операций, предусмотренных заданием. При запуске программки в текстовых полях будут отображаться данные таблицы Microsoft Access, а Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат, используя стрелки на элементе Data1 , можно создавать прокрутку данных, так чтоб они поочередно появлялись в текстовых полях. Для того, чтоб после пуска программки юзер не мог ввести в текстовые поля никакую информацию, другими словами для «защиты» текстовых полей от сторонних записей, нужно в функцию Text1_Change () ввести Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат последующий код:

Text1.Enabled = False

Подобные коды нужно ввести в процедуры для второго, третьего и т. д. текстовых полей. Это сделает текстовые поля труднодоступными для ввода инфы и превратит их в поля, отображающие данные об экономических показателях.

Согласно заданию, нужно вычислить средние значения данных по Стране восходящего солнца за четырехлетние Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат периоды, начиная с 1960 года. До этого, чем написать программку, позволяющую совершать подобные операции, нужно сделать отран управления, который будет отвечать за выполнение этих операций. В этом случае более приятным и комфортным в использовании будет элемент CommandButton . Выделив этот элемент, в окне параметров в графе Caption заменим значение Command1 на Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат ‘ Расчет средних значений данных за 4-летние периоды, начиная с 1960 года ’ . После пуска программки нажатие на эту кнопку будет приводить в действие механизм вычисления средних значений данных, которые будут отображаться в текстовых полях.

До этого, чем делать вычисление средних значений, нужно считать данные из текстовых полей, которые их содержат. Для этого нужно Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат запустить цикл от 1 до 32 (количество записей в каждом столбце таблицы), который бы вводил значения из текстовых полей в массивы. Потому что нужно, чтоб описанные выше операции производились при нажатии на кнопку, то в функцию Command1_Click () введем код:

For i = 1 To 32

mag(i) = Text1.Text

mas(i) = Text Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат2.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

i – переменная, mag(i), mas(i), ma(i), maq(i), maw(i), mar(i) и maz(i) – соответственно массивы со значениями года Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат, размера ВВП, цены на нефть, размера употребления нефти, размера ВТО, объема промышленного производства и размером дохода на душу населения. Запись Data1.Recordset.MoveNext значит, что после выполнения считывания данных за 1-ый год Data1 передвинет данные в текстовых полях на одну вперед и считывание будет проводиться уже за последующий год и т Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат. д.

Но может случиться так, что после пуска юзер произведет нажатие один либо пару раз на элемент Data1 до того, как надавить на командную кнопку. Это приведет к сбою программки, так как в этом случае в коде, приведенном выше, запись, находящаяся в текстовом поле будет восприниматься как 1-ая, а Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат потому что записей всего 32, то это приведет к невозможности окончания цикла. Чтоб избежать этого, перед данным кодом поместим строчку:

Data1.Recordset.MoveFirst

Эта запись обеспечит передвигание данных в текстовых полях к первой записи перед выполнением считывания.

Для нахождения средних значений данных за 4-летние периоды, нужно сумму значений за Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат каждый год из данного периода поделить на количество лет в периоде, другими словами в этом случае - на 4. Потому в функцию Command1_Click () введем последующий код:

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 Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат + 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

j – переменная; массивы h(j), q Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат(j), w(j), p(j), r(j) и x(j) – соответственно массивы, содержащие средние значения данных за периоды с 1960 по 1963 год, с 1964 по 1967 год и т. д.

Запись For i = 1 To 32 Step 4 значит, что в каждый следующий массив ввод данных будет выполняться с элемента, номер которого Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат на 4 больше номера первого элемента предыдущего массива, другими словами в 1-ый массив – с первого по 4-ый элемент, во 2-ой – с 5-ого (номер которого на 4 больше номера первого) по восьмой и т. д. до 32.

После вычисления средних значений данных за 4-летние периоды нужно, чтоб юзер мог узреть приобретенные величины. Для этого вставим в Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат форму элементы управления ListBox , в каких будут отображаться средние значения данных. Над каждым элементом разместим метки, содержащие наименования данных, отображаемых в данном перечне. В конечном итоге получится 6 списков, над каждым из которых имеется метка с заглавием. Для вывода средних значений данных из массивов в списки в функцию Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат Command1_Click () введем последующий код:

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

После пуска программки при нажатии командной кнопки в перечнях появятся Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат средние значения данных за 4-летние периоды, начиная с 1960 года.

Согласно заданию, после рассчета средних значений, нужно занести их в файл. Для удобства юзера создадим так, чтоб он имел возможность сам выбирать тот файл, в который будут занесены средние значения. Для этого разместим в первой форме элементы DriveListBox, DirListBox и FileListBox Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат, отображающие соответственно диск, каталог и файл для записи данных. При помощи этих частей юзер после пуска программки изберет файл для записи средних значений данных. После того, как он сделает это, нужно произвести запись в файл, обозначенный юзером, средних значений характеристик, рассчитанных ранее. Сделаем командную кнопку, при Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат нажатии на которую средние значения записывались бы в файл. Для нее в окне параметров в графе Caption установим значение ‘Запись средних значений в файл’. Введем в функцию 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 Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат), x(i)

Next i

Close #1

1-ая строчка данного кода открывает файл, избранный юзером для записи в элементе FileListBox . А следующие строчки записывают в него средние значения и после окончания записи закрывают файл.

Согласно заданию, последующие операции нужно создавать в другой форме. Потому создаем в проекте еще одну форму, для которой Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат в окне параметров в графе Caption вводим значение ‘ Определение темпов конфигурации ВВП, периода max прироста и сост. 50% ’ . Для того, чтоб во время работы программки можно было из первой формы перейти ко 2-ой, в первой форме нужно сделать кнопку, которая обеспечивала бы этот переход. Создав командную кнопку, для Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат нее в окне параметров в графе Caption установим значение ‘ Кнопка перехода к последующему шагу программки ’ . Чтоб при нажатии на эту кнопку после пуска программки осуществлялся переход ко 2-ой форме, нужно в функцию Command3_Click () ввести последующий код:

Form1.Hide

Form2.Show

Эти команды скроют первую форму и сделают видимой вторую Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат форму.

Согласно заданию, во 2-ой форме нужно считать файл со средними значениями характеристик. Для того, чтоб сделать это, нужно, чтоб юзер указал файл, в который записаны эти данные. Для этого используем элементы DriveListBox, DirListBox и FileListBox . Разместим их во 2-ой форме рядом с меткой, объясняющей юзеру, что он должен указать файл Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат со средними значениями. После того, как юзер сделает это, нужно считать данные из файла. Для этого сделаем командную кнопку, для которой в окне параметров в графе Caption введем значение ‘ Считывание данных из файла, определение ВВП и темпов его конфигурации ’ . Как видно из наименования кнопки, с ее помощью мы будем Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат определять размер ВВП и отыскивать темпы его конфигурации, что также требуется в задании.

Для того, чтоб считать данные из файла, обозначенного юзером, нужно ввести в функцию Command1_Click () последующий код:

Open File1 For Input As #1

For i = 1 To 8

Input #1, a1(i), a2(i), a3(i), a4(i), a Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат5(i), a6(i)

L1.List(i - 1) = a1(i)

Next i

Close #1

Строчка L1.List(i - 1) = a1(i) обеспечивает вывод в перечень, размещенный во 2-ой форме, значений ВВП.

Согласно заданию, после того, как значения ВВП будут считаны из файла, нужно высчитать темпы конфигурации ВВП. Чтоб найти темп конфигурации ВВП либо Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат его прирост, нужно из значения ВВП, соответственного следующему месяцу, отнять значение ВВП в прошлом месяце. Для рассчета темпов конфигурации ВВП введем в функцию Command1_Click () последующий код:

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 Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат)

Next i

Запись L2.List(i - 1) = t(i) выводит во 2-ой перечень, размещенный в форме, данные о приросте ВВП.

Согласно заданию, дальше нужно высчитать период наибольшего прироста и период, дающий 50% прироста ВВП. Чтоб найти, какие это периоды, сделаем во 2-ой форме командную кнопку, для которой в окне параметров в Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат графе Caption Установим значение ‘ Нахождение периода max прироста и периода прироста в 50% ’ . Сделаем 2 текстовых поля, 1-ое из которых будет показывать размер наибольшего прироста ВВП, а 2-ое – период такового прироста. Чтоб сделать эти текстовые поля труднодоступными для ввода инфы во время работы программки, в функцию Form_Load введем коды:

T Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат1.Enabled = False

T2.Enabled = False

T1 и T2 – соответственно наименования первого и второго текстовых полей.

Сделаем 2 подобных текстовых поля для вывода значений прироста ВВП, составляющего 50%, и периода с таким приростом ВВП.

В функцию Command2_Click() введем код для нахождения периода и значения наибольшего прироста ВВП:

Max = 0

For i = 1 To 7

If Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат t(i) > Max Then

Max = t(i)

p = i

End If

Next i

T1.Text = Max

Эта часть кода определяет значение наибольшего прироста и выводит его в 1-ое текстовое поле. Переменная p является счетчиком, при помощи которого мы определяем период наибольшего прироста ВВП:

If p = 1 Then

T2.Text = "1964 - 1967 гг Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат."

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 Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат If

Эта часть кода анализирует значение переменной p и, зависимо от ее значения выводит во 2-ое текстовое поле данные о периоде наибольшего прироста.

Если прирост ВВП составляет 50%, это значит, что отношение значения ВВП следующего периода к значению ВВП предшествующего периода составляет 1.5. Потому для определения прироста ВВП в Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат 50% и периода, дающего таковой прирост, нужно высчитать отношение прироста ВВП следующего периода к предшествующему по всем периодам. Чтоб сделать это, введем в функцию Command2_Click () последующий код:

j = 1

For i = 1 To 8

q(j) = a1(i + 1) / a1(i)

j = j + 1

Next i

Это введет в массив q(j) значения отношений Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат прироста ВВП следующего периода к предшествующему. Для вычисления значения прироста ВВП, составляющего 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 является счетчиком, который позволит найти период прироста ВВП Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат в 50%. Эта часть кода позволяет отыскать значение прироста ВВП в 50%, если таковое имеется, и вывести его в третье текстовое поле. В неприятном случае в 3-ем текстовом поле появится прочерк, а в четвертом поле, отражающем период данного прироста, появится надпись “нет”. Для определения периода, давшего прирост ВВП в Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат 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

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

End If

If per = 6 Then

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

End If Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат

If per = 7 Then

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

End If

Эта часть кода определяет и выводит в 4-ое текстовое поле период, в каком прирост ВВП составил 50%.

Согласно заданию, последующая часть работы должна производиться в другой, третьей форме. Потому во 2-ой форме нужно сделать командную кнопку, позволяющую перейти к третьей Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат форме после выполнения всех нужных операций во 2-ой форме. Поначалу сделаем еще одну форму в нашем проекте и в окне параметров в графе Caption установим для нее значение ‘ Сортировка данных по стоимости на нефть ’ .

ЗАМЕТИМ, что до того, как все операции во 2-ой форме будут осуществлены, перейти в Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат третью форму будет неосуществимым из-за того, что в командные кнопки 1 и 2 введены коды, предусматривающие определенный порядок в использовании кнопок. Так в функцию Form_Load () введен код, делающий труднодоступными все командные кнопки:

Command1.Enabled = False

Command2.Enabled = False

Command3.Enabled = Fa lse

Для активизации каждой кнопки нужно выполнить определенные деяния, предусмотренные Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат программкой. Так, к примеру, выбор юзером файла для записи средних значений данных делает доступной первую командную кнопку, потому что в функцию File1_Click () введен код:

Command1.Enabled = True

После выполнения операций, предусмотренных кодом первой кнопки, 2-ая кнопка становится доступной, потому что в функцию Command1_Click () введен код Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат:

Command2.Enabled = True

И т.д..

Для того, чтоб 3-я командная кнопка производила переход к третьей форме, в функцию Command3_Click () нужно ввести последующий код:

Form2.Hide

Form3.Show

Этот код прячет вторую форму и делает видимой третью форму.

В третьей форме, согласно заданию, нужно провести сортировку данных о Стране восходящего Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат солнца по стоимости на нефть. Для этого нужно, во-1-х, считать данные, которые будут сортироваться. Для этого в первой форме в функцию Command2_Click () введем код, позволяющий считывать данные из текстовых полей и вносить их в вспомогательный файл, нареченный ‘data1’ :

Open "data1" For Output As # 1

For i = 1 To 32

Write #1, mag Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат(i), mas(i), ma(i), maq(i), maw(i), mar(i), maz(i)

Next i

Close #1

До того как проводить сортировку данных, нужно считать их из вспомогательного файла. Для этого сделаем в третьей форме командную кнопку с заглавием ‘Сортировка данных по стоимости на нефть’ и в функцию Command1_Click Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат () введем последующий код:

Open "data1" For Input As #1

For i = 1 To 32

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

Next i

Close #1

После того, как данные из вспомогательного файла будут считаны, нужно провести их сортировку по стоимости на нефть. Это Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат означает, что значения цены на нефть будут размещаться по возрастанию, а все другие значения характеристик будут отображаться соответственно этим значениям.

Для того, чтоб после пуска программки при нажатии кнопки происходила сортировка, нужно в функцию

Command1_Click () ввести последующий код:

10 pr = True

i = 1

20 If ma(i) > ma(i + 1) Then

buf Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат = ma(i)

buf1 = mag(i)

buf2 = mas(i)

buf3 = maq(i)

buf4 = maw(i)

buf5 = mar(i)

buf6 = maz(i)

ma(i) = ma(i + 1)

mag(i) = mag(i + 1)

mas(i) = mas(i + 1)

maq(i) = maq(i + 1)

maw(i) = maw(i + 1)

mar(i) = mar(i + 1)

maz(i) = maz(i + 1)

ma(i + 1) = buf Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат

mag(i + 1) = buf1

mas(i + 1) = buf2

maq(i + 1) = buf3

maw(i + 1) = buf4

mar(i + 1) = buf5

maz(i + 1) = buf6

pr = False

End If

i = i + 1

If i = 32 Then

GoTo 30

Else

GoTo 20

End If

30 If pr = False Then

GoTo 10

Else

GoTo 200

End If

200 End Sub

Это программка сортировки Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат, позволяющая расположить значения цены на нефть по возрастанию, а другие значения – соответственно этому.

После проведения сортировки данных по стоимости на нефть, нужно вывести эти сортированные данные в списки. Для этого в третьей форме сделаем семь списков (по количеству характеристик), в каких будут отображаться сортированные данные. Над ними разместим семь Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат меток с наименованиями соответственных списков: «Год», «Размер ВВП» и т. д. Для отображения в перечнях сортированных данных нужно сделать в третьей форме вторую командную кнопку, для которой в окне параметров в графе Caption установим значение ‘ Вывод сортированных данных ’ . Чтоб сделать эту кнопку труднодоступной до проведения сортировки, в функцию Form Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат _ Load () добавим код:

Command2.Enabled = False

Чтоб сделать доступной кнопку вывода сортированных данных после нажатия кнопки сортировки и труднодоступной саму кнопку сортировки, в функцию Command1_Click () введем код:

Command2.Enabled = True

Command1.Enabled = False

Для того, чтоб после пуска программки при нажатии на вторую командную кнопку в третьей форме Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат сортированные данные показывались в перечнях, нужно в функцию

Command2_Click () ввести последующий код:

For i = 1 To 32

List1.List(i - 1) = mag(i)

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

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

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

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

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

List7.List(i - 1) = maz(i Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат)

Next i

На этом операции, выполнение которых предвидено заданием, завершаются. Но может появиться ситуация, когда юзеру будет необходимо после выполнения всех действий в третьей форме возвратиться в первую либо во вторую формы. Для обеспечения способности таких переходов, сделаем в третьей форме рамку (отран управления Frame ), в какой разместим Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат два элемента управления OptionButton . При помощи этих тумблеров будет осуществляться переход в первую либо во вторую формы. Коды в их будут подобны кодам в кнопках перехода от одной формы к другой:

Form3.Hide

Form1.Show для первого тумблера и

Form3.Hide

Form2.Show для второго тумблера.

После написания нужных кодов ко всем Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат элементам управления, можно перейти к зрительному оформлению форм, используя такие характеристики частей управления, как BackColor, ForeColor, Font , чтоб придать им хотимый внешний облик.

Согласно заданию, после того, как будут выполнены все нужные операции в третьей форме, нужно поглядеть, существует ли зависимость меж ценой на нефть и темпами конфигурации размера Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат внутреннего валового продукта.

Исходя из суждений логики, можно сделать некие подготовительные заключения. Япония – страна с высочайшим уровнем развития, занимающая одну из передовых позиций на мировом рынке. Но, как понятно, она испытывает недочет в ресурсах, имеющихся в ее владении, потому обязана импортировать их из других государств. Что касается Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат нефти, которая очень принципиальна для хоть какой страны, Япония закупает ее у разных стран, в том числе и у Рф. Внутренний валовой продукт содержит в себе муниципальные расходы на все покупки ресурсов, а, означает, и нефти. И хотя можно проследить зависимость меж размером ВВП и величиной цены на нефть Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат, делать выводы о прямой пропорциональности цены на нефть размеру ВВП, вероятнее всего, нельзя, потому что нужно принимать во внимание огромное количество иных причин, оказывающих воздействие на экономическое состояние страны, индикатором которого является внутренний валовой продукт. А поэтому можно сказать, что, возможно, на каком-либо маленьком отрезке времени будет наблюдаться ровная зависимость Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат цены на нефть от размера ВВП, но вероятны также периоды, где эта зависимость будет оборотной. Для более полного анализа нужно иметь сведения о большенном количестве экономических характеристик и принимать во внимание даже такие причины, как ситуация в обществе, войны, природные катаклизмы, положение в других странах и Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат в мире в целом.

Метод

Ввод данных в массивы из

текстовых полей

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

данных и ввод средних

значений в массивы


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

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


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

файл, избранный

юзером


Переход ко 2-ой форме


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


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

конфигурации и вывод данных

в списки


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

прироста и прироста в Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат 50%


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

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

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


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


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

стоимости на нефть


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

данных в перечень


Переход к первой Переход ко 2-ой

форме форме


В курсовом проекте были приведены коды для отдельных частей управления. Ниже даются тексты программ с комментами для более Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат полного восприятия.

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

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 Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат(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 Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат(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 'Вычисление средних значений по данным Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат и ввод их в массивы

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 Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат + 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 Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат(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 Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат 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 'Записывает в него Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат все данные

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 Command Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат3_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 сборники диска Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат, обозначенного в 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

File Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат1.Enabled = False ‘ Делает труднодоступным FileListBox

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

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

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

End Sub

Private Sub Text1_Change()

Text1.Enabled = False Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат 'Делает текстовое поле труднодоступным

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 'Делает Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат текстовое поле труднодоступным

End Sub

Private Sub Text6_Change()

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

End Sub

Private Sub Text7_Change()

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

End Sub

· ДЛЯ 2-ой ФОРМЫ:

Dim q(10) As Single

Dim t(10) As Single

Dim p As Integer

Dim per As Integer

Dim i Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат, 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, a Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат1(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 ' Выводит данные о приросте Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат в перечень

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 Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат = 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 гг Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат."

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) 'Рассчет дела ВВП следующего периода Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат к ВВП предшествующего периода

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 Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат = "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 гг Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат."

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 Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат ' Делает доступной кнопку рассчета прироста ВВП

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 ‘ Делает доступной кнопку нахождения прироста ВВП Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат

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 'Делает труднодоступной кнопку Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат рассчета 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 buf Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат2 As Single

Dim buf3 As Single

Dim buf4 As Single

Dim buf5 As Single

Dim buf6 As Single

Dim buf As Single

Private Sub Command2_Click()

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

List1.List(i - 1) = mag(i)

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

List3.List(i Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат - 1) = ma(i)

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

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

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

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

Next i

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

End Sub

Private Sub Command1_Click()

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

MsgBox "Эта кнопка проведет Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат сортировку данных по возрастанию цены на нефть!" ‘ Вывод сообщения

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

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

For i = 1 To 32 Считывает данные из файла в массивы

Input #1, mag(i), mas(i), ma(i), maq(i), maw(i), mar(i), maz(i Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат)

Next i

Close #1

10 pr = True 'Сортировка по возрастанию цены на нефть

i = 1

20 If ma(i) > ma(i + 1) Then

buf = ma(i)

buf1 = mag(i)

buf2 = mas(i)

buf3 = maq(i)

buf4 = maw(i)

buf5 = mar(i)

buf6 = maz(i)

ma(i) = ma(i + 1)

mag(i) = mag(i Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат + 1)

mas(i) = mas(i + 1)

maq(i) = maq(i + 1)

maw(i) = maw(i + 1)

mar(i) = mar(i + 1)

maz(i) = maz(i + 1)

ma(i + 1) = buf

mag(i + 1) = buf1

mas(i + 1) = buf2

maq(i + 1) = buf3

maw(i + 1) = buf4

mar(i + 1) = buf5

maz(i + 1) = buf6

pr = False

End If

i = i + 1

If i Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат = 32 Then

GoTo 30 'Переход на 30 строчку

Else

GoTo 20 'Переход на 20 строчку

End If

30 If pr = False Then

GoTo 10 'Переход на 10 строчку

Else

GoTo 200 'Переход на 200 строчку

End If

200 End Sub

Private Sub Form_Load()

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

End Sub

Private Sub Option1_Click()

MsgBox Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат "Перейти к первой форме?" ‘ Выдает сообщение

Form3.Hide 'Прячет 3 форму

Form1.Show 'Указывает 1 форму

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

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

End Sub

Private Sub Option2_Click()

MsgBox "Перейти ко 2-ой форме?" ‘ Выдает сообщение

Form3.Hide 'Прячет 3 форму

Form Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат2.Show 'Указывает 2 форму

Command1.Enabled = True 'Делает доступной кнопку нахождения темпов конфигурации ВВП

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

End Sub

Ниже приводятся формы, как они смотрятся в режиме проектирования, другими словами до пуска программки.

1-ая ФОРМА


2-ая ФОРМА


3-я ФОРМА


Дальше приводятся формы в режиме Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат Run, другими словами после пуска программки.

1-ая ФОРМА

1. После рассчета средних значений данных за 4-летние периоды:

2.
После выбора файла и записи в него данных:


2-ая ФОРМА

1. После считывания данных, определения ВВП и темпов его конфигурации:


2. После нахождения периода наибольшего прироста и прироста в 50%:


3-я ФОРМА

1.После Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат проведения сортировки:


Чтоб убедиться, что в процессе выполнения программ данные вправду записываются в файл, ниже показана структура файлов, использованных в проекте:

1. Файл, избранный юзером для записи средних значений данных:

0.8843492, 14.05, 1621.173, 2244, 49.9, 238652.5

1.250556, 14.425, 1693.65, 3841, 68.65, 260827.3

1.786277, 14.65, 1858.58, 6714.5, 79.575, 280061.8

2.117049, 14.675, 1966.193, 11439.5, 91.8, 248772.3

2.23297, 14.1, 2244.097, 17332, 110.6, 259894.3

2.364754, 17.275, 2533.115, 22487.75, 117.525, 242344.5

2.543809, 16.2, 2736.063, 27369.25, 123.875, 283233.3

3.258096, 17.025, 3509.732, 34186.75, 129.5, 389459.5

2. Вспомогательный файл, содержащий данные обо всех показателях:

1960, 0.639305, 13.9, 1675.8, 228641, 45.8,1784

1961, 0.89425, 13.8, 1604.68, 248690, 47.3, 2136

1962, 0.925417, 13.9, 1604.67, 269742, 50.6, 2341

1963, 1.078425, 14.6, 1599.54, 228589, 55.9, 2715

1964, 1.098361, 14.4, 1603.6, 260713, 62.1, 3118

1965, 1.116758, 14.3, 1709.31, 238643, 69.5, 3423

1966, 1.294576, 14.4, 1711.7, 278317, 72.2, 3999

1967, 1.49253, 14.6, 1749.99, 305310, 70.8, 4824

1968, 1.598053, 14.4, 1805.4, 285305, 74.9, 5407

1969, 1.703083, 15.1, 1845.5, 270136, 78.3, 6329

1970, 1.853208, 14.5, 1879.75, 268371, 80.7, 7246

1971, 1.990764, 14.6, 1903.67, 294670, 84.4, 7876

1972, 2.078247, 14.4, 1899.9, 263478, 91.6, 8972

1973, 2.095748, 15.2, 1956.87 ,240537 ,93.9 ,10694

1974, 2.099347, 14.6, 1940.14 ,235925, 95.6 ,12495

1975, 2.194853, 14.5, 2067.86 ,250537, 86.1 ,13597

1976, 2.157347, 14.5, 2194.66 ,235925, 120.4, 15134

1977, 2.19576, 14.7, 2542.8, 270537, 103.5, 16664

1978, 2.293102, 12.3, 2157.43 ,246942, 105.8, 18125

1979, 2.285671, 14.9, 2081.5, 262578, 112.7, 19405

1980, 2.319454, 15.7, 2518.64, 243670, 114.9, 20960

1981, 2.365859, 15.5, 2520.8, 237387, 115.3, 22081

1982, 2.376982, 22.1, 2487.35, 214535, 117.2, 23033

1983, 2.39672, 15.8, 2605.67, 250934, 122.7, 23877

1984, 2.403722, 16, 2636.81, 270762, 124.6, 25412

1985, 2.418689, 16.2, 2642.3, 273300, 120.5, 26926

1986, 2.430957, 16.7, 2689.94, 306617, 124.9, 27959

1987, 2.92187, 15.9, 2975.2, 315571, 125.5, 29180

1988, 2.897231, 16.8, 3015.75, 335559, 126.8, 30929

1989, 2.990416, 17.1, 4545, 378700, 130.1, 32978

1990, 3.418921, 17.3, 3203.58, 452271, 131.7, 35368

1991, 3.725814, 16.9, 3274.6, 464879, 129.4, 37472

1992, 3.780530, 17.6, 3332.48, 523851, 135.9, 39330

После подсчета темпов конфигурации ВВП, можно поглядеть, существует ли связь меж этим показателем Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат и ценой на нефть. Проследив динамику цены на нефть, мы увидим, что прямой зависимости не существует. В некие периоды повышение темпа роста ВВП сопровождалось повышением цены на нефть, в некие – напротив вело к уменьшению цены на нефть. Это подтверждает корректность подготовительных заключений, изготовленных до рассчетов, о том, что не существует Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат прямой зависимости размера ВВП и величины цены на нефть, другими словами огромную роль играют остальные неучтенные причины.

В заключении снова нужно сказать о значимости схожих статистических исследовательских работ для анализа экономической ситуации отдельной страны, также для выявления закономерностей в динамике того либо другого показателя с целью будущих прогнозов для Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат лучшего функционирования государственной и мировой экономики.


1. Мур М., Фернандес Дж. Н. “ Изучи сам Visual Basic 4 сейчас ” - Минск, 1997 г.

2. “ Энциклопедический словарь ” – М., 1962 г.

3. “ Япония в цифрах ” . Статистический справочник – М., 1967 г.

4. “ Япония ” . Статистический ежегодник – М., 1960-1989

гг.

Оглавление

1. Задание на курсовой проект…………………….1

2. Введение………………………………………….2-3

3. Анализ постановки задачки…………………….3-4

4. Формирование таблицы в Microsoft Access…4-6

5. Формирование запроса в Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат Microsoft Access…..7-8

6. Создание проекта в Visual Basic и установление

связи с Microsoft Access………………………….9

7. Создание частей управления и кодов к ним

· В первой форме……………………………10-12

· Во 2-ой форме…………………………..13-16

· В третьей форме……………………………17-20

8. Подготовительный анализ………………………..20

9. Метод………………………………………..21-22

10. Тексты программ:

· Для первой формы………………………..23-26

· Для 2-ой формы………………………..26-29

· Для третьей формы……………………….30-32

11.Внешний облик форм в режиме проектирования Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс. - реферат:

· Первой формы…………………………………33

· 2-ой формы…………………………………34

· Третьей формы………………………………..35

12.Внешний облик форм в режиме Run:

· Первой формы……………………………..36-37

· 2-ой формы……………………………..38-39

· Третьей формы……………………………….40

13.Структура файлов……………………………40-41

14.Заключение……………………………………….42

15.Перечень литературы………………………………43


analiz-finansovogo-polozheniya-predpriyatiya.html
analiz-finansovogo-sostoyaniya-grk-duman.html
analiz-finansovogo-sostoyaniya-i-ustojchivosti-predpriyatiya.html