请帮忙解代数题

(1)private sub form_click
dim x! ,y!
x^2+y^2=4
x*y=1
print x,y '打印x,y
end sub
(2)private sub form_click
dim x! ,y!
x+y=8
x+x*y+y=20
print x,y '打印x,y
end sub
(3)private sub form_click
dim x! ,y!
x^6-y^6=665
x^2-y^2=5
print x,y '打印x,y
end sub
(4)private sub form_click
dim x! ,y!
x^2+y^2=4
x^2-y^2=1
print x,y '打印x,y
end sub
用vb可以直接计算出来!就看你要求的精度了.

都比较简单 凑成 （X+Y）^2 就可以了

＾是什么符号
(1)x=1,y=1
(2)题目有问题，无解
(3)x=2,y=6 OR x=6,y=2
(4)x=(√5)/2,y=√[(4+√5)/2]
OR x=(√5)/2,y=-√[(4+√5)/2]
OR x=-(√5)/2,y=√[(4-√5)/2]
OR x=-(√5)/2,y=-√[(4-√5)/2]
其中√代表根号