Программа и блок схема - VB

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

Составить блок-схему и программу алгоритма для решения задачи, включающей ввод исходных данных, организацию цикла и выбора по заданному условию. Изображения Помогите!!!!! Очень нужно.... я пыталась что то написать, но как то не идет программа, вот что у меня получилось...

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Dim x As Single, y As Single, m As string
Private Sub Command1_Click()
m = inputBox (''Введите число от 0.1 до 1.5'')
For x = 0.1 To 1.5 Step 0.1
  If x > 0.8 Then
    y = (x ^ 2) + 9 * (x ^ 2) * 16 * (Tan(x)) ^ 2
  ElseIf x <= 0.8 Then
    y = Tan(x) + Sin(16 / 2)
    Print y
  End If
Next
End Sub

Решение задачи: «Программа и блок схема»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub bb()
Dim x As Currency
For x = 0.1 To 1.5 Step 0.1
    Debug.Print x, x > 0.8@
Next
End Sub