End Sub. У розглянутих раніше прикладах використовувалися прості перемінні, котрі вводилися в текстові вікна

У розглянутих раніше прикладах використовувалися прості перемінні, котрі вводилися в текстові вікна. У наступному прикладі розглянемо арифметичний цикл з індексованими перемінними, тобто роботу з масивом.

Приклад 1: Написати програму обчислення суми товарообігу підприємства за місяць, якщо відомий щоденний товарообіг по формулі

де: n – кількість днів у місяці,

x_i – щоденний товарообіг,

i – поточний день місяця.

Форма проекту представлена на малюнку:

Виконання:

У даному прикладі з'явився новий запис - x_{i ,} що називається індексированой перемінной і використовується при роботі з масивами. Для занесення таких даних можна використовувати засобу убудованого діалогу – панель уведення. Панель уведення викликається функцією 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-03