- •Лабораторная работа №2(VBA)
- •Условные операторы
- •Типы операторов выбора
- •Оператор выбора If ... Then
- •Общий вид (сокращенная форма без Else):
- •Примеры
- •Условие в операторе If является логическим выражением, истинность которого проверяется. Оно может принимать
- •Операции отношения
- •Основные логические операции And (И) , Or (Или), Not (Не)
- •Логическая
- •А и В – логические выражения
- •Примеры
- •Примеры сложных (составных) условий
- •Значение выражения 0 (Ложь) Значение 0 (Ложь)
- •Оператор IF может быть записан в
- •Блочная (полная) форма
- •Блочная (полная) форма
- •Блочная (сокращенная)
- •Блочная (сокращенная)
- •Оператор выбора If ... Then
- •Оператор выбора If
- •Оператор выбора If
- •Оператор выбора If
- •Блочный оператор выбора
- •Вложенные операторы выбора
- •Пример
- •Dim x As Single, y As Single, w As Single, n As Single
- •Вычислить значение функции Y
- •Вычислить с использованием вложенных операторов If
- •Решение 1
- •Решение 2
- •Оператор выбора Select Case Общий вид
- •Пример использования Select Case
- •Формы пользователя
- •Формы пользователя
- •На форме можно создавать элементы управления:
- •Свойства и методы
- •Изменить свойство элемента управления (объекта) можно в окне свойств (Properties) или в программе,
- •Примеры
- •Для применения некоторого метода к объекту используется следующая команда
- •Пример
- •Показать форму пользователя
- •Ввод данных из текстового поля
- •Вставка рисунка на форме
- •Лабораторная работа 2
- •Программа для кнопки Вычислить
- •Label (Надпись)
- •Программа для кнопки Объем фигуры
- •Select Case str Case "шар"
- •Программа для кн. Вычислить на форме
Оператор выбора If
сокращенная форма
If Temperatura<10 Then MsgBox ”Надеть куртку”
Условие |
Оператор |
Temperatura<10
MsgBox ”Надеть куртку”
Оператор выбора If
Полная форма
Условие
Оператор1 |
Оператор2 |
Оператор выбора If
полная форма
If Number<10 Then Result=10 Else
Result=20
Условие Оператор1 Оператор2
Number<10
Result=10 |
Result=20 |
Блочный оператор выбора
|
|
|
|
|
|
Условие |
|
||
|
|
|
|
|
|
|
|||
|
|
|
|
|
|
|
|||
|
|
|
|
|
|
|
|||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Оператор1 |
|
|
Оператор1 |
||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Оператор2 |
|
|
Оператор2 |
||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
… |
|
|
|
… |
||
|
|
|
|
|
|
|
|
|
|
ОператорN |
|
|
ОператорN |
||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Вложенные операторы выбора
If Условие1 Then Оператор1
Else
If Условие2 Then Оператор1
Else
Оператор2
End If End If
Пример
Для x=0,5 n=5,5 y=32 вычислить:
z |
|
|
|
|
|
sin x |
|
x |
|||||||||
|
|
|
|
|
|
|
|
|
|
|
|
||||||
|
|
|
|||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
x 1 |
|
|
|
|
2 |
|
|
|
|
|
|
|
|
|
|
||||||||
|
|
|
|
|
|
|
, при x z |
||||||||||
|
|
xy |
|
||||||||||||||
|
|
|
|||||||||||||||
|
|
|
|
|
|||||||||||||
w |
|
|
|
|
|
|
|
|
|
|
|
2, при x z2 |
|||||
n ln |
|
x |
|
||||||||||||||
|
|
|
|||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Dim x As Single, y As Single, w As Single, n As Single x=Val(InputBox("х="))
n=Val(InputBox("n="))
y=Val(InputBox("y="))
z = Sin(x) / Sqr(Abs(x + 1)) + x If x < z ^ 2 Then
w = Sqr(Abs(x * y)) Else
w = n * Log(Abs(x ))+ 2 Endif
MsgBox (z, w)
Вычислить значение функции Y
y x, при x 0, n 0nx 2, при x 0, n 0
Dim x As Single, n As Single, y As Single x = Val(InputBox("Введите x "))
n = Val(InputBox("Введите n"))
If x >= 0 And n >= 0 Then y = Sqr(x) If x < 0 And n < 0 Then y = n * x + 2 MsgBox y
Вычислить с использованием вложенных операторов If
x 2, при x 0
y 5x, при 0 x 5x2 , при x 5