Dim x1, x2, x3

Dim z As Currency

Dim a As Double

Dim b As Currency

x1 = Val(TxtTonn.Text)

x2 = Val(TxtKg.Text)

x3 = Val(TxtGram.Text)

z = Val(TxtZena.Text)

a = (x1 * 1000000 + x2 * 1000 + x3) * z

b = (x1 * 1000000 + x2 * 1000 + x3) * z

LblItog1.Caption = a

LblItog2.Caption = b

13. Проверьте работу программы на предложенных входных данных (см. образец). Объясните, значение какой переменной будет ближе к точному значению (точное значение найти вручную с помощью программы Калькулятор)

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 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. Проверьте работу программы на различных входных данных

Часть

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 набрать

Дата добавления: 2015-11-16