vb 求矩形面积的函数过程和子过程,调用该函数或子过程求任意个矩形面积的和