по горизонтали.

Создать коды для выполнения команд созданного меню. Переменные PHeight и PWidthвынесены в секциюGeneral.В итоге должен быть получен примерно следующий код:

Public PHeight As Integer

Public PWidth As Integer

Private Sub mnuInterval_Click()

Dim str As String

Do

str = InputBox("Введите новый интервал времени", _

"Изменение параметров анимации")

If IsNumeric(str) Then

Timer1.Interval = str

Exit Do

Else

MsgBox "Неверное значение интервала: не цифра"

End If

Loop

End Sub

Private Sub mnuPeremGor_Click()

Dim str As String

Do

str = InputBox("Введите новый интервал горизонтального перемещения", _

"Изменение параметров анимации")

If IsNumeric(str) Then

PWidth = str

Exit Do

Else

MsgBox "Неверное значение интервала: не цифра"

End If

Loop

End Sub

Private Sub mnuPeremVert_Click()

Dim str As String

Do

str = InputBox("Введите новый интервал вертикального перемещения", _

"Изменение параметров анимации")

If IsNumeric(str) Then

PHeight = str

Exit Do

Else

MsgBox "Неверное значение интервала: не цифра"

End If

Loop

End Sub

Private Sub Exit_Click()

End

End Sub

Private Sub Timer1_Timer()

Static Flag As Boolean

If Image1.Top < 0 Or Image1.Top >= Form1.ScaleHeight - Image1.Height Then

PHeight = -PHeight

End If

If Image1.Left < 0 Or Image1.Left >= Form1.ScaleWidth - Image1.Width Then

PWidth = -PWidth

End If

If Flag = True Then

Flag = False

Image1.Picture = LoadPicture("Face03.ico")

Else

Flag = True

Image1.Picture = LoadPicture("Face02.ico")

End If

Image1.Top = Image1.Top + PHeight

Image1.Left = Image1.Left + PWidth

End Sub

Приложение

Таблица П1 – Выражения для функции

вариант	f1(x)	f2(x)	f3(x)
	tg(2x)	Sin(3x)	Cos(x-2)
	4x+2	5/(X+0,4)	0,5/(2Sin(4x))
		Ctg(X+0,4)	Ln(2X+0,5)
	xcos(x)
		Sin(2x)
		Cos(2x)
	Ln(2x+5)
	sin(2x+1)
	Cos(x)
	x(sin(x)+2)
		sin(2x)
	Sin(4x)
	Xsin(x-1)