Задачи по бэйсику

[Малышка1990]

Здравствуйте уважаемые форумчане)))
помогите пожалуйста решить задачки по VisualBasic)))нужно подготовится к контроольной...
1)Написать фрагмент программы для рисования на экране
2)Найти число элементов массива А(100), удовлетворяющих
неравенству -0.707*Amax <= A(n) <= 0.707*Amax (написать фраг-
мент программы). Amax - максимальный (по содержимому) элемент
массива. Его необходимо найти.
Заранее спасибо всем откликнувшимся))))