Розгалужуючі процеси, Цикли - VB

Формулировка задачи:

Здраствуйте, очень нужна помощь. Задание вроде как и не сложные, но мои попытки ни к чему не приводят 1)Розгалужуючі процеси, оператори If- End If, Select Case- End Select Вложение "Безымянный" 2)Використовуючи інструменти РАМКА (FRAME), прапорці CHЕCKBOX, кнопки COMMAND1 та COMMAND2 мітки LABEL розрахувати вирази використовуючи по запиту всі типи циклів. Результати отримати на формі, та в діалоговому вікні. Розрізняють такі властивості прапорця CHЕCKBOX:Grayed(недоступний). Unchecked(вимкнений), Checked(увімкнений) Вложение "Безымянный2" спасибо заранее

Решение задачи: «Розгалужуючі процеси, Цикли»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim x As Single, y As Single
Dim st As String
x = Val(InputBox("x", , 4))
If x >= 0 Then
Select Case x
Case Is < 4
y = 33.67 * x ^ 2 - 4.5 * x ^ Sqr(x)
st = "y = 33.67 * x ^ 2 - 4.5 * x ^ Sqr(x)"
Case Is > 4
y = -23.4 * x ^ 3
st = "y = -23.4 * x ^ 3"
Case Else
y = 1 / x - 1 / Sin(Sqr(x - Abs(x - 5)))
st = "y = 1 / x - 1 / Sin(Sqr(x - Abs(x - 5)))"
End Select
Else
MsgBox "x>0 !!!"
End If
MsgBox "x = " & x & vbLf & st & vbLf & "Y = " & y
End Sub
                        