упний код:
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
Перший рядок даного коду відкриває файл, вибраний користувачем для записи в елементі FileListBox . А наступні рядки записують у нього середні значення і після закінчення запису закривають файл.
Згідно з завданням, такі операції необхідно проводити в іншій формі. Тому створюємо в проекті ще одну форму, для якої у вікні властивостей у графі Caption вводимо значення ' Визначення темпів зміни ВВП, періоду max приросту і сост. 50% ' . Для того, щоб під час роботи програми можна було з першої форми перейти до другої, у першій формі необхідно створити кнопку, яка забезпечувала б цей перехід. Створивши командну кнопку, для неї у вікні властивостей у графі Caption встановимо значення ' Кнопка переходу до наступного етапу програми ' . Щоб при натисканні на цю кнопку після запуску програми здійснювався перехід до другої формі, необхідно в процедуру Command3_Click () ввести наступний код:
Form1.Hide
Form2.Show p> Ці команди приховають першу форму і зроблять видимої другу форму.
Згідно з завданням, у другій формі необхідно вважати файл зі середніми значеннями показників. Для того, щоб зробити це, треба, щоб користувач вказав файл, в який записані ці дані. Для цього використовуємо елементи DriveListBox, DirListBox і FileListBox . Розмістимо їх у другій формі поряд з міткою, що пояснює користувачеві, що він повинен вказати файл з середніми значеннями. Після того, як користувач зробить це, необхідно вважати дані з файлу. Для цього створимо командну кнопку, для якої у вікні властивостей у графі Caption введемо значення ' Зчитування даних з файлу, визначення ВВП і темпів його зміни ' . Як видно з назви кнопки, з її допомогою ми будемо визначати розмір ВВП і знаходити темпи його зміни, що також потрібно в завданні. p> Для того, щоб вважати дані з файлу, вказаного користувачем, необхідно ввести в процедуру 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
Рядок L1.List (i - 1) = a1 (i) забезпечує висновок у список, розміщений у другій формі, значень ВВП. p> Згідно з завданням, після того, як значення ВВП будуть лічені з файлу, необхідно розрахувати темпи зміни ВВ...
