VB 6 (процедуры и функции)

[Fruitella]

Пожалуйста, помогите с кодом, никак не могу разобраться, а мне для курсовой оооочень нужно это задание


Задача 1
А. Составить процедуру сортировки по убыванию значений отрицательных
элементов массива В(N) (N - заданное число).
В. Используя процедуру рассортировать по убыванию значений элементов
массив Х(7,6).
Задача 2
А. Составить функцию, определяющую представляет ли запись натурального
числа в двоичной системе счисления чередующуюся последовательность
единиц и нулей, начинающуюся с единицы.
B. Напечатать таблицу чисел, соответствующих п.1, не превосходящих
заданное натуральное число.


Заранее огромное спасибо..