Notice that the TestArea procedure does not check the value of the Area field after calling the CalcArea method.

• 注意,调用CalcArea方法后,TestArea过程并不检查Area字段的值。