Напишите код к задаче!!! - VB

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

Вариан№6 Задача 1: Нарисуйте при нажатии клавиши “л” – линию, а при нажатии “о” – окружность. Задача 2: Дана последовательность, заданная формулой: An =An-1 + An-2. Вычислить первый член последовательности, превышающий наперёд заданное число В. 6.1. Открыть новый проект для решения задачи. 6.2. Создать интерфейс. 6.3. Написать программу на языке Visual Basic для исполнения алгоритма задачи. 6.4. Запустить программу на выполнение в среде программирования и выполнить отладку программы. 6.5. Сохранить проект.

Решение задачи: «Напишите код к задаче!!!»

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

                            Private Sub Command1_Click()
Dim a() As Integer
Dim m, temp
m = 10
b = InputBox("Ввод числа b")
Print "Последовательность"
ReDim a(m)
Print
For i = 1 To m
  If i > 2 Then
    a(i) = a(i - 1) + a(i - 2)
    Else
    a(i) = InputBox("Введите элемент " & i)
  End If
  Print a(i);
 Next
Print
For i = 1 To m
  If a(i) > b Then temp = a(i): Exit For
 Next
 Print "Элемент, больший b это " & temp
End Sub
                        