regeda_v_v_regeda_o_n_osnovy_programmirovaniya_na_vba

	ПРИЛОЖЕНИЕ 3.
	Таблица П3.1.
	Наиболее часто используемые методы формы
Метод	Описание
Show	Отображает форму на экране
Hide	Закрывает форму
Move	Изменяет местоположение и размер формы
PrintForm	Печатает изображение формы
	Таблица П3.2.
Методы, позволяющие строить графические изображения в форме
Метод	Описание
1	2

CIs Очищает форму, закрашивая ее цветом фона, т. е. цветом заданным свойством BackColor.

Paint- Выводит изображение в определенной области формы. Синтак-

Picture сис:

	PaintPicture	picture,	xl,	yl,	widthl,_
	height1, y2, width2, height2, opcode
	•Picture – источник графического			изображения, которое
	должно быть размещено в форме;
	•xl, yl– координаты левого верхнего угла, где будет распола-
	гаться рисунок;
	•widthl, height1 – ширина и высота рисунка;
	•х2, у2 и width2, height2 – задают координаты левого
	верхнего угла и ширину и высоту той части источника графи-
	ческого изображения, заданного параметром Picture, которая
	будет размещена в форме;
	•opcode – задает тип побитового смешивания размещаемого и
	уже, возможно, существующего изображения. Как правило, на
	форме размещается все изображение, заданное параметром
	Picture, поэтому параметры х2, у2 и width2, height2
	обычно не используются.
Print	Отображает в форме строку текста. Синтаксис: Print Строка

		Продолжение табл. П3.2
1		2
Scale	Устанавливает в форме систему координат.
	Синтаксис: Scale (xl, yl) - (х2, у2) ,
	где (xl, yl) и (х2, у2) – новые координаты левого верхнего
	и правого нижнего угла формы.
	Для того чтобы вернуться в масштаб, используемый по умол-
	чанию, надо применить метод Scale без параметров.
PSet	Создает точку заданного цвета. Синтаксис:
	PSet [Step] (x, у), [color]
	•(х,	у) – абсолютные координаты точки (когда ключевое
	слово step не используется) и относительные координаты точ-
	ки (в противном случае);
	•color – задает цвет точки; если этот параметр опущен, то
	цвет устанавливается равный цвету заданным свойством
	ForeGround.
Point	Возвращает цвет в определенной точке. Синтаксис:
	Point(х, у)
Circle	Рисует окружность, дугу или эллипс заданного цвета.
	Синтаксис:
	Circle [Step] (х, у), radius, [color,_ start,
	end, aspect]
	• (х,	у) – абсолютные координаты центра (когда ключевое
	слово step не используется) и относительные координаты цен-
	тра (в противном случае);
	• radius – радиус;
	• color– задает цвет точки; если этот параметр опущен, то цвет
	устанавливается равный цвету заданным свойством Back-
	Color;
	• start и end – углы в радианах, задающие начало и конец
	дуги, если рисуется не окружность, а дуга;
	• aspect – задает в эллипсе отношение длины вертикальной
	оси к длине горизонтальной.

	Продолжение табл. П3.2
1	2
Line	Рисует линию или прямоугольник заданного цвета. Синтаксис:
	Line [Step](xl,yl)–[Step](x2,y2),[color],
	[B[F]]
	•(xl, yl) и (х2, у2) – абсолютные координаты точек, кото-
	рые соединяет линия (когда ключевое слово step не использу-
	ется) и относительные координаты точки или точек (в про-
	тивном случае). Если первая точка опущена, то линия рисует-
	ся от текущей точки ко второй точке;
	•color – задает цвет точки; если этот параметр опущен, то
	цвет устанавливается равный цвету заданным свойством
	BackColor;
	•В – вместо линии вычерчивается прямоугольник с противопо-
	ложными углами в заданных точках; цвет и стиль закрашива-
	ния прямоугольника задается свойствами Filistyle и
	FillColor;
	•BF– прямоугольник закрашивается цветом заданным свойст-
	вом BackColor, игнорируя установки свойств Filistyle
	и FillColor.

При работе с формами особое место занимают следующие три инструкции (Табл. П3.3), которые управляют процессами начала и завершения работы с формой.

Таблица П3.3.

Инструкция Описание

Load	Загружает форму или элемент управления в память.Синтаксис:
	Load object
Unload	Выгружает форму или элемент управления с экрана и из памя-
	ти. Синтаксис:
	Unload object
End	Завершает выполнение кода без генерации событий Unload-
	QueryUnload или Terminate. Поэтому завершение работы
	приложения по инструкции End игнорирует код, написанный в
	процедурах, обрабатывающих перечисленные события.

Таблица. П3.4 Некоторые общие для форм и элементов управления события

Событие	Описание
Initilize	Происходит во время конфигурирования формы, но до ее
	загрузки
Load	Происходит после инициализации формы, но до ее отобра-
	жения на экран
Unload	Событие противоположное Load. Обычно используется для
	того, чтобы уточнить, действительно ли пользователь жела-
	ет закрыть форму
QueryUnload	Событие, происходящее перед событием	Unload	. Также
	используется для того, чтобы создать запрос у пользовате-
	ля, действительно ли он хочет закрыть окно
Terminate	Происходит при закрытии формы
Click	Происходят при щелчке и двойном щелчке в форме
DbClick
MouseDown	Происходят при нажатии кнопки мыши и ее отпускании
MouseUp
KeyDown	Происходят при нажатии и отпускании клавиши
KeyUp
Activate	Происходят при активизации и деактивизации формы
Deactivate
Resize	Происходит при изменении размеров формы. Обычно ис-
	пользуется для переопределения размеров элементов
	управления при изменении размеров формы так, чтобы со-
	хранить пропорцию их размеров и местоположение

ПРИЛОЖЕНИЕ 4. Варианты заданий к лабораторным работам

по курсу "Информатика" на тему ОСНОВЫ ПРОГРАММИРОВАНИЯ НА VBA

Разработать алгоритм решения задачи и реализовать этот алгоритм в среде VBA.

ВАРИАНТ 1

Найти минимальное значение радиуса шара R (изменяется от r1 до r2 с шагом k) и соответствующее значение радиуса основания r4, вырезанного из этого шара шарового сегмента, для которых объем шарового сегмента не меньше объема шара радиуса r3. Высота шарового сегмента h остается неизменной. Используя процедуру решить задачу для всех вариантов условий.

r1	R2	k	r3	h
19,3	0,7	-0,1	0,9	0,3
33,6	20,5	-0,1	13,7	12,6
11,1	3,3	-0,1	3,3	2,4
15,9	8,2	-0,1	7,2	7,6
2,54	1,09	-0,01	0,6	0,37

ВАРИАНТ 2

Найти минимальное значение высоты усеченного прямого конуса h1 (изменяется от l до n с шагом m) и соответствующее значения высоты h2 и образующей прямого конуса s, для которых объем усеченного прямого конуса не меньше объема куба со стороной a. Радиус верхнего основания r1 и радиус нижнего основания r2 усеченного прямого конуса остаются неизменными. Используя процедуру решить задачу для всех вариантов условий.

l	n	m	a	r1	r2
12,6	0,3	-0,1	2,7	1,2	3,9
16,9	4,1	-0,1	22,3	12,8	18,5
1,9	0,3	-0,01	1,1	0,36	0,98
7,2	3,9	-0,1	9,9	5,2	11,3
3,2	0,4	-0,1	3,3	2,4	6,2

ВАРИАНТ 3

Найти максимальное значение центрального угла нижнего основания шарового слоя α (изменяется от α1 до α2 с шагом γ) и соответствующее значения радиуса нижнего основания r1, радиуса верхнего основания r2 и высоты h шарового слоя, для которых объем шарового слоя не превосходит объема куба со стороной t. Радиус шара r, из которого вырезан шаровой слой и центральный угол верхнего основания шарового слоя β остаются неизменными. Используя процедуру решить задачу для всех вариантов условий.

α1	α2	γ	t	r	β
31	160	1	1,8	4,5	30
266	115	1	0,4	0,96	15
14	173	1	11,7	24,3	8
54	162	1	4,2	7,2	29
50	179	1	12,8	11,6	49

ВАРИАНТ 4

Найти минимальной значение высоты шарового сегмента h (изменяется от h1 до h2 с шагом k) и соответствующее ему значение радиуса основания r1, для которого площадь поверхности шарового сегмента не меньше площади поверхности прямоугольного параллелепипеда со сторонами a, b, c. Радиус шара r, из которого вырезан шаровой сегмент, остается неизменным. Используя процедуру решить задачу для всех вариантов условий.

h1	h2	k	a	b	c	r
12,3	0,7	-0,1	4,9	7,2	2,4	12,6
7,4	2,2	-0,1	5,4	9,1	17,3	13,2
1,2	0,2	-0,01	0,8	3,3	1,2	2,3
18,1	7,3	-0,1	16,3	24,9	18,1	22,4
5,5	0,9	-0,1	2,7	4,8	5,1	7,9

ВАРИАНТ 5

Найти максимальное значение стороны малого основания правильной усеченной пирамиды a1 (изменяется от l до n с шагом m) и соответствующие ему значения f1 и f2 (f1 – площадь верхнего, f2 – площадь нижнего основания правильной усеченной пирамиды), для которых объем правильной усеченной пирамиды не превышает объема куба со стороной b. a2 – сторона нижнего основания и h – высота правильной усеченной пирамиды остаются неизменными. Используя процедуру решить задачу для всех вариантов условий.

l	n	m	b	a2	h
0,8	6,1	0,1	6,8	6,2	5,1
2,6	10,3	0,1	16,2	13,1	14,9
0,1	1,1	0,01	0,91	1,3	0,37
2,2	7,9	0,1	9,6	9,5	7,2
0,7	2,6	0,1	6,3	3,9	11,1

ВАРИАНТ 6

Найти максимальное значение радиуса шара r (изменяется от r1 до r2 с шагом k) и соответствующее значение радиуса основания r4, вырезанного из этого шара шарового сегмента, для которых площадь поверхности шарового сегмента не превышает площади поверхности куба со стороной a. Высота шарового сегмента, h остается неизменной. Используя процедуру решить задачу для всех вариантов условий.

r1	r2	k	a	h
1,5	12,6	0,1	3,8	1,3
24,4	36,8	0,1	24,2	12,1
1,4	5,6	0,1	2,1	0,93
0,09	1,87	0,01	0,42	0,06
5,2	23,1	0,1	9,6	4,8

ВАРИАНТ 7

Найти минимальной значение высоты цилиндрической трубы h (изменяется от h1 до h2 с шагом m), для которого объем цилиндрической трубы не меньше объема шара радиуса h3. Внутренний радиус r1 и внешний радиус r2 цилиндрической трубы остаются неизменными. Используя процедуру решить задачу для всех вариантов условий.

h1	h2	m	h3	r1	r2
12,4	0,2	-0,1	3,8	5,3	8,4
0,95	0,07	-0,01	0,52	0,19	0,83
8,2	3,1	-0,1	11,1	24,1	30,5
11,8	2,4	-0,1	7,7	6,2	13,7
0,98	0,06	-0,1	5,1	3,3	22,1

ВАРИАНТ 8

Найти максимальное значение большой высоты усеченного круглого цилиндра h2 (изменяется от l до k с шагом m), для которого площадь поверхности усеченного круглого цилиндра не превышает площади поверхности шара радиуса r1. Радиус основания усеченного круглого цилиндра r и его внешняя высота h1 остаются неизменными. Используя процедуру решить задачу для всех вариантов условий.

l	k	m	r1	r	h1
20,3	1,2	-0,1	2,4	1,8	0,9
24,4	10,6	-0,1	12,9	13,6	8,1
1,37	0,34	-0,01	0,52	0,39	0,2
12,2	7,1	-0,1	8,5	8,3	6,6
10,1	4,9	-0,1	19,3	24,7	3,2

ВАРИАНТ 9

	Для каждой из точек, координаты кото-	Y
	рых заданы в последовательном файле
	coord.dat (нечетные записи - координа-
	ты x, четные – координаты y) опреде-	X
	лить принадлежит ли эта точка заштри-
	хованной области. Подсчитать количе-
	ство проверяемых точек в файле, коли-	X2+Y2=
	чество точек принадлежащих заштри-

хованной области, вывести их координаты на печать. В случае обнаружения точек с одинаковыми координатами выдать сообщение о числе повторов каждой неоднократно встречаемой точки.

ВАРИАНТ 10

	Для каждой из точек, координаты кото-	Y
	рых заданы в последовательном файле
	coord.dat (нечетные записи – координа-
	ты x, четные – координаты y) опреде-	X
	лить принадлежит ли эта точка заштри-
	хованной области. Подсчитать количе-
	ство проверяемых точек в файле, коли-	2 2
	чество точек принадлежащих заштрихо-	X +Y =

ванной области, вывести их координаты на печать. В случае обнаружения точек с одинаковыми координатами выдать сообщение о числе повторов каждой неоднократно встречаемой точки.

ВАРИАНТ 11

Для каждой из точек, координаты кото-	Y
рых заданы в последовательном файле
coord.dat (нечетные записи – координаты
x, четные – координаты y) определить	X
принадлежит ли эта точка заштрихован-
ной области. Подсчитать количество	X2+Y2=
проверяемых точек в файле, количество
точек принадлежащих заштрихованной

области, вывести их координаты на печать. В случае обнаружения точек с одинаковыми координатами выдать сообщение о числе повторов каждой неоднократно встречаемой точки.

ВАРИАНТ 12

	Для каждой из точек, координаты ко-	Y
	торых заданы в последовательном фай-
	ле coord.dat (нечетные записи – коор-
	динаты x, четные – координаты y) оп-	X
	ределить принадлежит ли эта точка
	заштрихованной области. Подсчитать
	количество проверяемых точек в фай- X2+Y2=	2 2
	ле, количество точек принадлежащих	X +Y =

заштрихованной области, вывести их координаты на печать. В случае обнаружения точек с одинаковыми координатами выдать сообщение о числе повторов каждой неоднократно встречаемой точки.

ВАРИАНТ 13

Для каждой из точек, координаты ко-	Y
торых заданы в последовательном
файле coord.dat (нечетные записи –
координаты x, четные – координаты y)	X
определить принадлежит ли эта точка
заштрихованной области. Подсчитать
количество проверяемых точек в фай-	Y=2x2+14x+4
ле, количество точек принадлежащих

заштрихованной области, вывести их координаты на печать. В случае обнаружения точек с одинаковыми координатами выдать сообщение о числе повторов каждой неоднократно встречаемой точки.

ВАРИАНТ 14

	Для каждой из точек, координаты которых	Y
	заданы в последовательном файле coord.dat
	(нечетные записи – координаты x, четные –
	координаты y) определить принадлежит ли	X
	эта точка заштрихованной области. Подсчи-
	тать количество проверяемых точек в файле,
	количество точек принадлежащих заштри-
	хованной области, вывести их координаты	Y=±√5x+8

на печать. В случае обнаружения точек с одинаковыми координатами выдать сообщение о числе повторов каждой неоднократно встречаемой точки.