End Sub. 4.28. Проект «Поиск в строковом массиве-2» хранится в папке prjZ4-28. ВШ JsL><i |абвгдеёжзиклмнопрстуфхцчшщьыьэюя

4.28. Проект «Поиск в строковом массиве-2» хранится в папке
prjZ4-28.

ВШ

JsL><i

|абвгдеёжзиклмнопрстуфхцчшщьыьэюя

1. В проекте «Поиск в строковом массиве» в событийную проце­дуру ввести:

• считывание алфавита из тек­стового поля txtl: strA(bytl) = Mid$(txtl. Text, bytl, 1);

• ввод искомого символа в поле txt2: strB = txt2.Text;

• вывод номера символа в поле txt3: txt3.Text = bytN.

4.29. Проект «Поиск максимального элемента» хранится в пап
ке prjZ4-29.

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

4.30. Проект «Сортировка по убыванию» хранится в папке prjZ4-30.

4.31. Проект «Растр» хранится в папке prjZ4-31. Программный код:

Dim intX As Integer, lngl As

Long

Private Sub cmdStart_Click()

'Масштаб

picAmm.Scale (0, 600) - (800, For mtY = 600 To 0 Step For intX = 0 To 800 Step

vbBlue

'Рисование растра picAnim.PSet (intX, intY),

' Задержка

For lngl = 1 To 50000

Next lngl

Next intX

Next intY

End Sub

4.32. Проект «Логические операции» хранится в папке prjZ4-32
В проекте «Таблица истинности операции логического ум­
ножения» ввести в код событийной про- НШНК. -IdI xI

0 0 0 0 0 1 0 10 110 10 0 110 11110 1

Or

Товпицы истинности

цедуры строку: frml.Print -intA; -mtB; -(intA And mtB); -(intA intB); -(mtA Xor intB); - (intA Eqv mtB)

4.33. Проект «Логические операции» хранится в папке prjZ4-33.

Integer

Dim Sub For For For mtP

ПВВШ& 0 0 0 0 0

-1 Step -1 -1 Step -1 -1 Step -1 intB) Or Or (intB

0 0 1 0 1 0 0 1 1 1 0 0 1 0 1 1 1 0 1 1 1

intA, intB, intPO, intP, intS As cmdl_Click() mtA = 0 To intB = 0 To intPO = 0 To = (mtA And

Переноси сумма

intPO)

(mtA And And intPO)

-mtP; -intS

intS = (mtA Or mtB Or intPO) And Not mtP Or (mtA And mtB And intPO) frml.Print -intA; -intB; -intPO Next intPO Next mtB Next mtA End Sub

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

4.34. Макрос «Форма» хранится в файле Редактирование doc в
каталоге \textbook\VBA\.

4.35. Проект «Инженерный калькулятор» хранится в файле
Макросы и проекты xls в каталоге \textbook\VBA\.

1. Усовершенствовать проект «Калькулятор»: поместить на форму дополнительно шесть кнопок для создания событий­ных процедур вычисления тригонометрических функций sin(x), cos(*), tan(x), логарифма log(x,y), квадратного кор­ня sqr(;c) и возведения числа в степень х~у.

2. Ввести в ячейки электронной таблицы Dl, D2, D3, D4, D5 и D6 формулы для вычисления функций.

3. Создать событийные процедуры. Событийная процедура возведе­ния числа в степень: Private Sub cmdSt_Click () Cells (1, 1) = Val(txtl.Text) Cells (1, 2) = Val(txt2.Text) txt3.Text = Cells(6, 4)