Определить на сколько процентов изменились цены на товары в каждом магазине - VB

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

Народ,помогите пожалуйста!!!!!!Срочно!!!!Заранее спасибо!!!! 1. Один и тот же товар в одном из магазинов райпо стоил S1 руб/шт, а во втором-S2 руб/шт. Во ибежание конкуренции директора магазинов договорились о единой цене на товар, равной S руб/шт (S1<S<S2). Определить насколько процентов изменились цены на товары в каждом магазине.

2. Сможет ли шар радиуса R пройти в ромбообразное отверстие со стороной P и острым углом Q? 3. Задан массив. Определить, входит ли в него последовательность подряд идущих значений элементов 1,2,3. Если да, то с какой позиции. 4. Дана матрица размерности nxm. Найти в ней максимальные элементы и обменять их местами. 5. Составить программу для перевода арабских чисел в римские и для обратной операции. Например, 255=CCLV=сто+сто+пятьдесят+пять. Замечание. Подобными алгоритмами перевода чисел из одной системы в другую мы пользуемся по нескольку раз на дню, когда ведем денежные расчеты. Сумма денег- это арабское число, которому соответствует определенный набор банкнот и монет (аналоги римских цифр).

Решение задачи: «Определить на сколько процентов изменились цены на товары в каждом магазине»

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

                            Function Проценты (Старая_Цена, Новая_Цена) as Double
    Проценты = ABS(Новая_Цена - Старая_Цена) / Старая_Цена * 100
end function
                        