Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

Приклад виконання завдання




End Select

Case Else

..............

END IF

ELSE

Умовний оператор

 

Якщо дії в програмі повинні виконуватись в залежності від виконання чи не виконання певної умови, то використовують умовний оператор, який дозволяє організувати розгалуження в програмі і має формат:

IF умова THEN

інструкції 1

інструкції 2

Алгоритм роботи оператора:

1. Якщо значення умови дорівнює істині, то виконується інструкція 1 і управління передається на оператор, що слідує за інструкцією2 (тобто інструкція 2 не виконується).

2. Якщо значення виразу -- неправда, то виконується. Інструкція 2.

Для запису умов можна використовувати операції порівняння =, <, <=, >, >=, <> та логічні операції AND, OR і NOT.

Декілька умов можна перевірити, використовуючи логічні опе­рації або вкладені умовні оператори.

Частина ELSE може бути відсутня

IF умова THEN оператор

Інколи в програмі необхідно вибрати один з кількох варіантів. В цьому випадку буває раціональним використання оператора Case що має такий формат

 

Select Case выраз

Case список 1 значень виразу

інструкції 1

Case список 2 значень виразу

інструкції 2

інструкції для Else

В першому рядку оператора записується вираз, а потім він порівнюється зі списками значеньвиразу.. Найчастіше вираз – цечислова або строкова змінна. Якщо вираз задовольняє одному зі списків, то виконуються інструкції, записані після цього списку, і оператор закінчує роботу. Списки значень, записані нижче, не перевіряються, тобто виконуєть­ся тільки одна з інструкцій. Якщо вираз НЕ задовольняє жодному зі списків значений, то виконується інструкція для Else. Проте,остан­ня частина (Case Else) в операторі може бути відсутня.

 

Знайти значення та

Sub завдання_2()

Dim a As Single, b As Single

Dim x As Single, f As Single

a = Worksheets("Лист1").Cells(1, 1).Value

b = Worksheets("Лист1").Cells(2, 1).Value

x = (a - b) / (a * a - a * b / Sin(a))

If a * b < 15 Then

f = Exp(a * x + 3) * Sin(x / b)

ElseIf (a * b >= 15) Then

f = a * Log(x) * Sin(x)

End If

Worksheets("Лист1").Cells(3, 1).Value = " X "

Worksheets("Лист1").Cells(4, 1).Value = " F "

Worksheets("Лист1").Cells(3, 2).Value = x

Worksheets("Лист1").Cells(4, 2).Value = f

End Sub

4.2 Індивідуальні завдання

На листі Excel знаходяться значення змінних а, в, с, d. Обчислити координати точки P(x,y) та вивести результати розрахунків на лист Excel.

Варіанти завдань

Номер варіанту Формули для обчислювання
x y
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 

5. ОПЕРАТОРИ ЦИКЛІВ

5.1 Теоретичні відомості

Циклом називають групу операторів, що повторюється багато­разово з різними значеннями деякої змінної, яка називається змінною або параметром циклу.

5.1.1 Оператор циклу з лічильником.

Синтаксис:

For параметр = значення1 To значення2 Step h

інструкції тіла циклу

Next

Оператор повторює виконання тіла циклу, змінюючи значення параметру циклу від значення1 до значення2 із кроком h. Якщо крок дорівнює 1, його можна не вказувати.

Задача 5.1 В діапазоні B2: B24 записані числа. Знайти суму і кількість додатнних чисел діапазону.

Використаємо для розв’язку задачі об’єкт Cells – клітинку.

Sub СумаТаКількість()

Dim suma as Single, k as Integer, i as Integer

suma =0: k=0

For i =2 To 24

If Cells(i, 2). Value >0 Then

k = k+1 ‘ збільшуємо кількість

suma = suma +Cells(i, 2). Value ‘ накопичуємо суму

End if

Next i

MsgBox “Додатних чисел – “ & Str(k) & “, сума – ” & Str(suma)




Поделиться с друзьями:


Дата добавления: 2014-10-31; Просмотров: 396; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.013 сек.