Next X3

Next X2

Next XI

End Sub

2. Если таких наборов много, то поиск минимального или
максимального значения целевой функции можно осу­
ществить стандартным методом поиска элемента в мас­
сиве.

5.17. Проект хранится в файле Model.xls в каталоге \textbook\Ex- cel\.

1. На листе «Полусумматор» предусмотреть ввод логических
значений аргументов в ячейки В1 и В2.

В ячейку ВЗ ввести формулу =И(В1;В2). В ячейку В4 ввести формулу =НЕ(ВЗ). В ячейку В5 ввести формулу =ИЛИ(В1;В2). В ячейку В6 ввести формулу =И(В5;В4).

2. Добавить форму и поместить на нее четыре метки и шесть
текстовых полей. Создать событийную процедуру:

Private Sub cmdl_Click() Cells(1, 2) = txtA.Text Cells(2, 2) = txtB.Text txtP.Text = Cells(3, 2) txtNot.Text = Cells(4, 2) txtOr.Text = Cells (5, 2) txtS.Text = Cells(6, 2) End Sub

Ответы я указания к решению

3. Запустить проект, ввести зна­чения аргументов и щелк­нуть по кнопке Перенос и сумма.

|F''se и | | True

ИЛИ I

False HE

Ой*УЛ9**^* " |

Юъ 4

5.18. Проект хранится в каталоге \textbook\VB\prjZ5-18\. 1. Модернизировать модель замкну­той системы управления: в собы­тийную процедуру добавить код автоматической корректировки координат точки:

Select Case bytX2 - bytXl

Case Is > 0

bytXl = bytXl + 1

Case Is < 0

bytXl = bytXl - 1

Case Is = 0

bytXl = bytXl