Лекция 9(5) Программирование на VBA
.pdf
Программирование алгоритма разветвляющейся структуры
В алгоритме разветвляющейся структуры вычислительный процесс в зависимости от выполнения некоторого логического условия осуществляется по одной или по другой ветви , т.е. вычисления осуществляются по одним или по другим формулам.
|
ì sin(x) |
åñëè |
x > |
0 |
||
Y = |
ï |
1 |
åñëè |
x = |
0 |
|
í |
||||||
|
ï |
e |
x |
åñëè |
x < |
0 |
|
î |
|
||||
ПРИМЕР. Вычислить У, выбрав
формулу решения в зависимости от значения Х.
Для решения таких задач используется оператор
if Then Else
Лекция 9. Информатика, часть 2 |
21 |
Блок-схема алгоритма решения задачи
Блок-схема алгоритма
Начало
Описание
переменных
Ввести Х
В алгоритме нужно предусмотреть:
1.Описание переменных X и Y
Да |
Х>0 |
|
|
|
2. |
Ввод X |
|
|
|
|
|
|
|||
|
|
|
|
|
|
|
|
Y= sin(x); S |
|
Х<0 |
Нет |
3. |
Сравнение Х с нулем |
|
|
|
|
|
4. |
Выбор формулы |
|
||
|
|
|
|
|
|
||
Y= ex; S |
|
|
Y= 1; S |
|
решения для Y в |
|
|
|
|
|
|
|
|||
Да |
|
|
|
Нет |
|
зависимости от |
|
Вывести S? |
|
|
значения Х |
|
|||
|
|
|
|
|
|||
|
|
|
5. |
Вывод результата – |
|
||
Вывести Y, S |
|
|
Вывести Y |
|
|||
|
|
|
|
|
|||
|
Конец |
|
|
|
|
значения Y |
|
|
|
|
|
Лекция 9. Информатика, часть 2 |
22 |
||
Разработка формы
CheckBox
-флажок
Лекция 9. Информатика, часть 2 |
23 |
Программирование объекта CheckBox (флажка) с использованием оператора If
If CheckBox1.Value = True Then
выполняются инструкции, если флажок «установлен»
Else
выполняются инструкции, если флажок «сброшен»
End If
Лекция 9. Информатика, часть 2 |
24 |
Разработка Кода программы задачи
1.2 раза щелкните по кнопке Вычислить, расположенный на форме
2.Появятся строки:
Private Sub CommandButton1_Click()
End Sub
3.Наберите между этими строками код программы.
4.Запустите программу на выполнение командой Run (F5).
Лекция 9. Информатика, часть 2 |
25 |
Кода программы
Private Sub CommandButton1_Click()
Dim x As Single, y As Single, s As String ‘Описание переменных x = TextBox1.Value ‘ Ввод Х
If x > 0 Then
У = Sin(x) : s = "(при Х >0 У=SIN(X))” ‘ s-сообщение Else
If x < 0 Then
У= Exp(x) : s = "(при Х <0 У= EXP(X))" Else
У= 1: s = "(при Х =0 У=1)"
End If
End If
‘Программирование флажка и вывод У If CheckBox1.Value = True Then
Label3.Caption = Str(У) & s ‘ флажок установлен, выводится y и s Else
Label3.Caption = Str(У) ‘ флажок сброшен, выводится только y
End If End Sub
Лекция 9. Информатика, часть 2 |
26 |
Результаты работы программы:
верхний ряд форм - без вывода условия выбора формулы решения; нижний ряд форм – с выводом условия выбора формулы решения
Лекция 9. Информатика, часть 2 |
27 |
Оператор выбора Case
Используется в том случае, если нужно проверить несколько условий
Выполняет одну из нескольких групп инструкций в
зависимости от значения выражения
Select Case выражение Case выражение 1 Инструкции 1
Case выражение 2 Инструкции 2
…….
Case выражение n Инструкции n
Case Else Инструкции иначе
End Select
Лекция 9. Информатика, часть 2 |
28 |
Код программы с использованием Case
Private Sub CommandButton1_Click()
Dim x As Single, y As Single, s As String ‘Описание переменных x = TextBox1.Value ‘ Ввод Х
Select Case x Case Is>0
У = Sin(x): s = "(при Х >0 У=SIN(X))" ‘ s-сообщение Case 0
У= 1: s = "(при Х =0 У=1)" Case Is<0
У = Exp(x): s = "(при Х <0 У= EXP(X))" End Select
‘Программирование флажка и вывод z If CheckBox1.Value = True Then
Label3.Caption = Str(У) & s ‘ флажок установлен Else
Label3.Caption = Str(У) ‘ флажок сброшен
End If End Sub
Ключевое слово Is задаетЛекциядиапазонИнформатика,значенийчасть. Если Is не указано, оно задается по умолчанию
Выводы
•В лекции рассмотрены фундаментальные понятия языка: типы переменных; функции, в том числе преобразования типов и основные операторы языка.
•Подробно рассмотрено программирование задачи выбора формулы решения с использованием операторов If и Case.
•Показан объект формы Флажок (CheckBox) и принципы его программирования.
Лекция 9. Информатика, часть 2 |
30 |