Вычислить значение компонентов вектора xi=(i[1],...,i[n]) по формуле X[I]=1.3*cos(0.1*I)+sin(2*I). Найти сумму компонентов вектора X, принадлежащих отрезку[-0.5; 0.5], и число таких компонентов, все вывести на экран.

Выполнить задачу нужно на языке Basic, через Visual Basic в Excel (VBA), плюс нарисовать блок-схему программы.