Помогите решить 2 легкие задачки - VB

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

Извините что отвлекаю но подруге требуется помощь.Дала 2 задачки:
Задача 1
А. Составить процедуру сортировки по убыванию значений элементов массива А(К) (К - заданное число).
В. Используя процедуру рассортировать по убыванию значения элементов каждого столбца массива С(5,4).
Задача 2
А. Составить функцию для вычисления:
У = 1 -х2/2!-х4/4!-х6/6!-...
принимая, что аргумент X по модулю меньше единицы. Вычисления продолжать, пока модуль разности между слагаемым и его предыдущим значением не меньше малой заданной величины (точности вычислений).
В. Напечатать таблицу значений функции У для аргумента X, изменяющегося от заданного начального значения до заданного конечного с заданным шагом.

Решение задачи: «Помогите решить 2 легкие задачки»

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

                            <font color="blue">Function</font> Xnext(Xprev, x, n) <font color="blue">As</font> <font color="blue">Double</font>
    Xnext = Xprev * x ^ <font color="darkblue"><b>2</b></font> / (n * (n - <font color="darkblue"><b>1</b></font>))
<font color="blue">End</font> <font color="blue">Function</font>

<font color="blue">Function</font> Y(x, d) <font color="blue">As</font> <font color="blue">Double</font>
    Y = <font color="darkblue"><b>1</b></font>
    X0 = <font color="darkblue"><b>1</b></font>
    n = <font color="darkblue"><b>0</b></font>
    <font color="blue">Do</font>
        n = n + <font color="darkblue"><b>2</b></font>
        Xn = Xnext(X0, x, n)
        <font color="blue">If</font> Abs(Xn - X0) > d <font color="blue">Then</font>
            Y = Y - Xn
            X0 = Xn
        <font color="blue">Else</font>
            <font color="blue">Exit</font> <font color="blue">Do</font>
        <font color="blue">End</font> <font color="blue">If</font>
    <font color="blue">Loop</font>
<font color="blue">End</font> <font color="blue">Function</font>

<font color="blue">Sub</font> test()
    
    d = <font color="darkblue"><b>10</b></font> ^ -<font color="darkblue"><b>10</b></font>
    
    i = <font color="darkblue"><b>1</b></font>
    <font color="blue">For</font> x = -<font color="darkblue"><b>0</b></font>.<font color="darkblue"><b>5</b></font> <font color="blue">To</font> <font color="darkblue"><b>0</b></font>.<font color="darkblue"><b>5</b></font> + d <font color="blue">Step</font> <font color="darkblue"><b>0</b></font>.<font color="darkblue"><b>1</b></font>
       Cells(i, <font color="darkblue"><b>1</b></font>) = x
       Cells(i, <font color="darkblue"><b>2</b></font>) = Y(x, d)
       i = i + <font color="darkblue"><b>1</b></font>
    <font color="blue">Next</font>
    
<font color="blue">End</font> <font color="blue">Sub</font>
                        