Dim X,Y As Integer

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

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

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

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

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

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

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

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

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

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

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. Результат показать преподавателю.

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