2015-05-13
200
| Скласти проект, що дозволяє знайти максимальний елемент в одновимірному масиві. | ||||
| № | Операції | Дії розробника | ||
| 1. | Розробка інтерфейсу: Ескіз екранної форми буде вміщувати три командні кнопки: для введення значень елементів масиву, для отримання результату та для закінчення роботи додатку. | |||
| 2. | Завантажити Visual Basic | >Пуск>Программы>Visual Basic | ||
| 3. | Надати ім’я формі | Ввести до поля Name вікна властивостей значення FRMMas, до поля Caption значення Робота з масивом. | ||
| 4. | Розташувати на формі об’єкти відповідно до ескізу інтерфейсу, враховуючи їх розмір та розміщення на ескізі, визначити властивості. | (Command Button На панелі елементів) – для розміщення кнопок керування | ||
| Для CommandButton | ||||
| Name | Caption | |||
| CmdStart1 | Введення масиву | |||
| CmdStart2 | Max | |||
| CmdEnd | Вихід | |||
| 5. | Наголошення масиву | >View Code, >(General на панелі елементів), вибрати у списку Declarations, декларувати масив як глобальну змінну: Dim A(1 to 10) As Single | ||
| 6. | Написати програмний код для командної кнопки CmdStart1. | Private Sub CmdStart1_Click() FRMMas.Cls For I=1 to 10 A(I)=Val(InputBox(“Введіть число”,”Введення масиву”) Next I ‘Виведення масиву на форму для контролю Print “Масив:” For I=1 to 10 Print A(I) Next I End Sub | ||
| 7. | Написати програмний код для командної кнопки CmdStart2. | Private Sub CmdStart2_Click() Max=A(1) For I=1 to 10 If A(I)>Max Then Max=A(I) Next I MsgBox Max, VbOKOnly+VbInformation, “Максимальне значення” End Sub | ||
| 8. | Написати програмний код для командної кнопки CmdEnd. | Private Sub CmdEnd_Click() End End Sub | ||
| 9. | Налагодження програми.Запустити проект на виконання, якщо необхідно, виправити помилки | >►(Start) на панелі інструментів для початку роботи >■ (End) на панелі інструментів або звертання до командної кнопки Вихід для завершення роботи | ||
| 10. | Збереження проекту.Зберегти проект та форму у власній папці. | >Файл>Сохранить в меню або відповідна кнопка на панелі інструментів, вказати власну папку для збереження | ||
| 11. | Створити виконавчий додаток. | >File >Make.exe, вказати власну папку для збереження, ввести і’мя MyProg4. | ||
| 12. | Закрити вікно Visual Basic | >r | ||
| 13. | Завантажити проект MyProg4.Exe на виконання | > MyProg4.Exe у власній папці | ||
Завдання для самостійної роботи
|
|
|
1. Додати до проекту і запрограмувати командну кнопку, що дозволяла б визначити мінімальний елемент масиву.
2. Додати до проекту і запрограмувати командну кнопку, що дозволяла б визначити середнє значення елементів масиву.
3. Внести такі зміни до програми, щоб результат з відповідним пояснювальним текстом був виведений у текстове вікно (розміщений по центру, крупним шрифтом та вибраним кольором).
4. Внести такі зміни до програми, щоб результат з відповідним пояснювальним текстом був виведений на форму (розміщений по центру, крупним шрифтом та вибраним кольором).
