Лекция: Next X3

Next X2

NextXI

End Sub

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

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

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

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

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

Private Subcmdl_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 CasebytX2 — bytXl

Case Is> 0

bytXl = bytXl + 1

Case Is< 0

bytXl = bytXl — 1

Case Is= 0

bytXl = bytXl