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

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

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

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

1. Загрузите графический редактор Paint. 1 часть

2. Выберите в меню программы Рисунок / Атрибуты

3. В появившемся окне установите Единицы см, Ширина 6, Высота 3., нажмите Ок

4. Используя инструментарий программы нарисуйте параллелепипед с обозначением сторон и сохраните свой рисунок.

5. Закройте программу Paint

6. Загрузите Visual Basic

7. Установите на форме следующие объекты и измените им свойства

Объект	Свойство	Значение
Метки	Caption	Объем коробки вычисляется по формуле
	Caption	V=A*B*H
	Caption	Длина
	Caption	Ширина
	Caption	Высота
	Caption	Объем
Командная кнопка	Name	CmdResult
	Caption	Определение объема
Текстовые окна	Name	Text1
	Name	Text2
	Name	Text3
	Name	Text4
Изображение	Name	Image1
	Picture	(созданный Вами рисунок)

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

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

Dim a,b,h,v As Integer

a = Val(Text1.Text)

b = Val(Text2.Text)

h = Val(Text3.Text)

v = a * b * h

Text4.Text = v

10. Проверьте работу программы на различных входных данных

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. Добавьте командную кнопку на форму и разработайте программу для нее для обмена цветом шрифта между окнами (самостоятельно)