 ПОЗНАВАТЕЛЬНОЕ Сила воли ведет к действию, а позитивные действия формируют позитивное отношение Как определить диапазон голоса - ваш вокал Игровые автоматы с быстрым выводом Как самому избавиться от обидчивости Противоречивые взгляды на качества, присущие мужчинам Вкуснейший "Салат из свеклы с чесноком" Натюрморт и его изобразительные возможности Применение, как принимать мумие? Мумие для волос, лица, при переломах, при кровотечении и т.д. Как научиться брать на себя ответственность Зачем нужны границы в отношениях с детьми? Световозвращающие элементы на детской одежде Как победить свой возраст? Восемь уникальных способов, которые помогут достичь долголетия Классификация ожирения по ИМТ (ВОЗ) Глава 3. Завет мужчины с женщиной
Оси и плоскости тела человека - Тело человека состоит из определенных топографических частей и участков, в которых расположены органы, мышцы, сосуды, нервы и т.д.
| Практическое занятие №3. Программирование ветвлений
Задача.
С помощью линейных алгоритмов решаются самые примитивные задачи. Более сложные и серьезные задачи решаются с помощью более сложных алгоритмов, в которых последовательность выполнения команд зависит от выполнения или не выполнения некоторых условий. Такого рода задачи называются нелинейными. Алгоритмы в данных задачах называются алгоритмами ветвления. Прежде чем рассматривать алгоритмы ветвления, объясним понятие логического выражения. Это выражения неарифметического типа, такие выражения называют также условными. Рассмотрим операции сравнения:
Наиболее простым шагом в рассмотрении нелинейных алгоритмов является оператор условного перехода. Данный оператор имеет две формы синтаксиса: упрощённая однострочная форма и более сложная ступенчатая или многострочная. Однострочная форма имеет следующий синтаксис: IfУсловноеВыражение ThenОператор1[Else Оператор2] Многострочная форма синтаксиса более сложная: IfУсловноеВыражение Then ПоследовательностьОператоров1
ПоследовательностьОператоров2] End if На схеме показаны основные конструкции условного перехода.
Часто на практике приходится решать задачи, когда нужно проверить несколько условий. Тогда условные переходы получаются вложенными друг в друга. На блок–схеме это выглядит следующим образом
Такая ступенчатая схема в программном коде выглядит так: If Условие1 Then СписокОператоров1 Elseif Условие2 Then СписокОператоров2 Elseif Условие3 Then СписокОператоров3 …………………….. End if
В такой многоступенчатой схеме было применено ключевое слово Elseif, которое переводится как ИначеЕсли. Заметим, что вся эта многоступенчатая схема заканчивается только одним End if.
Составим блок-схему для нашей задачи:
è Откройте приложение MS Excel. è Выполните команду СервисàМакросàРедактор Visual Basic или нажмите <Alt+F11>. è Добавьте форму (команда Insertà UserForm) è Для изменения размеров формы используйте указатель мыши помещённый в правый нижний угол окна Формы(UserForm) è Разработайте пользовательский интерфейс, расположив на форме с помощью панели инструментов управления (ViewàToolBox), следующие объекты управления: Label (Метка), TextBox (Текстовое поле), CommandButton (Командная кнопка). è В окне Properties (Свойства) для каждого объекта управления установить свойства, приведённые в таблице 2. Таблица 2.
è Примерный интерфейс программы может выглядеть так:
è Код программы: Private Sub cmdRun_Click() Dim S As Single Dim P As Single S=Val(txtSummaSdelki.Text) If S<= 150000 Then P=S*0.05 ElseIf S>= 500000 Then P=S*0.03 Else P=S*0.04 End If txtNagrada.Text = Str(P) End Sub è Сделайте расчёты для трёх случаев. è Удалите текстовое поле с именем «txtSummaSdelki» и в коде программы строку «S=Val(txtSummaSdelki.Text)» è На место удалённого объекта вставьте метку и именем «lblSummaSdelki» (обратите внимание, впереди стоит латинская буква «L» малая, а не «1 (единица)») è На место удалённой строки в коде программы вставьте следующую запись:
lblSummaSdelki=Str(S)
В приведённой выше части кода программы использовалась функция InputBox. Данная функция предназначена для ввода данных в программу. Она имеет следующий синтаксис: InputBox (Запрос [, Заголовок] [, По_умолчанию] [, Xpos] [ Ypos] [, Справка, Раздел]) è Сохраните файл под именем «Брокерское вознаграждение»
|
[Else
S=InputBox(“Введите значение суммы сделки”)