на рис. 2.15):
Dim s As String, f As String, a As Double Лабораторна робота 4-2, варіант 15
Private Sub Command1_Click ()
For i=0 To 4j=0 To 4. Row=i. Col=j=Val (MSFlexGrid1. Text) a gt;=1 Then. Text=«1» a gt; 0 And a lt; 1 ThenZ (i, j)=C (i, j). Text=«0» IfjiSubSub Command2_Click (). ShowOpen=CommonDialog1. FileNamef For Input As 1i=0 To 4j=0 To 4Input # 1, s. Row=i. Col=j. Text=sjiSubSub Command3_Click () Sub
. Для збереження проекту треба виконати команду меню File (файл)? Save Project As (Зберегти проект як). У діалоговому вікні Save File As (Зберегти файл як) вибрати назву диска, на якому повинна бути створена папка для зберігання файлів нового проекту. Далі для збереження форми, слід набрати ім'я файлу в полі введення File Name (Ім'я файлу), наприклад Primer4-2 , і натиснути клавішу « Enter ». Форма Form1 буде збережена у файлі з розширенням Primer4-2.frm.
. Після збереження форми слід зберегти проект. В VISUAL BASIC це відбувається автоматично, після чого має з'явитися діалогове вікно Save Project As - Зберегти проект. Слід набрати те ж ім'я Primer4-2 і натиснути клавішу « Enter ». Файл проекту буде збережений з розширенням Primer4-2.vbp.
. Тепер запустити проект на виконання. Вибираємо команду Run ? Start або Shift + F5 . Натиснути кнопку « Відкрити файл » і відкрити файл з вихідними даними C i, j . Після цього натиснути кнопку « Знайти Z i, j ». У вікні MSFlexGrid1 з'явилася таблиця значень Z i, j . Для завершення роботи програми слід натиснути кнопку « Вихід ».
Література
комп'ютер програма алгоритмічний
С.В. Симоновича та ін. Інформатика. Базовий курс. Санкт-Петербург: Видавничий дім Пітер. 2 002, - 640 с.
А.В. Могильов, Н.І. Пак, Є.К. Хеннер. Інформатика.- 3-е изд., Перераб. і доп.- М .: Видавничий центр «Академія», 2004, - 848 с.
М.Д. Князєва. Програмування на Visual Basic 6. Учеб. Посібник.- М .: КУДИЦ-ОБРАЗ, 2006. - 176 с.
