Напишите программу, которая заполняет квадратную матрицу случайными числами в интервале [10,99], а затем записывает нули во все элементы выше главной диагонали. Алгоритм не должен изменяться при изменении размеров матрицы

vbdim matt() as integerdim x,y as integerx=5y=5redim matt(x,y)randomizefor a as integer = 0 to x for b as integer = 0 to y matt(x,y)= (rnd()*88)+11nextnextdim i,z as integerdomatt(i,z)=0i+=1z+=1loop until (i=x and z=y)