Задание 2.3
Создайте форму приведенную ниже. Она предназначена для вычисления суммы последних трех цифр целого числа. Для ввода числа используется элемент Поле. Для вывода надписей на форме и вывода результата используются элементы Надпись.
В
свойстве Picture формы укажите рисунок,
который будет использован в качестве
фона. В примере использован рисунок из
файла Thatch.bmp. Значение свойства
PictureTiling установите равным True, тогда
рисунок будет размножен.
На этой форме 4 элемента Надпись, 1 элемент Поле и 2 Кнопки.
Для надписи, в которой выводится заголовок формы, установите значение свойства BackStyle=0, тогда не будет виден фон элемента Надпись, и получится, будто текст написан прямо на форме.
Для элемента Надпись, в котором выводится результат (Label4), установите значения свойств BackColor – белый, SpecialEffect=2. Тогда элемент внешне будет выглядеть как элемент Поле. Текст процедуры для кнопки «Вычислить»:
Private Sub CommandButton1_Click()
X = (TextBox1.Text) Mod 1000
Единицы = X Mod 10
Сотни = X \ 100
Десятки = (X \ 10) Mod 10
Label4.Caption = Сотни + Десятки + Единицы
End Sub
3.Реализация алгоритмов с условиями Программирование условий Операторы сравнения
Для сравнения двух выражений в VBA используются операторы:
Операция |
Описание |
операнд1 < операнд2 |
Меньше. Результат - True, если первый операнд меньше второго. |
операнд1 > операнд2 |
Больше. Результат - True, если первый операнд больше второго. |
операнд1 <= операнд2 |
Меньше или равно. Результат - True, если первый операнд меньше или равен второму. |
операнд1 => операнд2 |
Больше или равно. Результат - True, если первый операнд больше или равен второму. |
операнд1 = операнд2 |
Равно. Результат - True, если операнды равны. |
операнд1 <> операнд2 |
Не равно. Результат - True, если операнды не равны. |
строка Like маска |
Соответствие маске. Результат - True, если строка соответствует маске. |
операнд1 Is операнд2 |
Ссылка на объект. Результат будет равным True только в том случае, когда обе переменные ссылаются на один и тот же объект. Если операнд2 является идентификатором типа, то операция Is возвращает значение True в случае, когда объект, на который указывает ссылочная переменная (операнд1), принадлежит к данному типу. |
Логические операции
Используя логические операции из отдельных операций сравнения можно строить сложные логические выражения. В VBA существуют следующие логические операции:
Операция |
Описание |
операнд1 AND операнд2 |
Логическое «И». Если оба операнда имеют значение True, результат имеет значение True. Если хотя бы один из операндов имеет значение False, результат имеет значение False. |
операнд1 OR операнд2 |
Логическое «ИЛИ». Если один или оба операнда истинны (имеют значение True), результат также имеет значение True. |
NOT операнд |
Логическое отрицание. Результат имеет значение True, если операнд имеет значение False, и наоборот. |
операнд1 IMP операнд2 |
Логическая импликация (см. справку). |
операнд1 EQV операнд2 |
Логическая эквивалентность. Результат имеет значение True, если операнды имеют одинаковые значения (оба True или оба False). |
операнд1 XOR операнд2 |
Исключающее «ИЛИ». Если один и только один операнд имеет значение True, результат имеет значение True. |
Для программирования условий в программах на VBA используются условный оператор IF, оператор выбора Select Case и некоторые функции.