End Sub

Private Sub Command1_Click()

Rem Загадка

Составные условия

End Sub

Private Sub Command1_Click()

N$ = InputBox("Как вас зовут")

If N$ = "Саша" Then Print "Здравствуйте, Александр!" _

Else Print "Я с Вами не знакома"

4. Оператор If…Then…Else ничего не выводит на экран. В памяти компьютера проверяется условие - оно может принимать только два значения True или False (истина или ложь). Если условие – истина, то выполняется серия команд стоящих после слова Then, а если в них есть оператор Print, то он может вывести на экран (в форму) какую-то информацию, если в этой серии команд имеется оператор присваивания, то в памяти выполняется присваивание переменной какого-либо значения.

5. Знаков препинания не должно быть.

6. Условный оператор может быть записан в нужном месте программы.

7. --------

В условной конструкции может проверяться сразу несколько условий. Например, если на улице хорошая погода, и я не болею, то пойду в поход, иначе останусь дома.

На языке VB, в этом случае, условия соединяются логическими функциями And, Or, Not, аналогами русских слов И, Или, Не. Отдельные условия заключаются в скобки и между ними записываются логические функции.

Z$ = InputBox («Зимой и летом одним цветом?», ”Загадка”)

If (Z$ = «ЕЛКА») Or (Z$ = «Елка») Or (Z$ = «елка») _

Or (Z$ = «ЕЛЬ») Or (Z$ = «Ель») _ Or (Z$ = «ель») _

Then Print «Угадали!» Else Print «Вы ошиблись»

Любопытно: Любой язык программирования имеет условную конструкцию. С её помощью компьютер начинает «мыслить». Постороннему пользователю кажется, что компьютер осознанно выполняет команды и правильно оценивает промежуточные действия. Программисты знают, что «мыслительная» деятельность компьютера и программы целиком зависит от человека, который её создал. Если вы хотите заработать миллион, то попробуйте создать такую программу, которая пройдёт тест Тьюринга. Алан Тьюринг выдающийся английский математик, участвовал в разработке компьютеров на заре компьютерной эры. Его тест заключается в том, что независимый эксперт находится в одной комнате, а в другой - «черный ящик» (либо человек, либо программа). Эксперт общается через текстовые сообщения, поступающие от «черного ящика». Если тестер точно определит, что за стеной компьютер, то тест не пройден. Если же ответы машины окажутся логичными настолько, что их нельзя отличить от человеческих, то можно заработать миллион. На сегодняшний день этот тест никто ещё не прошёл, так что дерзайте!