Dim h As Integer

Slider1.Text = "H= "+Str(Slider1.Value)

Form113.Cls

Text1.Text=Slider1.Value

h=Slider1.Value

Call My(h)

3. Записать программный код для раздела General Declaartions:

Private Sub My(x As Integer)

DrawWidth=3

Line (3300, 2000)-(3300-x * Sin(3.14/3), 2000+x), vbRed

Line (3300, 2000)-(3300+x * Sin(3.14/3), 2000+x), vbGreen

Line ((3300-x*Sin(3.14/3)), 2000+x)-(3300+x*Sin(3.14/ 3), 2000+x), vbYellow

DrawWidth=1

Line (3300, 2000)-(3300, 2000+x), vbMagenta

End Sub

4. Записать программный код для процедуры загрузки формы:

Me.Show

Text1.Text=Slider1.Value

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

Форма отчета: дискета или иной носитель с файлами форм и проектов задач; текстовый файл с изображениями форм и текстами программных кодов.