For Nw=1 To 5Nc=1 To 5. Col=Nc. Row=Nw. Text=tab1 (Nw - 1, Nc - 1) NcNw
Приклад 7. Дано два масиви x i і y i (i=1,10). Скласти програму для обчислення суми квадратів позитивних x i.
Рішення. Робота виконується в наступній послідовності:
1. Запустити VISUAL BASIC. У вікні New Project вибрати Стандартний.EXE вкладки < b align="justify"> New (новий) і клікнути на кнопку « Відкрити ».
. На екрані з'явиться новий проект і форма Project1 - Form1 (Form) , зміст якої потрібно заповнити необхідними компонентами, за допомогою яких можна буде виконати необхідні обчислення.
. По-перше, необхідний елемент, в якому будуть відображені табличні значення x, і y. Використовуємо для цієї мети елемент MSFlexGrid1 . По-друге, необхідний елемент, який будуть використовуватися для роботи з файлом даних x і y. Використовуємо для цієї мети елемент CommonDialog1 (Діалогове вікно для вибору файлу).
Для оформлення написів для позначення результату рішення задачі можна використовувати мітку Label1 .
. Перша кнопка Command1 виконує функцію відкриття зовнішнього файлу додатки - кнопка « Відкрити файл ». Друга кнопка Command2 виконує функцію обчислення. Це буде « Обчислити ». Третя кнопка Command3 виконує функцію завершення роботи програми - кнопка « Вихід ».
. Тепер слід всі зазначені вище компоненти винести на форму. Для цього на панелі стандартних елементів знаходимо значок одного з компонент, активізуємо його і «переносимо» на форму: малюємо умовний прямокутник в тому місці форми, де буде імовірно знаходиться цей елемент, враховуючи при цьому його розміри.
. Аналогічні дії виконуємо по черзі для кожного елемента, поки на формі не з'являться всі 6 елементів.
. Далі змінюємо властивості об'єктів, використовуючи сторінку властивостей Properties . Для зміни властивостей елементів слід активізувати елемент - виділити його на формі. Далі для виділеного елемента у вікні властивостей можна вносити зміни: для Command1 змінити властивість Caption = Відкрити файл », для Command2 - властивість Caption = Обчислити »і для Command3 - властивість Caption = Вихід ». Для решти елементів задати значення властивостей:
Label1. Caption= Сума квадратів всіх x (i) gt; 0 дорівнює
Заготівлю форми для прикладу 7 зі зміненими властивостями дивіться на рис. 2.12.
. Для створення програмного коду в провіднику проекту або в меню View вибрати команду Code .
У вікні Project1 - Form1 (Code) вибрати в списку General назва кнопки +1 і клацнути по ній. У результаті з'явиться заготовка записи програмного коду для Command1 з ініціюванням для неї події Click .
Рис. 2.7. Заготівля форми для прикладу 7 зі зміненими властивостями.
. Аналогічні дії виконуємо відносно кнопок 2 і 3. Для Command3 буде виконуватися одна дія - закрити програму. Це виконує команда End .
. Програмний код для прикладу 7 буде мати вигляд (див. Блок - схему циклічного обчислювального процесу на рис. 2.13):
Dim s As String, f As String, a As Double, b As Double Лабораторна робота 4-1, варіант 15
Private Sub Command1_Click ()
For i=0 To 9. Row=0. Col=i=Val (MSFlexGrid1. Text) a gt; 0 Then b=b + a ^ 2i. Caption=Label1. Caption + CStr (b) SubSub Command2_Click (). ShowOpen=CommonDialog1. FileNamef For Input As 1i=0 To 19Input # 1, si lt;=9 Then MSFlexGrid1. Row=0 Else MSFlexGrid1. Row=1i lt;=9 Then MSFlex...
