Dim a(10, 10) As Double
Dim i As Integer, j As Integer
'Работа с матрицей
n = 10
sub primer()
For i = 1 To n
For j = 1 To n
a(i,j)=(-1)^i*(2+j*fact(i,j))
...
end Sub

function fact(i as integer,j as integer) As integer

Как объявлять матрицу и как с ней работать

Перевод числа Х из 10-тичной системы в n-ичную осуществляется путем деления с остатком числа Х на n, затем Х1 = Х/n на n и тд (до тех пор, пока Хi больше 0) и записыванием остатков деления в обратном порядке. В нашем случае:
Х = 10, n = 2, % - операция получения остатка от деления, / - операция получения целой части от деления.
1) 10 % 2 = 0; 10 / 2 = 5
2) 5 % 2 = 1; 5 / 2 = 2
3) 2 % 2 = 0; 2 / 2 = 1
4) 1 % 2 = 1; 1 / 2 = 0 => конец. Выпишем остатки в обратном порядке (т.е. из шагов 4), 3), 2) и 1)):
10 (в 10-ной) = 1010 (в 2-ной)
Проверка:
1010 (в 2-ной) = 1*2^3 + 0*2^2 + 1*2^2 + 0*2^0 = 8 + 0 + 2 + 0 = 10 (в 10-ной)

#include <iostream>
#include <math.h>

using namespace std;

int main()
{
    float a,b,c;
        int d;
        float x1, x2;

        cout << "ax^2+bx+c=0" << endl;
        cout << "Input a:" << endl;
        cin >> a;
        cout << "Input b:" << endl;
        cin >> b;
        cout << "Input c:" << endl;
        cin >> c;
        d= sqrt(b*b-4*a*c);
        x1=((-1)*b+d)/(2*a);
        x2=((-1)*b-d)/(2*a);
        cout << "x1=" << x1 << endl;
        cout << "x2=" << x2 << endl;
    return 0;
}

Но есть корень из дискриминанта нормально не получится - оно не напишет тебе + √13 допустим, он посчитает корни приблизительно.