Form1.Show

Label1.Caption="Вычислить функцию Y="+Chr(10)+Chr(13)+

"X/sqr(X^2-A), если A<3"+Chr(10)+Chr(13)+"X/sin(X+A), если A>=3"

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

Dim X, A As Integer

Dim Y As Single

Private Sub My()

X=HScroll1.Value

A=HScroll2.Value

Label4.Caption=X

Label5.Caption=A

If A<3 Then

If (X<-Sqr(Abs(A))) Or (X>Sqr(Abs(A))) Then

Y=X/Sqr(X^2-A)

Label6.Caption="A<3. Вычисляется значение Y=X/sqr(X^2-A)= "+Str(Y)

Else

MsgBox "X должно быть в диапазоне"+Chr(10)+Chr(13)+"X<-Sqr(Abs(A)) And X>Sqr(Abs(A))"

End If

Else

If Sin(X+A)<>0 Then

Y=X/Sin(X+A)^2

Label6.Caption="A>3. Вычисляется значение Y=X/Sin(X+A)^2 ="+Str(Y)

Else

MsgBox "X должно быть в диапазоне"+Chr(10)+Chr(13)+"X<-Sqr(Abs(A)) And X>Sqr(Abs(A))"

End If

End If

End Sub

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