vb求1^2 2^2 3^2 4^2 - 100^2