Form1.Cls

a=Slider1.Value: Label2.Caption=a

b=(a*(Sqr(5)-1))/2

Label6.Caption=b

Line (2000, 3000)-(2000 + a, 3000), vbRed

Line (2000, 3000)-(2000, 3000 + b), vbBlue

Line (2000, 3000 + b)-(2000 + a, 3000 + b), vbYellow

Line (2000 + a, 3000)-(2000 + a, 3000 + b), vbMagenta

3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект.

Задача № 8.7

1. Создать новое приложение, позволяющее нарисовать на форме правильный треугольник с высотой, заданной с помощью элемента Slider. Окно работающего приложения показано на рис. 84.

2. Записать для элемента Slider программный код: