一道数学题~关于运筹学的，大家帮帮忙啊~急急急急呀

用VB或MATLAB编程求解可以吗？
total =

100

A4 =

1 5 0
6 0 0
0 0 3
0 3 0
程序为
A1=[5 8 7 9;4 9 10 7;8 4 2 9]
total=10^6;
for i=0:6
for k=0:6
if i+k>=3
if i+k<=6
l=6-i-k;
for m=0:(7-i)
if m<=6
for n=0:(8-k)
if m+n>=3+l
if m+n<=6
o=6-m-n;
for p=0:(7-i-m)
if p<=3
for q=0:(8-k-n)
if p+q<=3
if p+q>=l+o
r=3-p-q;
for s=0:(7-l-o-p)
if s<=3
for t=0:(8-k-n-q)
if s+t<=3
if s+t>=l+o+r
u=3-(s+t);
A2=[i k l;m n o;p q r;s t u];
A3=A2*A1;
total1=A3(1,1)+A3(2,2)+A3(3,3)+A3(4,4);
if total1 total=total1;
it=i;
kt=k;
lt=l;
mt=m;
nt=n;
ot=o;
pt=p;
qt=q;
rt=r;
st=s;
tt=t;
ut=u;
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
end
total=total
A4=[it kt lt;mt nt ot;pt qt rt;st tt ut]