速求vb.net三元一次方程组的解的源代码！！

简单
比如说
x+y+z=21
x-y=1
2x+z-y=13
代码如下
for x=1 to 21
for y=1 to 21
for z=1 to 21
if x+y+z=21 and x-y=1 and 2*x+z-y=13 then
text1.text="x=" & x &" y=" & y &" z=" & z
end if
next z
next y
next x
text1就是方程组的解
解为x=10，y=9，z=2