Составить функцию на Бейсике - VB

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

Помогите пожалуйста,я полный профан в этом.Нужно составить функцию на Бейсике атакже программу,вйчисляющую значение функции от X Y=1.6x^2+7.8cos(1.1x)+3.4x(x+5)-7.2;от X1=1доX2=9 шаг 0,7 А также.Дана последовательность не более 30нулевых целых чисел.Введите последовательность в одномерный массив и вычислите характеристики последовательности согласно варианту. Найдите сумму элементов массива больше некоторого числа С. Составить функцию на Бейсике,составить программу,вводящую с клавиатуры величину X и вычисляющую значение функции от X Y=0.4x^2-2.3x+ln(x+5)+3 Составьте программу построения таблицы значений вашей функции,состоящую из N строк,при изменении аргумента L до RВ форматированном виде с4 знаками после запятой.Кроме того.необходимо во время построения таблицы найти и напечатать в конце отдельной строкой следующее:Сумму таких значений функции.которые меньше числа М. ЗАРАНЕЕ СПОСИБО!!!!!!!!!!!!!!!!!

Решение задачи: «Составить функцию на Бейсике»

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

                            Private Sub Command1_Click()
Dim x As Single, y As Single
x = Text1
y = 0.4 * x ^ 2 - 2.3 * x + ln(x + 5) + 3
MsgBox (y)
End Sub
                        