2 Часть

11. Откройте новый проект, на форме расположите объекты и измените для них свойства:

Объект	Свойство	Значение
Командные кнопки	Caption	Обмен значениями
	Name	Cmd1
	Caption	Обмен шрифтами
	Name	Cmd2
	Caption	Обмен начертанием
	Name	Cmd3
Текстовые окна	Name	Text1
	Font	14, Полужирный, Ms Serif
	ForeColor	Черный
	Text	Это левое поле
	Name	Text2
	Font	14, Курсив, Garamond
	ForeColor	Красный
	Text	Это правое поле

12. П риведите свою форму в соответствии с образцом.

13. В окне кода процедуры обработки события Click для объекта Cmd1 набрать

Dim stroka1 As String, stroka2 As String

stroka1 = Text1.Text : stroka2 = Text2.Text

Text1.Text = stroka2 : Text2.Text = stroka1

14. В окне кода процедуры обработки события Click для объекта Cmd2 набрать

Dim stroka1 As String, stroka2 As String

stroka1 = Text1.FontName : stroka2 = Text2.FontName

Text1.FontName = stroka2 : Text2.FontName = stroka1

15. В окне кода процедуры обработки события Click для объекта Cmd3 набрать

Dim stroka1 As Boolean, stroka2 As Boolean

'полужирный

stroka1 = Text1.FontBold : stroka2 = Text2.FontBold

Text1.FontBold = stroka2 : Text2.FontBold = stroka1

'курсив

stroka1 = Text1.FontItalic : stroka2 = Text2.FontItalic

Text1.FontItalic = stroka2 : Text2.FontItalic = stroka1

16. Проверьте работу программы. Объясните, почему объявленные переменные имеет различный тип в процедурах.

17. Добавьте командную кнопку на форму и разработайте программу для нее для обмена цветом шрифта между окнами (самостоятельно)

Лабораторно-практическая работа № 3

Тема: Ввод, вывод и присвоение в программе

Цель работы: получить навыки разработки приложений для вычислительных задач

Порядок выполнения

1. Расположите на форме следующие объекты и измените для них свойства:

Объект	Свойство	Значение
Рамка	Caption	Введите X и Y
Текстовое окно	Name	TxtX
	Text	(отсутствует)
Текстовое окно	Name	TxtY
	Text	(отсутствует)
Линейка прокрутки	Name	HSX
	Max	1000
	Min	0
Линейка прокрутки	Name	HSY
	Max	100
	Min	0
Рамка	Caption	Результат
Метка	Name	LblResult
	Caption	(отсутствует)
Командные кнопки	Name Caption	CmdPlus +
	Name Caption	CmdMinus -
	Name Caption	CmdDel /
	Name Caption	CmdMul *

2. Для текстовых окон и метки установите выравнивание по центру (свойство Alignment)

3. Для всех объектов, кроме прокруток, увеличьте размер шрифта (свойство Font)

4. Приведите свою форму в соответствии с образцом.

5. В разделе общих объявлений набрать

Dim X,Y As Integer

6. В окне кода процедуры обработки события Change для объекта HSX набрать:

TxtX.Text = HSX.Value

а для объекта HSY набрать

TxtY.Text = HSY.Value

7. В окне кода процедуры обработки события Click для объекта CmdРlus набрать

x = Val(TxtX.Text)

y = Val(TxtY.Text)

LblResult.Caption = x + y

8. Загрузите программу и проверьте работу кнопки «+» (ввод значений для X и Y выполните двумя способами: с клавиатуры и с помощью прокруток)

9. Остановите программу. Напишите программный код для остальных командных кнопок (самостоятельно)

10. Добавьте на форму несколько командных кнопок для вычисления следующих значений:

Sin ( X ) + Cos ( Y ); ; Tg ( X ) ² - | Y |

11. Результат показать преподавателю.