Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
У розглянутих раніше прикладах використовувалися прості перемінні, котрі вводилися в текстові вікна. У наступному прикладі розглянемо арифметичний цикл з індексованими перемінними, тобто роботу з масивом.
Приклад 1: Написати програму обчислення суми товарообігу підприємства за місяць, якщо відомий щоденний товарообіг по формулі
де: n – кількість днів у місяці,
xi – щоденний товарообіг,
i – поточний день місяця.
Виконання:
У даному прикладі з'явився новий запис - xi , що називається індексированой перемінной і використовується при роботі з масивами. Для занесення таких даних можна використовувати засобу убудованого діалогу – панель уведення. Панель уведення викликається функцією InputBox. Спрощений формат функції:
< перемінна > = InputBox (“текст запрошення, видаваного користувачу“)
Операції по виконанню приклада - «Цикл із запитом»
№ | Операція | Виконання |
Створення електроной форми і завдання властивос-тей її елементів | Дії аналогічні раніше розглянутим прикладам. | |
Завдання функції кнопки Вихід | Установити об'єкт Vixod і для події Click записати: Private Sub Viхоd_Click() End End Sub | |
Завдання функцій кнопки Очищення | Установити об'єкт Och (властивість Name має ім'я Och) і для події Click записати: Private Sub Och_Click() n.Text = “ “ y.Text = “ “ End Sub | |
Обчислення суми товарообігу. | Установити об'єкт Rachet і для події Click записати: Private Sub Rachet_Click() Dim i As Integer, p As Single ’ оголошення параметра циклу i як цілого ’ оголошення вводимих слагаемих p у формі з плавающей комой For і = 1 To n p = InputBox("Введить Xi") y.Text = Val(y.Text) + p Next i End Sub | |
Зберегти проект з ім'ям «Цикл із запитом» | Меню File ® команда Save Project ® задати ім'я файлу і папку. | |
Налагодити програму | Меню Run ® команда Start, увести кількість днів – 2, клацнути по кнопці Розрахунок, ввести у вікно запиту дані контрольного приклада X1 = 5, X2 = 7, повинний вийти відповідь у = 12. | |
Налагоджену програму зберегти | Меню File ® команда Save Project. |
Дата публикования: 2015-01-13; Прочитано: 270 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!