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

Тема: Типы данных

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

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

1. Откройте новый проект и установите на форме командную кнопку( Name – Cmd1, Caption – Пример 1), переместите ее в правый верхний угол формы.

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

Dim X As Integer, Y As Integer

X = 5 / 2: Y = 10 / 3: Z = X / Y

Print X, Y, Z

3. Проверьте работу программы, прокомментируйте значения переменных X,Y

4. Измените программу, добавив после первой строки

Dim Z As Currency

5. Проверьте работу программы, прокомментируйте значение переменной Z

6. Измените программу, удалив строки объявления всех переменных (или поставьте знак комментария – апостроф перед оператором Dim

7. Проверьте работу программы, прокомментируйте значения всех переменных

8. Добавьте на форму командную кнопку( Name – Cmd2, Caption – Пример 2), переместите ее в правый верхний угол формы и в окне кода процедуры обработки события Click для объекта Cmd2 набрать

Dim S As Integer

S = 10 ^ 5

Print S

9. Проверьте работу второй кнопки, объясните причину вывода сообщения об ошибке

10. Остановите работу программы и предложите два способа , позволяющие вычислить требуемое значение без ошибок. Результат показать преподавателю.

11. Для решения новой задачи добавьте на форму новые объекты в соответствии с образцом.

12. Для командной кнопки Вычислить набрать программный код

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. Проверьте работу программы на различных входных данных