Посмотрите ,кто хорошо разбирается в VB

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

я совсем недавно начала осваивать VB и пока немного тяжело дается , помогите пожалуйста решить задачи,буду очень признательна/ 1)Организовать процедуру ввода цифрового массива из 5 значений и вычисление среднего значения.2)Разработать приложение, заполняющее список студентов из 5 человек и выполняющее поиск на заданную букву.3)Разработать приложение, позволяющее найти максимальное значение в массиве из 5 цифр5)Написать программу, позволяющую выполнять умножение и деление чисел.6)Создать процедуру определения количества слов на заданную начальную букву в массиве из 5 слов 8)Создать процедуру вычисления (√x+y-z^2)/y .9)Создать процедуру вычисления (√x+у^3)/х 11)Разработать приложение, позволяющее вводить массив данных, осуществлять поиск отрицательных чисел и выполнять вывод информации о количестве отрицательных чисел.12)Создать процедуру вычисления (√x+у)/5 .14)Написать программу с использованием функции MsgBox, позволяющую выполнять сложение, деление чисел и извлечение квадратного корня.16)Создать базу данных с фамилиями студентов группы, выполнить их сортировку по алфавиту и определить количество студентов.17)Создать процедуру перевода десятичного числа в восьмеричный код. 21)Написать программу позволяющую выполнять выбор и вычисление площади фигуры: круга, прямоугольника и треугольника с выводом их отображений на форму.23)Создать процедуру вычисления функции √(y/z)- z^2. 25)Разработать процедуру ввода числовых данных, вычисления суммы и среднего арифметического значения положительных чисел, введенных в базу данных.

оооочень нужно

Решение задачи: «Посмотрите ,кто хорошо разбирается в VB»

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

                            Sub vichislit(x As Single, y As Single)
 Dim f As Single
 f = (Sqr(x) + y ^ 3) / x
 e = MsgBox("Значение выражения=" + Str(f)) 
End Sub
 
Private Sub Form_Load()
 Dim a As Single
 Dim b As Single
 a = Val(InputBox("Введите X", "Ввод"))
 b = Val(InputBox("Введите Y", "Ввод"))
 vichislit a, b
End Sub
                        