Зараз обговорюють

"Тобто є ряд завдань, які взагалі без рекурсії не наважуються."  - це як розуміти? Перефразуй, будь ласка. 

виправив, йшлося про те що деякі завдання можна вирішити лише при використанні рекурсії

Спасибі дуже корисна стаття

А ще щось планується подібного найближчим часом?


Дякую за підтримку, радий що Вам сподобалось!

Так маю вже майже дороблений проект по управлінні Audio файлом, на заміну стандартним клавішам управління HTML5, але ще не встиг відтестувати програвання файлів з інтернету, поки лише локально працює

Надіюсь найближчим часом дороблю й закину

Рахунки

webmoneyeur - E385818210641
usd - Z304643423050
uah - U354026817492
rub - R301704373231easypay80002677bitcoin1F5HRGroUtEQW9HBNbeew8iKh5KQ8vJxzw

Зворотній зв'язок

Для покращення роботи сайту надсилайте свої зауваження:
mailЗауваження
mailПропозиція

Статистика

UkrNET - поисково-информационный ресурс

VBA : Перевірка умов. Оператор If...Then...Else

Перевірка умов в VBA, вкладені конструкції If

В програмуванні досить часто зустрічаються ситуації, коли необхідно, щоб процедури або функції виконували різні дії при різних умовах. Оператори, які виконують роль розгалуження програми на підставі будь-якої умови, називаються операторами умовного переходу. Найпростішими операторами умовного переходу є оператори If...Then; If...Then...Else. Він дозволяє обрати один із двох варіантів дій які буде виконано в залежності від отриманого значення заданої умови, True(умова виконується) або False(умова не виконується).


If...Then

Синтаксис If...Then:

Спрощений варіант

	If [умова] Then [Блок 1. Код який буде виконано при отриманні значення True]

Класичний варіант

If [умова] Then
	[Блок 1. Код який буде виконано при отриманні значення True]
End If 
 

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

Класичний варіант дозволяє також вказувати кілька операторів в різних рядках.

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

Приклад 1:

Маємо 2 значення x та y, нам потрібно визначити чи вони рівні одне одному, якщо так тоді вивести відповідне повідомлення.

Sub example1()
	Dim x as Integer, y as Integer
		x = 10
		y = 5
		If x = y Then MsgBox ("Значення x та y рівні між собою")
End Sub 

Відповідь: Нічого не виведеться на екран, тому що не була виконана задана умова


If...Then...Else

Синтаксис If...Then...Else:

If [умова] Then
	[Блок 1. Код який буде виконано при отриманні значення True]
Else
	[Блок 2. Код який буде виконано при отриманні значення False]
End If 

VBA зчитує код наступним чином:

- якщо умова повертає значення True починається виконання [Блоку 1] і переходить на рядок End If пропускаючи Else [Блок 2], при наявності

- якщо умова повертає значення False пропускає [Блок 1], і починається виконання [Блоку 2], при наявності, або переходить на рядок End If, за його відсутності

Одночасно обробити блоки True і False неможливо! Якщо потрібно зробити додаткову перевірку то для цього ми можемо вставити ще одну конструкцію If...Then, або If...Then...Else, або If...Then...ElseIf в [Блок 1] чи [Блок 2].

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

Приклад 1:

Маємо 2 значення x та y, нам потрібно визначити чи вони рівні одне одному і вивести відповідне повідомлення.

Sub example1()
	Dim x as Integer, y as Integer
		x = 10
		y = 5
		If x = y Then
			MsgBox ("Значення x та y рівні між собою")
		Else
			MsgBox ("Значення x та y не рівні між собою")
		End If
End Sub 

Відповідь: Значення x та y не рівні між собою

Приклад 2:

Отримуємо випадкове значення від 1 до 100, нам потрібно визначити із якої четверті це число.

Sub example2()
	Dim x As Integer
		x = Int((100 - 0 + 1) * Rnd + 0)
		If x <= 50 Then
			If x <= 25 Then
				MsgBox ("Значення x = " & x & " та належить до I-четверті")
			Else
				MsgBox ("Значення x = " & x & " та належить до II-четверті")
			End If
		Else
			If x <= 75 Then
				MsgBox ("Значення x = " & x & " та належить до III-четверті")
			Else
				MsgBox ("Значення x = " & x & " та належить до IV-четверті")
			End If
		End If
End Sub 

Відповідь: завжди буде різною, тому що кожного разу буде генеруватись нове випадкове число


If...Then...ElseIf

Синтаксис If...Then...ElseIf:

If [умова1] Then
	[Блок 1. Код який буде виконано при отриманні значення True з умови1]
ElseIf [умова2] Then
	[Блок 2. Код який буде виконано при отриманні значення True з умови2]
End If 

Якщо [умова1] повертає значення False тоді ми переходимо до перевірки [умови2] якщо вона поверне значення True тоді буде виконано Блок 2. При двох False жоден блок не буде виконано.

Зверніть увагу, що оператори секції [Блок1] та [Блок2] написані з використанням відступу (використовується табуляція). Це важливий момент. Слід відразу привчати себе до подібного оформлення програмного коду - це підвищує його читабельність і значно полегшує пошук помилок.

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

Отримуємо випадкове значення від 1 до 100, нам потрібно визначити із якої четверті це число.

Sub example2()
	Dim x As Integer
		x = Int((100 - 0 + 1) * Rnd + 0)
		If x <= 25 Then
			MsgBox ("Значення x = " & x & " та належить до I-четверті")
		ElseIf x <= 50 Then
			MsgBox ("Значення x = " & x & " та належить до II-четверті")
		ElseIf x <= 75 Then
			MsgBox ("Значення x = " & x & " та належить до III-четверті")
		ElseIf x <= 100 Then
			MsgBox ("Значення x = " & x & " та належить до IV-четверті")
		End If
End Sub 

Відповідь: завжди буде різною, тому що кожного разу буде генеруватись нове випадкове число


view1118like0dislike0 avatard_l4w clock 2016-04-20 01:46

Коментарі:



Для даної статті відсутні коментарі

Про нас

"Programmers World" розроблено з метою полегшення в освоєнні навичок програмування, та поширення матеріалів з сфери ІТ Українською мовою.

Кожен бажаючий може безкоштовно користуватися ресурсами сайту, щоб:

- Вивчати теоретичні аспекти мов програмування

- Переглядати практичне застосування теорії при виконанні різних міні проектів з відкритим кодом

- Розміщати свої завдання на форумі для допомоги в їх реалізації, або готового коду який може бути корисний іншим користувачам

- Спілкуватись з іншими користувачами та обмінюватись досвідом

Сайт функціонує на безопланій основі та ентузіазмі розробника, якщо Ви бажаєте долучитись до розвитку даного проекту то можете пожертвувати кошти на рахунки розміщені в блоці "Допомога сайту".

Сайт

Зареєстровані користувачі можуть скористатися системою діалогів, в профілі користувача, для отримання потрібної інформації. Написати!

Також Ви можете використати форми відправки Зауважень та Пропозицій.


Електронна пошта

Ви можете звертатись на нашу поштову скриньку site.programmersworld@gmail.com

www.000webhost.com