Анализ экономических показателей Японии 1960-1992 гг. Компьютерная подготовка в ГУУ. 2 курс.
Категория реферата: Рефераты по информатике, программированию
Теги реферата: доклади, конспект урока изложения
Добавил(а) на сайт: Nabojwikov.
Предыдущая страница реферата | 4 5 6 7 8 9 10 11 12 13 14 | Следующая страница реферата
Нахождение ВВП, темпов его
изменения и вывод данных в списки
Нахождение периода 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 CB†’…аЙБ~ПЛ?"НЇэ-!лГ1‹“2^–
†И^Е«ъ$…Ф&зl[?]…~C0ЖД‚бўпвжb[pic]7„›?A!f—BpДЎf™h?(Д?"ЖЇц-
!З‰~@_ЧЈ^ЕЖ(‹ПзЫ‰ДЪ°RяRя??l[?]ЮоГ1?“2Шэ…@^?“ЕЗЈш?вО`~‹“†^Йѕ?ХЖ(‰’'Вывод
средних значений в списки
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
Рекомендуем скачать другие рефераты по теме: реферат загрязнение, купить диплом высшее.
Предыдущая страница реферата | 4 5 6 7 8 9 10 11 12 13 14 | Следующая страница реферата