Стаття 10 Свобода вираження поглядів

Дата добавления: 2015-10-18; просмотров: 708

Тема: Складання та описування мовою програмування алгоритмів, в яких використовуються структури розгалуження та повторення.

Мета: Закріпити вміння та навички роботи в середовищі програмування VBA, використовувати форми та елементи керування. Навчитись використовувати на практиці базові структури: розгалуження та повторення. Виховувати культуру роботи в середовищі розробки програм та самостійність по відлагодженню проектів.

Обладнання: ОС Windows, редактор MS Excel, середовище VBA

Порядок виконання роботи:

1. Створити програму, яка визначає найменше з трьох чисел.

2. Розробити програму, яка імітує калькулятор.

3. Створитии нову форму. Оформити її згідно зразка, встановити довільний фоновий малюнок. Для кнопки «Результат» скласти програму обчислення суми та середнього бала студента. Якщо середній бал більше 7, зазначити, що студент матиме стипендію, інакше – ні. Для кнопки Вихід забезпечити закриття форми.

4. Розробити програму, призначену визначати суму коштів, які має сплатити споживач електроенергії, якщо обчислення відбувається за комбінованим тарифом. Це означає, що споживач щомісяця може використовувати певну кількість кВт*год електроенергії, сплачувати за використання яких він має за пільговим тарифом. Якщо за місяць споживач використає більшу кількість електроенергії, то сплата різниці між спожитою та пільговою електроенергією обчислюється за звичайним тарифом.

5. Розробити програму, яка допоможе водію визначити, яку суму він має сплатити на АЗС за бензин.

6. Створити форму наступного виду. Виконати дії:

1. Відповідним на формі командним кнопкам з властивістю Caption: Ввести масив, Знайти найбільший елемент в масиві, Знайти найменший елемент в масиві, Виконати завдання згідно свого варіанту встановити властивість Name: cmdVvod, cmdMax, cmdMin, cmdZavdanya.
2. Напис для значення „майбутнього результату” назвати LbRezultat, а для "кількості елементів" – LbRazmer(властивість Name).
3. Додайте на форму елемент керування HScroll та назвіть його HsRazmer. Властивостям надати такі значення Min=1, Max=10.
4. Скласти код програми, використовуючи нижче наведений код як зразок, додавши в нього частину коду, що забезпечує виконання вашого завдання. При введенні коду у процедури командних кнопок заголовки процедур отримати автоматично (двічі клацнути на відповідній кнопці).

Зразок коду

Dim mas(10) As Integer

Private Sub cmdVvod_Click()

For i = 1 To HsRazmer.Value

mas(i) = InputBox("Введіть " + Str(i)+ " елемент ", "Введення елементів масиву")

Next i

End Sub

Private Sub CmdMax_Click()

Max = mas(1)

For i = 1 To HsRazmer.Value

If mas(i) > Max Then

Max = mas(i)

End If

Next i

LbRezultat.Caption = Max

End Sub

Private Sub HsRazmer_Change()

LbRazmer.Caption = HsRazmer.Value

End Sub

Private Sub HsRazmer_Scroll()

HsRazmer_Change

End Sub

Власний варіант:

1. Знайти суму елементів масиву, що є невід’ємні, та вивести їх на форму.
2. Знайти добуток елементів масиву, що є більше нуля, та вивести їх на форму.

Теоретичні завдання:

1. Записати, як буде виглядати дана функція в VBA .

2. Написати блок-схему до задачі 3.

3. Написати тест програми з використанням оператора CASE: Ввести номер місяця, вивести номер кварталу.

4. Знайти суму непарних чисел від 1 до 100.

Контрольні питання:

1. Чим відрізняється оператор Select Case від умовного оператора

2. Які типи циклів ви знаєте?

3. Як додати елемент до списку на формі?

4. Як можна вивести картинку на форму?

5. Призначення функції Val?

Материальное обеспечение.

Лабораторная установка «Операционные усилители» - ЛУ-5.

Электронный осциллограф.

Комбинированный прибор подгруппы Ц.