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

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 2

Dim b As Currency

Dim a As Double

Dim z As Currency

Dim x1, x2, x3

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

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

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

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

Дата добавления: 2014-12-25